第1题 (1.0分) 题号:255 Shape控件和Line控件可以在窗体中移动,因此它们具有Move方法. 答案:N 第2题 (1.0分) 题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案:Y 第3题 (1.0分) 题号:316 图片框的属性Enabled设置为FALSE, 图片框上的控件仍可响 应用户操作. 答案:N 第4题 (1.0分) 题号:302 若已在窗体中加入了一个通用对话框:要求在运行时,通过 ShowOpen打开对话框时,只显示扩展名为 DOC 的文件,则 对通用对话框的 Filter的属性设置应该是:" (*.DOC)| ( .DOC)" . 答案:N 第5题 (1.0分) 题号:304 设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字. 答案:Y 第6题 (1.0分) 题号:298 清除list1列表框对象的内容的语句是list1.cls. 答案:N 第7题 (1.0分) 题号:314 图片框的Move方法不仅可以移动图片框,而且还可以改变该图 片框的大小,同时也会改变该图片框有关属性的值. 答案:N 第8题 (1.0分) 题号:270 当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0. 答案:N 第9题 (1.0分) 题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案:Y 第10题 (1.0分) 题号:312 通用对话框只能用SHOW方法进行调用. 答案:N 第1题 (1.0分) 题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:Hide B:Checked C:Visible D:Enabled 答案:C 第2题 (1.0分) 题号:291 定时器的Interval属性以()为单位指定Timer事件之间的时间间隔. A:分 B:秒 C:毫秒 D:微秒 答案:C 第3题 (1.0分) 题号:278 要在图片框P1中打印字符串" HowAreYou" ,应使用语句(). A:Picture1.Print=" HowAreYou" B:P1.Picture=LoadPicture(" HowAreYou" ) C:P1.Print" HowAreYou" D:Print" HowAreYou" 答案:C 第4题 (1.0分) 题号:371 下列关于设置控件属性的叙述正确的是(). A:用户必须设置属性值 B:所有的属性值都可以由用户随意设定 C:属性值不必一一重新设置 D:不同控件的属性项都完全一样 答案:C 第5题 (1.0分) 题号:320 启动VisualBasic后,系统为用户新建的工程起一个名为()的 临时名称. A:工程1 B:窗体1 C:工程 D:窗体 答案:A 第6题 (1.0分) 题号:336 设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是(). A:True B:False C:1 D:出错信息 答案:B 第7题 (1.0分) 题号:277 MSGBOX函数中有4个参数,其中必须写明的参数是(). A:指定对话框中显示按钮的数目 B:设置对话框标题 C:提示信息 D:所有参数都是可选的 答案:C 第8题 (1.0分) 题号:835 应用程序设计完成后,应将程序保存,保存的过程是(). A:只保存窗体文件即可 B:只保存工程文件即可 C:先保存工程文件,之后保存窗体文件 D:先保存窗体文件(或标准模块文件),之后还要保存工程文件 答案:D 第9题 (1.0分) 题号:294 改变控件在窗体中的左右位置应修改该控件的()属性. A:Top B:Left C:Width D:Right 答案:B 第10题 (1.0分) 题号:233 VB认为下面()组变量是同一个变量. A:A1和a1 B:SUM和SUMMARY C:AVER和AVERAGE D:A1和A_1 答案:A 第1题 (10.0分) 题号:36 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能:以下程序的功能如(图1)。 '------------------------------------------------------- Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(" 请输入a的值" ) b = InputBox(" 请输入b的值" ) c = InputBox(" 请输入c的值" ) d = b * b - 4 * a * c p = -b / (2 * a) If d >= 0 Then '**********SPACE********** If 【?】 Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p '**********SPACE********** 【?】 Print " x1=" ; x1, " x2=" ; x2 '**********SPACE********** 【?】 q = Sqr(-d) / (2 * a) Print " x1=" ; p; " +" ; q; " i" , " x2=" ; p; " -" ; q; " i" End If End Sub 答案: 1). d > 0 或 0 < d 2). End If 3). Else 第2题 (10.0分) 题号:520 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能:完成程序,使程序输出值为 15 '------------------------------------------------------- Private Sub Command1_Click() '**********SPACE********** Dim i, j, x,【?】 As Integer For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 '**********SPACE********** For 【?】 = 1 To 2 '**********SPACE********** x = x + 【?】 Next k Next j Next i Print x End Sub 答案: 1). k 2). k 3). 6 第3题 (10.0分) 题号:502 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能:用输入对话框输入x,根据如图公式计算对应的y, ' 在窗体上输出y的值。 '------------------------------------------------------- ' Private Sub Command1_Click() '**********SPACE********** Dim x As Single, 【?】 As Single '**********SPACE********** x = Val(【?】(" Please input x :" , " 输入X的值" )) If x = 10 Then '**********SPACE********** 【?】 ElseIf x > 10 Then '**********SPACE********** y = Sqr(x) 【?】 Else y = 2 * x ^ 3 + 6 End If Print y End Sub 答案: 1). y 2). InputBox 3). y = 0 4). + Sin(x) 第1题 (10.0分) 题号:487 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:设窗体中有图片框Pic1,现要求在其中绘制10个同心圆, ' 然后将此图以Test.BMP作文件名存入磁盘。 '------------------------------------------------ Option Explicit Private Sub Command1_Click() Dim X As Integer Dim Y As Integer Dim I As Integer Dim rad(9) As Integer X = Pic1.ScaleWidth / 2 Y = Pic1.ScaleHeight / 2 '**********FOUND********** For I = 1 To 9 rad(I) = 500 * Rnd Next I I = 9 '**********FOUND********** Do Until I < 1 Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) '**********FOUND********** I = I + 1 SavePicture Pic1.Image, " Test.BMP" End Sub 答案: 1). for i=0 to 9 或 for i=0 to 9 step 1 2). Do Until I < 0 或 do until 0>i 3). I = I - 1 或 i=-1+i 第2题 (10.0分) 题号:467 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:从计算机输入三个数 , 找出中间数 '------------------------------------------------ Option Explicit Private Sub FindMidNum() Dim x As Integer, y As Integer, z As Integer, A As Integer x = InputBox(" PLEASE INPUT THE FIRST NUMBER" ) y = InputBox(" PLEASE INPUT THE SECOND NUMBER" ) z = InputBox(" PLESSE INPUT THE THIRD NUMBER" ) '**********FOUND********** If x > y Then A = x x = y y = A End If '**********FOUND********** If y = z Then Print y '**********FOUND********** ElseIf x = z Then Print z Else Print x End If End Sub Private Sub Form_Click() FindMidNum End Sub 答案: 1). If x < y Then 或 If y > x Then 2). If y >= z Then 或 If z <= y Then 3). ElseIf x >= z Then 或 ElseIf z <= x Then 第3题 (10.0分) 题号:141 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:输出40以内能够被3整除的数,要求输出结果为5 ' 个数一行。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim x As Integer Dim i As Integer '**********FOUND********** i = 1 For x = 1 To 40 If (x / 3) = (x \ 3) Then '**********FOUND********** Print x i = i + 1 End If '**********FOUND********** If i Mod 3 = 0 Then Print End If Next x End Sub 答案: 1). i = 0 2). Print x; 3). if i mod 5=0 then 第1题 (10.0分) 题号:480 '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目:编写函数fun其功能是:根据整型形参m, ' 计算如下公式的值: ' y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5) ' 例如:若m=9,则应输出:1.168229 '要求:函数中用到的中间变量必须声明为Single类型。 '------------------------------------------------- 答案:---------------------- Dim y As Double Dim i As Integer For i = 0 To m y = y + 1 / (i + 5) Next Fun = y ---------------------- 第2题 (10.0分) 题号:488 '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目: (事件)单击窗体。 ' (响应)已知sum=1/2!-1/4!+1/6!-1/8!+1/10!, ' 请将sum结果值输出到窗体上。 ' 使用do while...loop语句完成程序 '------------------------------------------------- 答案:---------------------- Dim i As Integer Dim n As Integer i = 1 p = 1 Do While i <= 10 p = p * i If i Mod 2 = 0 Then n = n + 1 sum = sum + (-1) ^ (n - 1) / p End If i = i + 1 Print sum ---------------------- 一、判断 共10题 (共计10分) 第1题 (1.0分) 题号:309 所有的对象都有caption 属性. 答案:N 第2题 (1.0分) 题号:307 事件过程由某个用户事件或系统事件触发执行,它不能被其它 过程调用. 答案:N 第3题 (1.0分) 题号:271 当定时器控件的interval属性值设置为0时,会连续不断地激发 Timer事件. 答案:N 第4题 (1.0分) 题号:272 当需要在同一窗体中建立几组相互独立的单选钮时,就要用框 架将每一组单选钮框起来. 答案:Y 第5题 (1.0分) 题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案:N 第6题 (1.0分) 题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案:Y 第7题 (1.0分) 题号:261 VB允许设计和使用用户自己设计的控件. 答案:Y 第8题 (1.0分) 题号:342 在VB中,可以将在Picture控件中绘制的图形以文件的形式保存 在磁盘上. 答案:Y 第9题 (1.0分) 题号:249 Function函数有参数传递,并且一定有返回值. 答案:N 第10题 (1.0分) 题号:338 在VB的工具栏中包括了所有的VB控件,我们不能再加载其他的 控件. 答案:N 二、单项选择 共10题 (共计10分) 第1题 (1.0分) 题号:260 代数式x1-|a|+ln10+sin(x2+2л)/cos(57o)对应的VisualBasic 表达式是(). A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/ B:X1-Abs(A)+Log(10)+Sin(X2+2*л)/ C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/ D:X1-Abs(A)+Log(10)+Sin(X2+2*л)/ 答案:A 第2题 (1.0分) 题号:337 设计动画通常使用时钟控件()来控制动画速度. A:Enabled B:Interval C:Timer D:Move 答案:B 第3题 (1.0分) 题号:796 要把一个命令按钮设置成无效,应设置其哪一属性值(). A:Visible B:Enabled C:Default D:Cancel 答案:B 第4题 (1.0分) 题号:336 设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是(). A:True B:False C:1 D:出错信息 答案:B 第5题 (1.0分) 题号:322 任何控件都具有的属性是(). A:TEXT B:CAPTION C:NAME D:FORECOLOR 答案:C 第6题 (1.0分) 题号:289 当事件能被触发时,()就会对该事件作出响应. A:对象 B:程序 C:控件 D:窗体 答案:A 第7题 (1.0分) 题号:382 下列叙述正确的是(). A:对象是包含数据又包含对象数据进行操作的方法的物理实体 B:对象的属性只能在属性窗口中设置 C:不同的对象能识别不同的事件 D:事件过程都要由用户点击对象来触发 答案:C 第8题 (1.0分) 题号:371 下列关于设置控件属性的叙述正确的是(). A:用户必须设置属性值 B:所有的属性值都可以由用户随意设定 C:属性值不必一一重新设置 D:不同控件的属性项都完全一样 答案:C 第9题 (1.0分) 题号:250 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(). A:4^5 B:3*4 C:x+1 D:SIN 答案:C 第10题 (1.0分) 题号:819 一个对象可以执行的动作和可被对象识别的动作分别称为(). A:事件、方法 B:方法、事件 C:属性、方法 D:过程、事件 答案:A 三、程序填空 共3题 (共计30分) 第1题 (10.0分) 题号:41 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。 '------------------------------------------------------- Private Sub Form_Click() Print " 5个数34、124、68、73、352的最大值是:" max1 = max(34, 124, 68) '**********SPACE********** max1 =【?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If 【?】 Then m = a Else m = b End If '**********SPACE********** If 【?】 Then max = m Else max = c End If End Function 答案: 1). max(max1, 73, 352) 2). a>b 或 b<a 3). m > c 或 c < m 第2题 (10.0分) 题号:56 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能:输入数字1-7,显示其对应是星期几(例:输入 1,显示星期日, ' 如果输入其它内容,一律显示" 输入错误" ) '------------------------------------------------------- Private Sub Command1_Click() dim x as integer dim y as string x=val(text1.text) '**********SPACE********** 【?】 case 1 y=" 今天是星期日" case 2 y=" 星期一" case 3 y=" 星期二" case 4 y= " 星期三" case 5 y=" 星期四" case 6 '**********SPACE********** 【?】 case 7 y= " 星期六" '**********SPACE********** 【?】 y = " 输入错误" end select Text2.Text = y End Sub 答案: 1). select case x 2). y=" 星期五" 3). Case Else 第3题 (10.0分) 题号:49 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能:以下程序段用于求∑n! '------------------------------------------------------- Private Sub Form_Click() Dim sum As Integer, n As Integer n = InputBox(" 请输入一个正整数" ) sum = 0 For i = 1 To n '**********SPACE********** sum =【?】 Next i Print sum End Sub Private Function mul(ByVal x As Integer) Dim s As Integer, i As Integer s = 1 '**********SPACE********** For i = 1 To 【?】 s = s * i Next i '**********SPACE********** 【?】 End Function 答案: 1). sum + mul(i) 2). x 3). mul = s 四、程序改错 共3题 (共计30分) 第1题 (10.0分) 题号:138 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:输出40以内能够被3整除的数,要求输出结果为 ' 5个数一行。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim x As Integer Dim i As Integer '**********FOUND********** i = 1 For x = 1 To 40 If (x / 3) = (x \ 3) Then '**********FOUND********** Print x i = i + 1 End If If i Mod 5 = 0 Then Print End If '**********FOUND********** step i End Sub 答案: 1). i = 0 2). Print x ; 或 ? x ; 3). Next x 或 Next 第2题 (10.0分) 题号:474 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:程序功能为求解一元二次方程的实根,请修正程序中错误。 '------------------------------------------------ Option Explicit Private Sub Form_Load() Dim a!, b!, c!, root1#, root2#, work As Double a = Val(InputBox(" 请输入系数a的值" )) b = Val(InputBox(" 请输入系数b的值" )) c = Val(InputBox(" 请输入系数c的值" )) '**********FOUND********** work = b * 2 - 4 * a * c If work >= 0 And a <> 0 Then '**********FOUND********** root1 = (Sqr(work)) / (2 * a) '**********FOUND********** root2 = (Sqr(work)) / (2 * a) Debug.Print " 有二个实根" + Str$(root1) + " ," + Str$(root2) Else Debug.Print " 无实根!" End If End Sub 答案: 1). work = b ^ 2 - 4 * a * c 或 work = b *b - 4 * a * c 2). root1 = (-b + Sqr(work)) / (2 * a) 或 root1 = ( Sqr(work) -b ) / (2 * a) 或 root1 = (-b + Sqr(work)) / ( a*2) 3). root2 = (-b - Sqr(work)) / (2 * a) 或 root2 = (- Sqr(work) - b) / (2 * a) 或 root2 = (-b - Sqr(work)) / ( a*2) 第3题 (10.0分) 题号:475 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:本程序求3~100之间的所有素数(质数)并统计个数; ' 同时将这些素数从小到大依次写入顺序文件c:\dataout.txt; ' 素数的个数显示在窗体Form1上。 '------------------------------------------------ Option Explicit Private Sub Command1_Click() Dim Count As Integer, Flag As Boolean Dim t1 As Integer, t2 As Integer '**********FOUND********** Open " dataout.txt" For Input As #1 Count = 0 For t1 = 3 To 100 Flag = True For t2 = 2 To Int(Sqr(t1)) If t1 Mod t2 = 0 Then Flag = False Next t2 '**********FOUND********** If Flag = False Then Count = Count + 1 '**********FOUND********** Write #1, t2 End If Next t1 Form1.Print " 素数个数" ; Count Close #1 End Sub 答案: 1). Open " dataout.txt" For Output As #1 或 Open " dataout.txt" For Output As 1 2). If Flag Then 或 If Flag=true Then 3). Write #1, t1 或 Write 1, t1 五、程序设计 共2题 (共计20分) 第1题 (10.0分) 题号:134 '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目:(事件)双击窗体。 ' (响应)s=20+21+22+…+263,求s的值,并将结果 ' 存储到变量S中。 '------------------------------------------------- 答案:---------------------- Dim i As Integer i = 20 While i <= 263 s = s + i i = i + 1 Wend Print (CStr(s)) ---------------------- 第2题 (10.0分) 题号:142 '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目:(事件)单击窗体。 ' (响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果, ' 并将结果输出到窗体上。 ' 将结果存入变量M中 '------------------------------------------------- 答案:---------------------- Dim i, j As Integer Dim s As Long For i = 10 To 15 s = 1 For j = i To i + 2 s = s * j Next m = m + s Next Print (CStr(m)) ---------------------- |
|