VB考试一1、能够获得一个文本框中被选取文本的内容的属性是______。
A：SelStart B：SelLength C：SelText D：Text参考答案：C2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。
A：Text1.Enabled = False B：Text1.HideC：Text1.Clear D：Text1.Visible = False参考答案：D3、对于语句If x=1 Then y=1, 下列说法正确的是____。
A：x=1和y=1 均为赋值语句B：x=1和y=1 均为关系表达式C：x=1为赋值语句，y=1为关系表达式D：x=1为关系表达式，y=1 为赋值语句参考答案：D4、以下变量名中，______是不符合Visual Basic的命名规范的。
A：_mnu_Open_234 B：Abc901 C：price_ D：K参考答案：A5、MsgBox 函数返回值的类型是__________。
A：数值或字符串 B：字符串C：变体D：整型数值参考答案：D6、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。
A：进入中断模式B：进入运行模式C：进入设计模式D：不用进入任何模式参考答案：A7、设a=6，则执行x=IIF(a>5,-1,0) 后，x的值为______。
A：-1 B：6 C：0 D：5参考答案：A8、可以同时删除字符前导和尾部空白的函数是______。
A：Mid B：Rtrim C：Trim D：Ltrim参考答案：C9、以下语句的输出结果是______。
Print Format$("32548.5","000,000.00")A：32,548.5 B：32548.5 C：032,548.50 D：32,548.50参考答案：C10、设有如下声明：Dim X As Integer如果Sgn(X)的值为-1，则X的值是______。
A：等于0的整数B：大于0的整数C：整数D：小于0的整数参考答案：D11、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是______。
参考答案：15# 15 #15 #1512、执行下面的程序段后，S的值为______。
s=5For i=2.6 To 4.9 Step 0.6s=s+1Next i参考答案：913、下列表达式有错误,正确的写法应该是______。
[(a+b)+c]/80-5÷(d+e)参考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e）14、表示x 是5的倍数或是9的倍数的逻辑表达式为__________参考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 015、以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。
请填空。
Private Sub Form_click()Dim x, y As SingleDim z As Integerx = InputBox("Enter a score")Do while x>=0y = y + xz = z + 1x = InputBox("Enter a score")LoopIf z = 0 Thenz = 1End Ify = ______Print yEnd Sub参考答案：y/zVB考试二1、列表框中的列表项的数目可以通过以下哪个属性的值获得______。
A：ListIndex B：ListCount C：Count D：Index参考答案：B2、在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。
列表框中显示若干城市的名称。
当单击列表框中的某个城市名时，在标签中显示选中城市的名称。
下列能正确实现上述功能的程序是______。
A：Private Sub List1_Click()Label1.Caption=List1.TextEnd SubB：Private Sub List1_Click()=List1.ListIndexEnd SubC：Private Sub List1_Click()=List1.TextEnd SubD：Private Sub List1_Click()Label1.Caption=List1.ListIndexEnd Sub参考答案：A3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
A：Listindex B：Index C：List D：Tabindex参考答案：A4、为了清除列表框中的所有内容，应使用的方法是：______。
A：Clear B：Remove C：RemoveItem D：Cls参考答案：A5、在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为______。
A：For i=1 To List1.ListCount……NEXTB：For i=0 To List1.Count-1……NEXTC：For i=0 To List1.ListCount-1……NEXTD：For i=1 To List1.Count……NEXT参考答案：C6、设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For i = 0 To 3Print a(5 - i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是______。
A：6 5 4 3 B：5 4 3 2 C：4 3 2 1 D：7 6 5 4参考答案：A7、设执行以下程序段时依次输入1、3、5，执行结果为______。
Dim a(4) As Integer, b(4) As IntegerFor K = 0 To 2a(K + 1) = Val(InputBox("请输入数据"))b(3 - K) = a(K + 1)Next KPrint b(K)A：0 B：3 C：5 D：1参考答案：D8、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10) As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是______。
A： 1 2 34 5 67 8 9B： 2 3 43 4 54 5 6C： 1 4 72 5 83 6 9D： 1 2 32 4 63 6 9参考答案：A9、用下面的语句所定义的数组的元素个数是：______。
Dim arr(3 To 5,-2 to 2)A：24 B：12 C：15 D：20参考答案：C10、下列______语句可以为动态数组分配实际元素个数。
A：static语句B：Dim语句C：public语句D：ReDim语句参考答案：D11、假定程序中有以下语句：answer = MsgBox("String1",,"String2","String3",2)执行该语句后，将显示一个信息框，此时如果单击"确定"按钮，则answer的值为：______。
A：String3 B：String2 C：String1 D：1参考答案：D12、设有语句x=InputBox("输入数值","0","示例")程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是______。
A：0是默认值B：变量X的值是字符串"10"C：在InputBox对话框标题栏中显示的是"示例"D：变量X的值是数值10参考答案：B13、以下程序段运行的结果是：______。
Dim a(-1 To 5) As BooleanDim flag As Booleanflag = FalseDim i As IntegerDim j As IntegerDo Until flag = TrueFor i = -1 To 5j = j + 1If a(i) = False Thena(i) = TrueExit ForEnd IfIf i = 5 Thenflag = TrueEnd IfNextLoopPrint jA：20 B：7 C：8 D：35参考答案：D14、设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为：______。
x= IIF((a>b) And (c<d),10,20)A：300 B：20 C：30 D：10参考答案：B15、要将一个组合框设置为简单组合框（Simple Combo），则应将其Style属性设置为______。
A：0 B：1 C：3 D：2参考答案：BVB考试三1、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是______。
A：Combo1.RemoveItem Combo1.ListcountB：Combo1.RemoveItem 2C：Combo1.RemoveItem 3D：Combo1.RemoveItem Text参考答案：B 题分：62、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：Function Func(ByVal x As Integer, y As Integer)y = x * yIf y > 0 ThenFunc = xElseFunc = yEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 3b = 4c = Func(a, b)Print "a="; aPrint "b="; bPrint "c="; cEnd Sub程序运行后，单击命令按钮，其输出结果为：______。