A.4321
B.5432
C.6543
D.7654
设有如下程序:
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)
Min = ______
For i = 2 To 8
If arr1(i) < Min Then______
Next
Print "最小值是:"; Min
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。
arr1(1) min=arr1(i)
有如下程序:
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum=0
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
End If
Next i
End Sub
程序运行后,单击窗体,消息框的输出结果为( )。
下面程序:________Option Base 1Private Sub Command1_Click() Dim a(10),p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。
A.33
B.28
C.35
D.37
下列程序共执行了______次循环。Private Sub Command1_ Click () Dim intsum As Integer Dim i AS Integer Dim j As Integer i = 1 j = 1 do do intsum = intsum + j =j+2 Print j; Loop until j >3 i = i+1 Loop until i>17 Print Print intsumEnd Sub
A.14
B.15
C.14
D.13
一、单项选择题(共 30 题、共 60 分)得分:48 分1.设有如下程序: 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 程序运行后,单击窗体,则在窗体上显示的内容是_。A、5 4 3 2 B、6 5 4 3 C、7 6 5 4D、4 3 2 1答案正确得分22.在文本框Text1中输入“(hello)”,则输出结果为( )。Private Sub Text1_KeyPress(KeyAscii As Integer)Dim count1%If Chr(KeyAscii) = ( Thencount1 = count1 + 1ElseIfChr(KeyAscii) = ) Thencount1 = count1 - 1End IfIf KeyAscii = 13 ThenIf count1 = 0 ThenPrint 左右括号配对ElseIf count1 0 ThenPrint 左括号多于右括号; count1; 个ElsePrint 右括号多于左括号; -count1; 个End IfEnd IfEnd SubA、左括号多于右括号B、右括号多于左括号C、程序出错D、左右括号配对答案正确得分23.下列程序段的执行结果为( )。a=100:b=50If ab Thena=a-belseb=b+aEnd ifPrint aA、50B、100C、200D、10答案错误得分04.复选框的value属性为1时,表示( )。A、复选框被选中 B、复选框内右灰色的勾C、复选框操作有错误D、复选框未被选中 答案错误得分05.下面的子过程语句说明合法的是_。A、 Sub fib(j%) As IntegerB、Function f%(f%) C、Function f1!(ByVal n%)D、Sub fib(ByRef i%() 答案正确得分26.下列选项中叙述正确的是( )。A、Select Case语句中的条件表达式只能是数值表达式或者字符表达式B、在执行Select Case语句时,所有的Case子句都按出现的次序被顺序执行C、Select Case语句的测试表达式会多次计算D、Select Case语句中的条件表达式可以是任何形式的表达式答案错误得分07.关于VB描述错误的是( )。A、VB是面向过程的程序设计语言B、VB具有事件驱动的编程机制C、VB的工具箱窗口由被绘制成按钮形式的图标构成。D、VB集成开发环境是一组软件工具,集应用程序的设计、编辑、运行调试等于一体答案正确得分28.下列程序执行后,变量x的值为() Dim a , b , c , d , x As Single a = 200 : b = 100 : c = 500 If b a Then d = a : a = b : b = d End If If b c Then x = b ElseIf a c Then x = c Else x = a End If Print xA、100B、200C、500D、0答案正确得分29.以下语句输出结果是( )。Private Sub Form_Click()A=Beijing b=ShangHai Print a;bEnd SubA、AbeijingShangHaiB、BeijingShangHaiC、AbeijingD、Beijing ShangHai答案正确得分210.在使用菜单编辑器设计菜单时,必须输入的项是( )。A、名称 B、索引 C、快捷键D、标题 答案正确得分211.对象的属性用来描述对象的特征,它们是一组( )。A、程序B、属性名C、操作D、数据答案正确得分212.表达x大于10且小于100的关系表达式为()。A、10x10 and xx10 or x100 答案正确得分213.可用于设置系统当前时间的语句是( )。A、Date$B、TimeC、TimerD、Date答案错误得分014.有如下事件过程,程序的功能是()。 Private Sub Commandl _Click ( ) S1=0: S2=0 M1=0: M2=0 N=1 Do while N b Then t = a : a = b : b = t If a c Then t = a : a = c : c = t If b c Then t = b : b = c : c = t Print a , b , c End Sub 程序运行后,单击命令按钮,依次在输入对话框中输入10、5、20,则输入结果为()A、51020B、10520C、20510D、20105答案错误得分026.要禁用计时器控件,需要设置为False的属性是( )。A、VisibaleB、TimerC、IntervalD、Enable答案正确得分227.要将一个组合框设置为简单组合框(Simple Combo),则应将其Style属性设置为( )。A、1B、2C、3D、0答案正确得分228.在过程定义中用 ( )表示形参的传值方式。A、ByRef B、ByVal C、ValueD、Var答案正确得分229.图像框根据加载的图像的大小调整尺寸,需要设置为False的属性是( )。A、StretchB、Picture C
设有如下程序: Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n< 10 Then Call,GetArray(a, n) End If End Sub Private Sub GetArray(b() As Integer, n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i) /2 =b(i) \2 Then j=j + 1 c(j) = b(i) End If Next Print j End Sub 以下叙述中错误的是
A.数组b中的偶数被保存在数组c中
B.程序运行结束时,在窗体上显示的是c数组中元素的个数
C.GetArray过程的参数n是按值传送的
D.如果输入的数据大于10,则窗体上不显示任何信息
有如下程序: Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3<>0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后,单击窗体,输出结果为
A.12
B.30
C.24
D.18
设有如下程序: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n<10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=Clnt(Rnd()*100) Ifb(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下叙述中错误的是( )。
A.数组b中的偶数被保存在数组C中
B.程序运行结束时,在窗体上显示的是c数组中元素的个数
C.GetArray过程的参数n是按值传送的
D.如果输入的数据大于10,则窗体上不显示任何信息
设有如下程序: 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 程序运行后,单击窗体,则在窗体上显示的是( )。
A.4 3 2 1
B.5 4 3 2
C.6 5 4 3
D.7 6 5 4
设有如下程序: 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 程序运行后,单击窗体,则在窗体上显示的是
A.4 3 21
B.543 2
C.6 54 3
D.7 6 54