试题八

一、单项选择题（50道小题，共50分） 1、VB程序中通常不会产生错误提示的( )。（1分） A、编译错误 C、运行时错误 B、实时错误 D、逻辑错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1分） A、工程资源管理器窗口 C、工具箱窗口 B、代码窗口 D、属性窗口 3、将调试通过的工程文件拿到其它机器上不能运行的主要原因是( )。（1分） A、缺少.frm窗体文件 C、该可执行文件有病毒 B、运行的机器上无VB系统 D、以上原因都不对 4、Visual Basic有完备的Help联机帮助功能，可以通过按下功能键( )得到帮助。（1分） A、F9 C、F1 B、F8 D、F5 5、VB坐标系的默认原点在窗体的( )。（1分） A、左上角 C、右上角 B、左下角 D、右下角 6、如果要在应用程序执行过程中改变窗体的位置，可以用( )方法。（1分） A、Print C、Drag B、Move D、Cls 7、窗体上有文本框Text1，编写如下事件过程，Private Sub Text1_KeyPress(KeyAscii As Integer): Print KeyAscii : End Sub , 运行时，向文本框输入字符a，输出的数值是( )。 （1分） A、0 C、a B、97 D、A 8、命令行Command1.Caption=\，其中：.Caption前的Command1代表的是( )。（1分） A、标题 C、标题 B、控件名称 D、标题的值 9、设置( )属性使标签Label1没有边框。（1分） A、Label1.BorderStyle = 0 C、Label1.BackStyle = Tru B、Label1.BorderStyle = 1 D、Label1.BackStyle = False 10、计时器控件能正常工作应具备的两个条件是( )。（1分） A、Enabled属性为True和Interval属性为0 C、Enabled属性为True和Interval属性非0 B、Enabled属性为False和Interval属性为0 D、Enabled属性为False和Interval属性非0 11、在下列选项中，不能将图像装入图片框和图像框的是( )。（1分） A、在界面设计时，通过Picture属性装入 C、在界面设计时，利用剪贴板把图像粘贴上 B、在界面设计时，手工在图像框和图片框中绘制图形 D、在程序运行期间，用LoadPicture函数把图形文件装入 12、在设计一个倒计时标牌时，必须要使用的控件是( )。（1分） A、滚动条 C、计时器 B、图片框 D、文本框 13、下列表达式中，不合法的是( )。（1分） A、AB + 123 C、AB & \ B、AB & 123 D、AB + \ 14、能正确判断字符型变量stra是字母字符（不区分大小写字母）的表达式是( )。（1分） A、UCase (stra) >= \ C、LCase (stra) >= \ B、UCase (stra) >= \ D、LCase (stra) >= \ 15、表达式16 / 4 - 2 * 3 Mod 5的值为( )。（1分） A、1 C、2 B、-1 D、3 16、若 a=9.8596，则执行 Print Format(a,\后，显示的结果是( )。（1分） A、0,009.86 C、9.86 B、$9.86 D、$0,009.86 17、在通用声明段中可使用( )语句来强制显示声明所有变量。（1分） A、Option Base 1 C、Type 数据类型名 B、Option Explicit D、DefDbl 18、设a,b为整型变量，且均不为0，下列关系表达式中恒成立的是( )。（1分） A、a * b / a * b = 1 C、a \\ b * b + a Mod b = a B、a * b \\ b * a = 1 D、a \\ b * b = a 19、已知 Const C=\，则执行 Print Len(C);Len(D) 后，输出结果为( )。（1分） A、Wang a C、1 1 B、4 1 D、重复定义，程序出错 20、以下( )语句可表示[50,100]之间的随机数。（1分） A、Int(Rnd * 51) + 49 C、Int(Rnd * 50) + 5 B、Int(Rnd * 51 +50) D、Int(Rnd * 50 + 50) 21、函数Int(-9.6)和Int(10.6)的值分别为( )。（1分） A、-10 和 10 C、-9 和 10 B、-10 和 11 D、-9 和 11 22、表达式Mid(\的结果为( )。（1分） A、AAA C、C B、ABC D、CCC 23、日期型常量用( )作为界定符。（1分） A、\ C、# B、% D、& 24、定义变量时如不指定类型，该变量为( )变量。（1分） A、Integer C、Variant B、String D、Single 25、DateDiff(\的结果是( )。（1分） A、0 C、-1 B、1 D、2 26、下列语句中，具有“计数”功能的语句是( )。（1分） A、x=x+1 C、x=x+x B、x+1=x D、x=1 27、语句段A=3: B=5:T=a：a=b: b=t执行后( )。（1分） A、a值为3，b值为3 C、a值为5，b值为5 B、a值为3，b值为5 D、a值为5，b值为3 28、下列程序段Dim x, y As Integer: x = 5:y = -6: If Not x > 0 Then: x = y – 3: Else: Y = x + 3: End If: MsgBox(Str(x - y) + \的执行结果为( )。（1分） A、–3 3 C、3 -3 B、5 -9 D、-6 5 29、当VB执行下面语句，A=1 ：If A>0 Then A=A+1： If A>1 Then A=0后A的值为( )。（1分） A、0 C、2 B、1 D、3 30、对于InputBox函数，下列说法错误的是( )。（1分） A、InputBox函数可以指定默认值 C、InputBox函数返回的是字符型数据 B、InputBox函数返回的是数值型数据 D、函数值可以赋于一个变量，也可以不给任何变量赋值 31、假定有如下语句：s=inputbox(\请输入字符串\字符串对话框\字符串\，执行该语句后，输入“等级考试”并单击“确定”，则变量s的内容是( )。（1分） A、请输入字符串 C、字符串 B、字符串对话框 D、等级考试 32、对话框MsgBox作为函数，其返回值一般为( )。（1分） A、Integer C、Variant B、String D、Single 33、执行 MsgBox \过程后，在信息框中显示的提示信息为( )。（1分） A、aaa3bbb C、aaa7bbb B、aaa4bbb D、aaa123+321bbb 34、运行下列程序段Dim m%, n%: For m = 1 To 3: For n = 1 To 6 Step 2: n = n + 1: Print n: Next: Next，其中“n=n+1”语句被执行的次数是( )。（1分） A、3 C、9 B、6 D、18 35、下列语句中，不可以实现进入循环体中执行循环操作的是( )。（1分） A、For x=3 To 5 Step 10 C、For x=3 To 10 Step 0 B、For x=3 To 20 step 10 D、For x=3 To 1 36、假定有循环结构“ Do Until <条件> : 循环体 : Loop ”，则正确的描述是( )。（1分） A、如果“条件”是一个为0的常数，则循环体一次也不执B、如果“条件”是一个为0的常数，则至少执行一次循环行 C、如果“条件”是一个不为0的常数，则至少执行一次循环体 体 D、不论“条件”是否为\真\，至少要执行一次循环体 37、若有 k = 10，则执行循环结构 Do Until k <= 0: k = k - 1: Loop 后，k 的值是( )。（1分） A、-1 C、1 B、0 D、负无穷大 38、在Visual Basic中，能正确描述条件“x>y和y>z同时成立”的表达式是( )。（1分） A、x>y.and.y>z C、x>yand>z B、x>y>z D、x>y and y>z 39、设a为整型变量，不能正确表达数学关系10 < a < 15的VB表达式是( )。（1分） A、10 < a < 15 C、a > 10 And a < 15 B、a = 11 Or a = 12 Or a = 13 Or a = 14 D、Not ( a<= 10) And Not ( a >=15) 40、如果变量nop的值为6，则函数 Choose(nop, \春\夏\秋\冬\的返回值为( )。（1分） A、春 C、Nop B、冬 D、Null 41、设a=6，则执行 x = IIf(a > 5, -1, 0) 后，x的值为( )。（1分） A、5 C、0 B、6 D、-1 42、在VB循环体中，用于退出当前循环语句的辅助控制语句是( )。（1分） A、Exit C、Close B、End D、Edit 43、要退出Do?Loop循环，可使用的语句是( )语句。（1分） A、Exit C、Exit Do B、Exit For D、End Do 44、在默认情况下，下列能代表数组A中第5个元素的是( )。（1分） A、A[4] B、A(4) C、A(5) D、A(6) 45、使用语句Dim A(2) As Integer 声明数组A之后，以下说法中，正确的是( )。（1分） A、A数组中的所有元素值都不确定 C、A数组中所有元素值都为Empty B、A数组中的所有元素值为0 D、执行Erase A后，A数组中所有元素值都不为0 46、运行下列程序，Option Base 0: Private Sub Form_Click(): Dim a: Dim i As Integer: a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9): For i = 1 To 3: Print a(5 - i);: Next i: End Sub，单击窗体后输出结果是( )。（1分） A、3 2 1 C、5 4 3 B、4 3 2 D、6 5 4 47、窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click(): Dim a(10): For j = 6 To 10: a(j)= j - 5: Next j: Text1.Text = a(0) + a(a(10) / a(6)): End Sub，运行时，单击按钮，Text1中显示( )。（1分） A、0 C、2 B、1 D、3 48、设有如下程序：Option Base 0:Private Sub Form_Click(): Dim a: Dim i As Integer:a=Array(1,2,3,4,5,6,7,8,9): For i=0 To 3: Print a(5-i);: Next: End Sub,程序运行后，单击窗体，则在窗体上显示的是( )。（1分） A、4 3 2 1 C、6 5 4 3 B、5 4 3 2 D、7 6 5 4 49、下列叙述中，错误的叙述是( )。（1分） A、一个应用程序可以只有一个窗体 C、一个窗体一定对应一个窗体文件，所以一个应用程序只能包含一个窗体 B、一个应用程序通常由多个窗体组成 D、一个应用程序只能有一个启动窗体 50、当窗体被加载时运行，发生的事件是( )。（1分） A、Load C、Resize B、Unload D、Click 二、填空题（6道小题，共30分） 1、* 输出Fibonacci数列1，1，2，3，5，8，?的前20项。 * 程序代码如下： Private Sub Command1_Click() Dim s%, a%, b%, c% a = 1 b = 1 Print a Print b For = 3 To 20

= a + b Print c a=b b=c Next i End Sub （4分） 2、* 使用双循环实现正三角形输出 * $$$ ***** $$$$$$$ ********* * 程序代码如下： Private Sub Command1_Click() For i = 1 To 5 Print Tab(25 - i ); For j = 1 To 2 * i - 1 If i Mod 2 =1 Then Print \Next j Print Next i End Sub （4分） \\3、* 用随机函数产生n个10～99之间的随机整数存入一维数组A，通过键盘输入X，然后在数组中查找。如果找到了，则给出“找到”信息，否则，把这个数X插入到数组中的最后。 Private Sub Form_Click() Dim n As Integer, a(100) As Integer Dim x As Integer, i As Integer Dim flag As Boolean n = InputBox(\For i = 1 To a(i) = Int(90 * Rnd + 10) Print a(i); Next i: Print x = InputBox(\Print \ = False For i = 1 To n If a(i) = x Then flag = True Exit For End If Next i If Not flag Then n=n + 1 a(n) = x For i = 1 To n Print a(i); Next i Else Print \找到\End If End Sub （4分） 4、* 设计一文本框属性设置程序，如图{<4-1.jpg>} * 在“系统登录”窗体中，输入正确的用户名和以“@”显示的密码。若两者输入都正确则显示图片框，并且在图片框中显示“you are welcome！！！”；否则，若密码错误，则清空text2并且光标回到text2中；其他情况，则清空Text1和Text2。 '4-1.jpg Private Sub Form_Load() Text1 = \Text2 = \Text2.= \Picture1.End Sub = False Picture1.AutoRedraw = True Private Sub Command1_Click() If Text1 = \Picture1.Visible = True Picture1.Print \ElseIf Text1 = \MsgBox \密码错，请重新输入！\Text2 = \Text2.Else MsgBox \请重新输入！\Text1 = \Text2 = \End If End Sub （【下载文件“4-1.jpg”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （6分） 5、* 参照图{<8-1.jpg>}，完善下列程序。 * 在文本框Text1中输入英文句子，将其全部转换成对应小写字符在文本框Text2中显示。 '8-1.jpg Private Sub Form_Load() Text1 = \Text2 = \End Sub Private Sub _ KeyPress(KeyAscii As Integer) If >= Asc(\Text2 = Text2 + Chr(KeyAscii Else Text2 = Text2 + Chr(KeyAscii) End If End Sub 32) （【下载文件“8-1.jpg”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （6分） 6、* 编写一个显示图片的程序，如图{}所示。 * 运行过程： * 1.单击图片1按钮（Command1），Image1中显示图片信息， * 2.单击隐藏按钮（Command2），图片隐藏，按钮文本变为“显示”；单击显示按钮（Command2），图片显示，按钮文本变为隐藏。 * 3.单击清除按钮（Command3）清除Image1中的图片 'x_28.jpg Private Sub Command1_Click() Image1.Picture = End Sub Private Sub Command2_Click() (\If Command2.Image1.Visible = False Command2.Caption = \显示\Else Image1.Visible = True = \隐藏\.Caption = \隐藏\End If End Sub Private Sub Command3_Click() Image1.Picture = LoadPicture(\End Sub （【下载文件“x_28.jpg”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （6分） 三、编程题（2道小题，共20分） 1、* 编写程序，求下面数列前10项的和。 -1!,2!,-3!,...,(-1)^n*(n!)，其中的^表示次方。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 2、* 一个5位整数，它本身可以被7整除，它的前4位数码组成的数可以被8整除，前3位数码组成的数可以被9整除，请编程计算符合该条件的所有数据、并统计输出它们的个数。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序

请将你解答本题所写的源程序粘贴到下面或者上载源程序 2、* 一个5位整数，它本身可以被7整除，它的前4位数码组成的数可以被8整除，前3位数码组成的数可以被9整除，请编程计算符合该条件的所有数据、并统计输出它们的个数。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序

本文来源：https://www.bwwdw.com/article/aomr.html