中专VB问题

教务一体化系统

VB % E8 % 80 % E8 % af % 95 % E7 % bb % 83 % E4 % B9 % A0 % e9 % a2 % 28 % e9 % 99 % E6 % ad % a3 % E7 % a1 % aa 209 % a2 % 05 % b8 % b8 % e9 % 87 % 8f % E5 % 9c % A8 % E7 % A8 % 8b % E5 % ba % 8f % E6 % a7 % E8 % a1 % 8c % E6 % 9c % e9 % 97 % 20 % 20 % 20 5 % 9e % 8b % E5 % b8 % e9 % 8f % 2c % E6 % 95 % b5 % b8 % b8 % e9 % 87 % 8f % 2c % E6 % E6 % 97 % a5 % 20 % E5 % B0 % 94 % E5 a3 % E8 % a1 % A8 % E4 % b8 % E4 % b8 % aa % E5 % b8 % b8 % E6 % b5 % B2C % E5 % a5 % BD % E8 % B1 % a1 % 20 % ad % 97 % 2c % % 92 % 8c % E5 % 8f % 98 % e9 % 87 % E7 % 9a % 84 % E4 % BD % BF % E7 % 94 % A8 % E6 % B2 % a1 % E6 % 20e5% b8 % b8 % e9 % 87 % B1 % bb % E5 % 9e8% af % B4 % E6 % 98 % E7 % AC % a6 % E6 % 9d % a5 % E6 % A0 % 87 % E8 % 20 % a1 % A8 % E7 % a4 % ba % E8 % E8 % 98 % E6 % B3 % E7 % 9a % E6 % 95 % B4 % E5 % b8 % b8 % b8 % E6 % 95 % B0 % 20 % 94 % AE % E5 % ad % 97 % E4 % b8 % ad % 2c % E4 % ad 8 % E8 % be % BC %8F16 %2F4-2 % 5e5%2A8 %2F4 % 20 mod % 205 %5C2 % ee2 % 20 % 202 % 207.% E7 % 94 % A8 % E5 % 8d % 81 % 81 % E5 % 8a0% E4 % b8 % E7 % 9a % 84 % E7 % AC % a6 % E5 % 8f % B7 % E6 % 98 % af _ % 5c % 206 % 9c % 9f % E5 % 9e % 8b % % B3 % E7 % B3 % bb % E5 % BC % 8f3 % E2 % a4 X10 % E8 % a1 % A8 % E7 % a4 % ba % E6 % 88 % 20 _.% 20a.% 203 % 3dx % 3dx % % 0aa.% 20x % 20y % 3d 30 % 20b.% 20pi % 2ar % 2ar % 3dy % 20c.% 20y % 3dx % 2030 % 20d.% 20x % 25 % 20 % BF % 90 % E7 20d.% 20 % 2a % 2012.% E8 % a1 % A8 % E8 % be % b5 % BC % 8f ASC % 28 % 27f % 27 % E7 % 9a % 84 % E7 % B1 % bb % 25 % 20 % e % E5 % BC % 8f % 2013.% E4 % b8 % e9 % a2 % E8 % af % E5 % a5 % E4 % b8 % ad % E6 % e9 % E6 % 9c % e9 % 25 % 20n % 28-1 205.8 % E7 % 9a % 84 % E8 % BF % 90 % E7 % ae7 % bb % 93 % E6 % 9c % E5 % 88 % ab % E6 % 98 % af % 20. % 203.9655 % % 20 and % 20bc % 20 % E7 % 9a % 84 % E5 % 80 % BC % E4 % b8 % ba _ a _.% 20a.% 20 true % 20b.% 20 false % 20 % 9a % 80 bb % 99x % 2cy % 2cz % E4 % b8 % 89 % E4 % b8 % aa % E5 % 8f % e9 % 87f % E8 % b5 % E5 % 88 % ad % E5 % 20 E8 % af % ad % E5 % E5 % ad % ad % E5 % E5 % ad 7 % B1 % bb % E8 % BF % 90 % E7 % AE % 97 % E7 % AC % a6 % 2c % E4 % BC % 98 % E5 % 85 % E7 % ba % a7 % E6

3的值为___ A ____. A. True B. False C. 表达式有错 D. 条件不足 39.在窗体模块的声明段中声明变量时,不能使用的关键字是___ D ____. A. Private B. Public C. Dim D. Static

40.选拔身高T超过1.7米且体重W小于62.5公斤的人,表示该条件的表达式为___ C ____. A. T=62.5 B. T>1.7 Or W1.7 And W41.在过程内部定义的局部变量,仅在声明它的___ B ____中有效. A. 方法 B. 过程 C. 属性 D. 对象 42.假设A="Good Morning.",B="Afternoon,Boys.",下列表达式中结果是"Good Boys."的是_ A__.

A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5) C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5) 43.下列关于变体类型的描述,其中正确的是___ C ____. A. 变体是一种没有类型的数据 B. 变体的空值就表示该变体的值为0

C. 一个变量没有定义就赋值,该变量即为变体类型

D. 变体是赋给变量某一种类型数据后,就不能再赋给它另一类型的数值 44.下列程序段的运行结果为____B___. For i=3 To 1 Step -1 Print Space(5-i); For j=1 To 2*i-1 Print "*"; Next j Print Next i

A. * B. ***** C. ***** D. ***** *** *** *** *** ***** * * *

45.执行 PRINT 18/2*3,-3^2 命令后,输出结果为___C___. A. 3 9 B. 3 -9 C. 27 -9 D. -9 27 46.执行 PRINT 9.4\3.7,9.4 MOD 3.7 命令后,输出结果为___ A ____. A. 2 1 B. 3 0 C. 2 20 D. 1 2 47.运行以下程序段后,输出结果为___ C ____. x%=1/4

y%=11/4

PRINT x%;y%

A. 0.25 0.75 B. 0 2 C. 0 3 D. 1 3

48.窗体里有两个对象,分别是图片框Picture1和标签Label1,下面关于Print方法的使用中,错误的一条是___ D ____. A. Picture1.Print 147 B. Print 147 C. Printer.Print 147 D. Label1.Print 147 49.下面的___ B ____语句可以实现:先在窗体上输出大写字母A,然后在同一行的第10列输出小写字母b.

A. Print "A";Tab(9);"b" B. Print "A";Tab(10);"b" C. Print "A";Space(10);"b" D. Print "A";Tab(8);"b" 50.阅读下面的程序段: n1=InputBox("请输入第一个数:") n2=InputBox("请输入第二个数:") Print n1+n2

当输入分别为111和222时,程序输出为___ A ____. A. 111222 B. 222 C. 333 D. 程序出错 51.语句Print Format("HELLO", "<")的输出结果是____ B ___. A. HELLO B. hello C. He D. he 52.设a=2:b=0,则语句 Print (a=2) And (b=-2) 的输出结果是___ D ____. A. True B. 结果不确定 C. -1 D. False 53.以下程序段运行后,输出字符的排列顺序是___ D ____. For i=1 To 6

If i Mod 2=0 Then Print "#"; Else

Print "*"; End If Next i

A. #*#*# B. ##### C. ***** D. *#*#*# 54.用MsgBox函数显示的对话框,以下叙述正确的是___ D ____. A. 该对话框有一个"确定"按钮

B. 该对话框有"是","否"两个按钮 C. 该对话框有"是","否","取消"三个按钮 D. 该对话框通过选择参数可以得到以上不同的的按钮组合 55.与语句Dim abc%作用相同的语句是___ A ____. A. Dim abc As Integer B. Dim abc As Long C. Dim abc As String D. Dim abc As Date 56.设a=1,b=2,c=3,d=4,则表达式IIf(a5,-1,0)后,x的值为___ D___. A. 5 B. 6 C. 0 D. -1 71.表达式Int(5*Rnd+1)* Int(5*Rnd-1) 值的范围是___ D____. A. [0,15] B. [-1,15] C. [-4,15] D. [-5,15] 72.可以同时删除字符串前导和尾部空格的函数是___C____. A. Ltrim B. Rtrim C. Trim D. Mid

73.当函数MsgBox返回值为1,对应的符号常量是vbOK,那么此时表示用户做的操作是___ A___.

A. 用户单击了对话框中的"确定"按钮 B. 用户单击了对话框中的"取消"按钮 C. 用户单击了对话框中的"是"按钮 D. 用户单击了对话框中的"否"按钮 74.函数Int(Rnd*5)+1产生的随机整数的范围是___D____. A. [0,6] B. [1,6] C. [0,5] D. [1,5] 75.在VB中,InputBox函数的默认返回值类型为字符串,用InputBox函数输入数值型数据时,下列操作中可以有效防止程序出错的操作是___A____.

A. 在函数InputBox前面使用Val函数进行类型转换 B. 在函数InputBox前面使用Str函数进行类型转换 C. 在函数InputBox前面使用Value函数进行类型转换 D. 在函数InputBox前面使用String函数进行类型转换

76.已知a="12345678",则表达式Right(a, 4) + Mid(a, 3, 2)的值是___B____. A. "123445" B. "567834" C. 123445 D. 567834 77.表达式Len("123程序设计ABC")的值是___A____. A. 10 B. 14 C. 20 D. 17 78.赋值语句g = 123 + Mid("123456", 3, 2)执行后,变量g中的值是___D____. A. "12334" B. 123 C. 12334 D. 157

79.如果x是一个正实数,对x的第3位小数四舍五入的表达式是___B____.

A. 0.01 * Int(x + 0.005) B. 0.01 * Int(100 * (x + 0.005)) C. 0.01 * Int(100 * (x + 0.05)) D. 0.01 * Int(x + 0.05) 80.以下程序执行后,输出的结果是___A____. m$="123" n$="456"

k$=LCASE$(m$) j$=UCASE$(n$) Print k$ , j$

A. 123 456 B. !@#$%^ C. 49 52 D. 33 36 81.MsgBox函数的返回值的类型是___A____. A. 整型 B. 字符串 C. 逻辑值 D. 日期型 82.A=5,B=8,则(B-A)*Rnd+A的结果是介于___A____之间的数. A. 5～8 B. 0～5 C. 3～5 D. 0～3 83.使用下列语句:Dim x(1 to 10,3) As Single,则数组占用内存空间的字节数是___C____. A. 132 B. 80 C. 160 D. 120 84.用Select Case语句选择|x|10 D. Is 10

85.若x=1,执行语句If x Then x = 0 Else x = 1的结果是__D_____. A. 实时错误 B. 编译错误 C. x=1 D. x=0 86.以下程序代码能执行的是___C____.

A. If a=1 Then b=0 Else c=0 End If B. If a=1 Then : B=0: ElseIf C=0 Then : D=0 C. If a = 1 Then b = 0

ElseIf c = 0 Then d = 0 End If

D. If a = 1 Then b = 0 Else If c = 0 d = 0 End If

87.下列程序段的循环结构执行后,i的输出值是___C____. Dim y as Integer For i = 1 To 10 Step 2 y = y + i

Next i Print i

A. 25 B. 10 C. 11 D. 因为y初值不知道,所以不确定

88.循环结构 For i = 1 To 10 Step 1.5 的执行次数是___A____. A. 7 B. 8 C. 9 D. 10 89.下列结构中不属于循环结构的是___C____.

A. For/Next B. While/Wend C. With/End With D. Do/Loop 90.下列结构中不属于分支结构的是___ C____. A. If/End If B. Select Case/End Select C. With/End With D. If/Else/End If 91.以下程序段的运行结果是___ D____. Private Sub Form_Click() m = 1 n = 1 Do

m = m * n n = n + 1 Loop Until n > 4 Print m End Sub

A. 25 B. 45 C. 55 D. 24 92.以下程序段的运行结果是___A____. Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f = 1 n = 4

For i = 1 To n f = f * i s = s + f Next i

Print "s="; s End Sub

A. 33 B. 34 C. 35 D. 36 93.以下程序段的运行结果是___B____. Private Sub Form_Click() Dim I As Integer, X As String, Y As String X = "ABCDEFG" For I = 4 To 1 Step -1 Y = Y + Mid(X, I, 1) Next I Print Y End Sub

A. ABCD B. DCBA C. DEFG D. GFED 94.以下程序段的运行结果是__C__. Private Sub Form_Click() Dim b As Integer, k As Integer b = 1 For k = 1 To 5 b = b * k

If b >= 15 Then Exit For End If Next k

Print k, b End Sub

A. 3 15 B. 2 12 C. 4 24 D. 5 15 95.以下程序段的运行结果是___ A____. Private Sub Form_Click() a = 1 b = a

Do Until a >= 5 X = a * b

Print Str(a) & "*" & Str(b) & "="; Str(X), a = a + b b = b + a Loop

End Sub

A. 1*1=1 2*3=6 B. 1*1=2 2*2=4 C. 1*1=1 3*3=9 D. 1*1=2 3*2=6 96.以下程序段的运行结果是___B____. Private Sub Form_Click() x = "abcdef"

y = Asc("b") - Asc("a") z = Len(x) Print y,z End Sub

A. 1 2 B. 1 6 C. 2 2 D. 2 6 97.下面程序段运行后,显示的结果是___A____. Dim x

If x Then Print x Else Print x+1 A. 1 B. 0 C. -1 D. 显示出错信息 98.运行下列程序段,显示的结果是___A____. x=Int(Rnd)+5 Select Case x Case 5

Print "优秀" Case 4 Print "良好" Case 3

Print "通过" Case Else Print "不通过" End Select A. 优秀 B. 良好 C. 通过 D. 不通过

99.下列If语句统计满足性别为男,职称为副教授以上,年龄小于40岁条件的人数,不正确的语句是___D___. A. If sex=〃男〃And age0 Then n=n+1 B. If sex=〃男〃And ageC. If sex=〃男〃And age

D. If sex=〃男〃And agey,x,y) B. If x>y Then Max=x Else Max=y C. Max=x If y>=x Then Max=y D. If y>=x Then Max=y Max=x

101.以下正确的程序段是___ B___.

A. For x=1 To Step 10 B. For x=3 To -3 Step -3 ... ... Next x Next x

C. For x=1 To 10 D. For x=10 To 1 re: ... ... Next x Next y

If i=10 Then GoTo re 102.下列循环能正常结束的是___C____. A. i=5 B. i=1 DO DO

i=i+1 i=i+2

Loop Until i10 Loop Until i=1 103.若要退出For循环,可使用的语句为____D___. A. Exit B. Exit Do C. Time D. Exit For 104.当a=1,b=3,c=5,d=4时,执行下面一段程序后,x的值为___B___. If aIf cx=1 Else x=2

End If Else If c0 y=x+1 Case Is=0 y=x+2

Case Else y=x+3

End Select Print x;y

A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5 106.下面程序段的作用是___D____. m=0:n=0

For i=1 To 10

x= Val(InputBox("请输入x的值:")) If x>0 Then m=m+x

ElseIf x="副教授" AND A$="女" THEN N=N+1

D. IF A$="女" AND (B$="副教授" OR B$="教授") THEN N=N+1 110.以下程序段执行后,变量s,x的值分别为___ C____. Dim s As Integer, x As Integer s = 10: x = 1

Do While x c Then d = d + x(i) c = x(i) Else

d = d - c End If Next i Print d End Sub

程序运行后,单击命令按钮,输出结果是___C____. A. 89 B. 99 C. 23 D. 77 129.以下程序段的运行结果是__D__. Private Sub Form_Click() Dim ary(1 To 4) As Integer Dim i As Integer Dim sum As Integer sum = 1

For i = 1 To 4 ary(i) = i sum = sum + ary(i) Next i Print sum End Sub

A. 8 B. 9 C. 10 D. 11

130.下列语句声明的数组a包含的元素个数有___A____. Dim a(3 ,-2 to 2,5) A. 120 B. 75 C. 60 D. 13 131.以下程序输出的结果是___C____. Option Base 1 Private Sub Command1_Click() Dim a%(3,3)

For i=1 To 3 For j=1 To 3 a(i,j)=i*j Print a(i,j);〃〃; Next j

Print Next i End Sub

A.1 2 3 B.1 2 3 C.1 2 3 D.1 1 1 2 3 1 1 2 3 2 4 6 2 2 2 3 2 3 1 2 3 3 6 9 3 3 3 132.与语句Dim abc%作用相同的语句是___A____.

A. Dim abc As Integer B. Dim abc As Long C. Dim abc As String D. Dim abc As Date 133.定义数组A(1 to 5,5)后,下列哪一个数组元素不存在___C____. A. A(1,1) B. A(1,5) C. A(0,1) D. A(5,5)

134.在Visual Basic应用程序中,以下描述正确的是___B____. A. 过程的定义可以嵌套,但过程的调用不能嵌套 B. 过程的定义不可以嵌套,但过程的调用可以嵌套 C. 过程的定义和过程的调用均可以嵌套 D. 过程的定义和过程的调用均不可以嵌套

135.在在窗体上添加一个命令按钮Command1和一个文本框Text1,然后编写如下事件过程: Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub

Private Sub Command1_Click()

Dim x As Integer, y As Integer, z As Integer x = 5 y = 7 z = 0

Call p1(x, y, z) Text1.Text = Str(z) End Sub

程序运行后,单击命令按钮得到的结果是___B____. A. 0 B. 12 C. Str(z) D. 没有显示 136.假定有如下的Sub过程: Sub swapp(x As Single, y As Single) t = x

x = t / y y = t Mod y End Sub

在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 swapp a, b Print a, b End Sub 程序运行时,单击命令按钮得到的结果是___D__. A. 5 4 B. 1 1

C. 1.25 4 D. 1.25 1

137.运行下列程序,单击命令按钮后的结果是___C____. Function fun(a As Integer) b = 0 Static c b = b + 1 c = c + 1

fun = a + b + c End Function

Private Sub Command1_Click() Dim a As Integer a = 2

For i = 1 To 3 Sum = Sum + fun(a) Next i Print Sum End Sub

A. 24 B. 12 C. 15 D. 32 138.阅读程序: Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i

End Sub

Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 subp a For i = 1 To 4 Print a(i); Next i End Sub

程序运行时,单击命令按钮得到的结果是___A____. A. 2 4 6 8 B. 5 6 7 8 C. 10 12 14 16 D. 出错 139.假定有以下函数过程: Function func(a As Integer, b As Integer) As Integer func = a + b End Function

在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() p = func(10,20) Print p; End Sub

程序运行时,单击命令按钮得到的结果是___C____. A. 10 B. 20 C. 30 D. 40 140.假定有以下两个过程: Sub s1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t

End Sub

Sub s2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = t

End Sub

则以下说法中正确的是___B____.

A. 用过程S1可以实现交换两个变量的值的操作,S2不能实现 B. 用过程S2可以实现交换两个变量的值的操作,S1不能实现 C. 用过程S1和S2都可以实现交换两个变量的值的操作 D. 用过程S1和S2都不能实现交换两个变量的值的操作 141.假定有以下函数过程: Function Fun(S As String) As String Dim s1 As String

For i = 1 To Len(S)

s1 = UCase(Mid(S, i, 1)) + s1 Next i Fun = s1

End Function

在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim str1 As String, str2 As String str1 = InputBox("请输入一个字符串") str2 = Fun(str1) Print str2 End Sub

程序运行后,单击命令按钮,在输入对话框中输入字符串"abc",则输出结果为___D____. A. abc B. cba C. ABC D. CBA 142.在窗体上添加一个命令按钮Command1和两个名称分别为Label1和Label2的标签,在通用声明段声明变量x,并编写如下事件过程和Sub过程: Private x As Integer

Private Sub Command1_Click() x = 5: y = 3

Call proc(x, y) Label1.Caption = x Label2.Caption = y End Sub Sub proc(ByVal a As Integer, ByVal b As Integer) x = a * a y = b + b End Sub

程序运行后,单击命令按钮,则两个标签中显示的内容分别是___B____. A. 5和3 B. 25和3 C. 25和6 D. 5和6 143.下列程序输出结果为___A____. Private Sub Command1_Click() For i = 1 To 3 GetValue (i) Next i

Print GetValue(i) End Sub

Private Function GetValue(ByVal a As Integer) dim s As Integer s = s + a GetValue = s End Function

A. 4 B. 5 C. 10 D. 11 144.以下程序的运行结果是___C____.

Dim x As Integer, y As Integer, z As Integer Sub s2(a As Integer, ByVal b As Integer) a = 2 * a b = b + 2 End Sub

Private Sub Command1_Click() x = 4 y = 4

Call s2(x, y) Print x + y End Sub

A. 0 B. 8 C. 12 D. 14 145.以下程序的运行结果是___A____. Private Sub Command1_Click() Dim a(1 To 4) As Integer For i = 1 To 4 a(i) = i + 5 Print a(i); Next i

End Sub

A. 6 7 8 9 B. 12 14 16 18 C. 2 4 6 8 D. 1 2 3 4 146.以下程序的运行结果是___C____. Private Sub Form_Click() a = 1: b = 1

Print "A="; a; "B="; b Call mult(a, b) Print "A="; a; "B="; b End Sub Sub mult(x, y) x = 2 * x y = 3 * y End Sub

A. A=1 B=1 B. A=1 B=1 C. A=1 B=1 D. A=1 B=1 A=1 B=1 A=1 B=3 A=2 B=3 A=2 B=1 147.在窗体上添加一个命令按钮Command1和3个名称分别为Label1,Label2和Label3的标签,然后编写如下事件过程: Private x As Integer

Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10

z = n + z y = y + z x = x + z

Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub

程序运行后,连续3次单击命令按钮后,3个标签中显示的内容分别是___C____. A. 10 10 10 B. 30 30 30 C. 30 30 10 D. 10 30 30 148.在窗体上添加一个命令按钮和一个文本框,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next i

n = 10

Text1.Text = n + arr(5) End Sub

程序运行时,单击命令按钮,则文本框中显示内容是___B____. A. 10 B. 15 C. 25 D. 24 149.以下程序段的运行结果是___C____. Private Sub Form_Click() Dim x As Integer x = 3

Call abcd(x) Print x End Sub

Public Sub abcd(n As Integer) n = n + 5 End Sub

A. 3 B. 5 C. 8 D. 10

150.一个工程中包含两个名称分别为Form1和Form2的窗体,一个名称为mdlfunc的标准模块.假定Form1,Form2和mdlfunc中分别建立了自定义过程,其定义格式为: Form1中定义的过程: Private sub frmFunction1() ...

End Sub

Form2中定义的过程:

Public sub frmFunction2() ... End Sub

Md1func中定义的过程:

Public sub md1Function () ... End Sub

在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是___D____. A. 上述三个过程都可以在工程中的任何窗体或模块中被调用 B. frmFunction2和md1Function过程能够在工程中各个窗体或模块中被调用 C. 上述三个过程都只能在各自被定义的模块中调用 D. 只有md1Function过程能够被工程中各个窗体或模块调用 151.以下程序段的运行结果是___B___. Function abc(n As Integer) As Integer abc = n * 5 + 10 End Function

Private Sub Form_Click() Dim x As Integer x = abc(2) + 100 * abc(1) Print x End Sub

A. 2 B. 1520 C. 1500 D. 700 152.以下程序段的运行结果是___C___. Private Sub Form_Click() Dim x As Integer x = 4

Print x;

Call test(x) Print x End Sub

Public Sub test(i As Integer) i = i + 1 End Sub

A. 4 6 B. 4 4 C. 4 5 D.5 4 153.以下程序段的运行结果是___B___. Private Sub Form_Click() Dim x As Integer x = 4

Print x;

Call test(x) Print x End Sub

Public Sub test(ByVal i As Integer) i = i + 1 End Sub

A. 4 6 B. 4 4 C. 4 5 D. 5 4 154.下面的子过程语句说明合法的是___D____。

a.subF1(byvaln% ) ) b.subF1 ) n% ) asintegerc.functionF1 ) ) F1% ) d.functionfl ) byvaln% ) 155 .调用子进程ByVal m% ) b.subF1(n%，ByVal m% ) c.subF1 ) n%，m% ) d.subff1 ) m% ) 156 .执行以下程序后显示的结果为_ _

m=m\10x=12: y=34 endsubcallf1(x，y ) Print x，y End Sub

A. 2 34 B. 12 34 C. 2 3 D. 12 3 157 .过程定义中用___C___表示的参数值. A. Var B. ByRef C. ByVal D. Value 158 .表单的标题

执行Unload Form1语句后，表单Form1消失，但仍在内存中的b .加载表单时会发生表单的load事件。c .如果表单的Enabled属性为False，则取决于鼠标和键盘在表单中，将__c___属性False设置为. a.control box b.minbuttonc.maxbutond.enabled 161 .表单的边框样式设置为表单对象的\

a.backstyleb.border style c.window stated.fillstyle 162 .要以程序代码设置在表单中显示的文本的字体大小，请单击. a.font name b.fontc.fillle 使用表单对象的__C__属性，在代码编辑窗口中将表单Form1的Caption属性设置为“时钟”。正确的格式是___B____. A. Form1.Caption '时钟' B. Form1.Caption='时钟' C. Caption=时钟D. Form1.Caption '

a.back color b.forecolor c.fill color d.back style 165 .如果启动表单，则位于屏幕的中央，在中，使用. a.topb.lefill

教育部职业教育与成人教育司

C. Passwordchar属性值为# D. Passwordchar属性值为真168。要将命令按钮设置为缺省命令按钮，请将___C____属性设置为True以实现. a.valueb.cancelc.defaullation 要将控制焦点放在命令按钮上，可以使用__A__方法设置. a.refreshb.setfocus c.gotfocusd.value 171 .标记的边框样式。 a.bocus，具体取决于___a___属性的设置

a .要使autosize b.alignment c.appearance d.visible 173 .文本框为只读，请单击. a.readonly b.lockc.lockedd.enabled 174 要了解___A____属性中的. a.interval b.valuec.enabled.text 175 .列表框中的列表项总数，请单击. a.listb.listindex c.lindex项的语句是___B____. A. Combo1.RemoveItem Text B. Combo1.RemoveItem 2 C. Combo1.RemoveItem 3 D. Combo1.RemoveItem Combo1.Listcount 178.下列控件中,没有Caption属性的是___B____. A. 框架 B. 列表框 C. 复选框 D. 单选按钮 179.复选框的Value属性值为1时,表示___B____. A. 复选框未被选中

B. 复选框被选中 C. 复选框内有灰色的勾 D. 复选框操作错误

180.将数据项"China"添加到列表框List1中成为第一项,应使用语句____A___. A. List1.AddItem "China", 0 B. List1.AddItem "China", 1 C. List1.AddItem 0, "China" D. List1.AddItem 1, "China" 181.假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程,计算机将发出___D____次beep声. Private Sub Timer1_Timer() For i = 1 To 5

beep

Next i End Sub

A. 100次 B. 1000次 C. 5次 D. 以上都不对

182.如果每0.5秒产生一个计时器的Timer事件,那么时钟控件的Interval属性应设为___C___. A. 5 B. 50 C. 500 D. 5000

183.将命令按钮Command1的标题作为文本框Text1的文本内容,应执行语句___B___. A. Text1= Command1 B. Text1.Text= Command1.Caption C. Text1.Caption=Command1.Caption D. Text1.Text= CStr(Command1) 184.表示滚动条控件取值范围最大值的属性是___A____. A. Max B. LargeChange C. Value D. Max-Min 185.程序运行后,在窗体上单击鼠标,此时窗体不会接受到的事件是___C____. A. MouseDown B. MouseUp C. Load D. Click 186.下列控件可以用作其他控件容器的有___D____. A. 窗体,标签,图片框 B. 窗体,框架,文本框 C. 窗体,图像,列表框 D. 窗体,框架,图片框 187.改变驱动器列表框的Drive属性将激活___A____事件. A. Change B. Scroll C. KeyDown D. KeyUp 188.在窗体上添加一个列表框和一个文本框,然后编写如下两个事件过程: Private Sub Form_Load()

List1.AddItem "357" List1.AddItem "246" List1.AddItem "123" List1.AddItem "456" End Sub Private Sub List1_DblClick() a = List1.Text

Print a + Text1.Text End Sub

程序运行后,在文本框中输入"789",然后双击列表框中的"456",则输出结果为___B____. A. 1245 B. 456789 C. 789456 D. 0 189.在窗体上添加一个文本框,然后编写如下事件过程: Private Sub Form_Load() For i = 1 To 10 Sum = Sum + i Next i

Text1.Text = Sum End Sub 上述程序的运行结果是___A____.

A. 在文本框Text1中输出55 B. 在文本框Text1中输出0 C. 出错 D. 在文本框Text1中输出不定值

190.对于窗体Form1,执行了Form1.Top=Form1.Top-100语句后,该窗体将___A___. A. 上移 B. 下移 C. 左移 D. 右移 191.在窗体上添加一命令按钮Command1,并将其Caption属性设置为cmdAA,名称属性设置为cmdBB,则关于该控件的语句____C___是正确的. A. Command1.Left=100 B. cmdAA.Left=100 C. cmdBB.Left=100 D. 以上语句都不对 192.如果每2秒产生一个计时器事件,那么时钟控件的Interval属性应设为___C___. A. 2 B. 200 C. 2000 D. 5000 193.窗体上有一个公用对话框CommonDialog1,则语句CommonDialog1.ShowSave的作用是___D____. A. 显示"打开"对话框 B. 显示"颜色"对话框 C. 显示"字体"对话框 D. 显示"另存为"对话框

194.在窗体上画一个名称为List1的列表框,一个名称为Label1的标签;列表框中显示若干城市的名称.当单击列表框中的某个城市名时,在标签中显示选中城市的名称. 在List1的单击事件过程中能正确实现上述功能的语句是___D____.

A. Label1.Caption = List1.ListIndex B. Label1.Name = List1. ListIndex C. Label1.Name = List1.Text D. Label1.Caption = List1.Text 195.为清除图片框Picture1中的图形,下列方法正确的是___A____. A. Picture1.Picture=LoadPicture("") B. Set Picture1.Picture=LoadPicture

C. Picture1.Picture=LoadPicture("C:\Winap.Bmp") D. Set Picture1.Picture=LoadPicture("C:\Winap.Bmp") 196.因修改文本框中的数据而触发的事件是___A____. A. Change B. GotFocus C. LostFocus D. SetFocus 197.刚建立一个新的标准EXE工程时,不在工具箱中出现的控件是___C____. A. 单选按钮 B. 图片框 C. 通用对话框 D. 文本框 198.下面对语句 Open "Rizhi.dat" For Output As #1 的功能描述错误的是___C___. A. 以顺序输出模式打开文件"Rizhi.dat" B. 如果文件"Rizhi.dat"不存在,则建立一个新文件

C. 如果文件"Rizhi.dat"已存在,则打开该文件,新写入的的数据将添加到文件末尾 D. 如果文件"Rizhi.dat"已存在,则打开该文件,新写入的的数据将覆盖原来的数据 199.执行语句Open "Sample.dat" For Random As #1 Len = 50 后,对文件"Sample.dat"中的数据能够进行的操作是___C___. A. 只能写不能读 B. 只能读不能写 C. 即可以读,也可以写 D. 不能读,也不能写

200.以下哪个不是VB中的数据文件类型____B___. A. 顺序文件 B. 数据库文件 C. 随机文件 D. 二进制文件 201.下列说法错误的是____C___.

A. 当用Write # 语句写顺序文件时,文件必须以Output或Append方式打开 B. 用Input方式打开一个文件时,对同一个文件可以用几个不同的文件号打开 C. 用Output和Append方式打开文件时,不用将文件关闭,就能重新打开文件 D. 用Append方式打开文件时,进行写操作,写入文件的数据附加到原来文件的后面 202.下面几个关键字均表示文件的打开方式,只能进行读不能写的是___A____. A. Input B. Output C. Random D. Append 203.下列哪个不是写文件语句___D___. A. Put B. Print C. Write D. Output 204.以下叙述中正确的是___B___.

A. 一个记录中所包含的各个元素的数据类型必须相同 B. 随机文件中每个记录的长度是固定的 C. Open命令的作用是打开一个已经存在的文件 D. 使用Input#语句可以从随机文件中读取数据 205.在窗体上添加一个命令按钮Command1和一个文本框Text1,然后编写如下事件过程: Private Sub Command1_Click() Dim s As String * 20 s = Text1.Text ......

End Sub

该程序的功能是当单击按钮Command1时,把变量S的内容写入一个顺序文件dat1.dat中,正确的程序段是___B___. A. Open "dat1.dat" For Input As #1 Write #1, s Close #1

B. Open "dat1.dat" For Output As #1 Write #1, s Close #1

C. Open "dat1.dat" For Random As #1 Write #1, s Close #1

D. Open "dat1.dat" For Binary As #1 Write #1, s Close #1

206.FileFiles.Pattern="*.dat" 语句执行后,FileFiles文件列表框中显示___A____. A. 只包含文件扩展名为".dat"的文件 B. 第一个dat文件 C. 包含所有的文件 D. 显示磁盘的路径

207.目录列表框的Path属性的作用是___A___. A. 显示当前驱动器或指定驱动器上的路径 B. 显示当前驱动器或指定驱动器上的某个目录下的文件名 C. 显示根目录下的文件 D. 只显示当前路径下的文件

208.为了使Drive1驱动器列表框,Dir1目录路径列表框和File1文件列表框同步协调工作,需要__A__.

A. Drive1的Change事件过程中加入Dir1.Path = Drive1.Drive,在Dir1的Change事件中加入 File1.Path = Dir1.Path代码 B. Drive1的Change事件过程中加入Dir1.Path =Dir1.Path,在Dir1的Change事件中加入File1.Path = Drive1.Drive代码 C. Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive,在Drive1的Change事件中加入File1.Path = File1.FileName代码 D. Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive,在Drive1的Change事件中加入File1.Path = Dir1.Path代码 209.以下程序运行后,a1.dat文件的内容是___B____. Private Sub Form_Click()

Dim f1 As Integer, f2 As Integer, f3 As Integer Open "d:\a1.dat" For Output As #1 f1 = 2 f2 = 3

f3 = f2 + f1

Write #1, f1 * f2, f2, f3 Close #1 End Sub

A. 2,3,3 B. 6,3,5 C. 2,5,6 D. 无内容

210.以下能判断是否到达文件尾的函数是___D____. A. BOF B. LOC C. LOF D. EOF 211.在一行写多条语句时,每个语句之间用___B___符号分隔. A. , B. : C. , D. ; 212.VB 6.0作为一种编程语言是基于以下___C____种版本语言. A. FoxBASE B. C C. BASIC D. PASCAL 213.一条语句要分行书写,用___C____符号作续行符. A. + B. - C. _ D. ... 214.VB 6.0的标准化控件位于IDE(集成开发环境)中的___B___窗口内. A. 工具栏 B. 工具箱 C. 对象浏览器 D. 窗体设计器 215.下面___A___是合法的变量名.

A. X_yz B. 123abc C. integer D. X-Y 216.关于Visual Basic应用程序正确的叙述是___A____. A. Visual Basic程序运行时,总是等待事件被触发 B. Visual Basic程序设计就是编写代码 C. Visual Basic程序是以线性方式顺序执行的 D. Visual Basic的事件可以由用户随意定义,而事件过程是系统预先设置好的 217.下列操作不能打开代码编辑窗口的是___D____.

A. 选中对象,单击鼠标右键,在弹出菜单中选择"查看代码" B. 选中对象,双击鼠标左键 C. 按功能键F7 D. 按功能键F4 218.保存文件时,窗体的所有数据以___B___存储. A. *.PRG B. *.FRM C. *.VBP D. *.EXE 219.下列哪组语句可以将变量a,b的值互换___B____. A. a=b : b=a B. a=a+b : b=a-b : a=a-b C. a=c : c=b : b=a D. a=(a+b)/2 : b=(a-b)/2 220.以下程序段执行后,整型变量n的值为___A____. year1 = 2004 n = year1 \ 4 + year1 \ 400 - year1 \ 100 A. 486 B. 496 C. 506 D. 466

221.将一文本框与数据控件相关联,需要设定文本框的___C____属性.

A. DataMember B. Datafield C. DataSource D. DataFormat 222.窗体Form1上有两个文本框Text1,Text2和一个命令按钮Command1,编写如下两个事件过程: Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a

End Sub

Private Sub Form_Load() Text1.Text = "123" Text2.Text = "321" End Sub 程序运行时点击Command1按钮,窗体上显示的运行结果是___B____. A. 444 B. 123321 C. 321123 D. 132231

223.在窗体上添加三个文本框,名称分别为Text1,Text2,Text3,一个命令按钮Command1.如果在Text1中输入150,Text2中输入200,则执行下列程序后,Text3中显示的数为__D__. Private Sub Command1_Click() Dim m As Integer, n As Integer m = Val(Text1.Text)

n = Val(Text2.Text) If m < n Then t = m: m = n: n = t End If Do

r = m Mod n m = n n = r

Loop While r 0

Text3.Text = Str(m) End Sub A. 200 B. 150 C. 100 D. 50

224.下列程序是在列表框List1中显示3个学生的名字.用户点击列表框中的某个名字后,文本框Text1中显示的是___B____. Dim student(0 To 2) As String Dim grade(0 To 2) As Single Private Sub Form_Load()

student(0) = "章力" : student(1) = "刘唯" : student(2) = "方红" grade(0) = 92.5: grade(1) = 73 : grade(2) = 84 For i = 0 To 2 List1.AddItem student(i) Next i

List1.ListIndex = 0 End Sub Private Sub List1_Click()

Text1.Text = grade(List1.ListIndex) End Sub

A. 被选中的学生名 B. 被选中学生的成绩 C. 第一个学生名 D. 第一个学生的成绩 225.以下程序段的执行结果是___B___. a=10:y=0 Do

a=a+2 y=y+a

If y>20 Then Exit Do End If

Loop While a<=14 Print "a=";a;"y=";y

A. a=18 y=24 B. a=14 y=26 C. a=14 y=24 D. a=12 y=12 226.以下叙述中错误的是___A____. A. 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B. 以.BAS为扩展名的文件是标准模块文件 C. 窗体文件包含该窗体及其控件的属性 D. 一个工程中可以含有多个标准模块文件

227.关于VB中的监视表达式,错误的叙述是___A____. A. 监视表达式不能引起中断 B. 可使监视表达式为真时引起中断 C. 可使监视表达式的值变化时引起中断 D. 监视表达式可以监视对象 228.在属性窗口中,属性有两种排列方式,分别是___D____. A. 日期和时间 B. 事件和对象 C. 文件大小和名称 D. 字母顺序和分类顺序 229.下列哪种操作不可以打开属性窗口___A____. A. 双击代码窗口 B. 双击任何一个对象

C. 单击鼠标右键 D. 执行"视图"菜单中的"属性窗口"命令 230.以下程序段的运行结果是___C___. Private Sub Form_Click() Dim x() As String a = " How are you!" n = Len(a) ReDim x(1 To n)

For i = n To 1 Step -1 x(i) = Mid(a, i, 1) Next I For i = 1 To n Print x(i); Next i

End Sub

A. !uoy era woH B. !uoy era woh C. How are you! D. how are you! 231.以下程序段的运行结果是___D____. Private Sub Form_Click() Dim nsum As Integer nsum = 1 For i = 2 To 4

nsum = nsum + factor(i) Next i Print nsum End Sub

Function factor(ByVal n As Integer) As Integer Dim temp As Integer temp = 1

For i = 1 To n temp = temp * i Next i factor = temp End Function

A. 10 B. 13 C. 23 D.33 232.以下程序段的运行结果是___C___. Private Sub command1_Click() Const n = 4 Dim xx(n) As Integer For i = 1 To n xx(i) = i * 2 Print xx(i); Next i End Sub

A. 1 3 5 7 B. 1 4 4 1 C. 2 4 6 8 D. 4 1 4 1 233.以下程序段的运行结果是__B__. Private Sub Form_Click() Dim m As Integer Print fac(4) End Sub

Private Function fac(n) As Long If n = 1 Then fac = 1 Else

fac = n * fac(n - 1) End If End Function

A. 20 B. 24 C. 18 D. 16 234.以下程序段的运行结果是___C____. Private Sub Form_Click() Dim s As String, once As String, sum As Integer For i = 1 To 5 once = InputBox("请输入一个字符") '分别输入A,C,A,D,E sum = sum + checks(once, s) Next i

Print s; sum End Sub

Private Function checks(ByVal x As String, y As String) As Integer If x "A" Then y = y + x checks = 1 End If

End Function

A. ACA 3 B. ACA 5 C. CDE 3 D. CDE 5 235.以下程序运行的结果是___D___. Option Base 1

Private Sub Command1_Click() Dim a,b(3,3) a=array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 b(i,j)=a(i*j)

If (j>=i) Then Print Tab(j*3);Format(b(i,j),"# # #"); Next j Print Next i End Sub

A. 1 2 3 B. 1 C. 1 4 7 D.1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9 236.以下程序段的运行结果是___C____. Dim y As Integer Private Sub Form_Click() Dim x As Integer

x = 1:y = 1 z = bb(x) Print x, y, z End Sub

Public Function bb(n As Integer) y = y + 1 bb = n + y End Function

A. 1 1 1 B. 1 2 1 C. 1 2 3 D. 2 2 2 237.以下程序段的运行结果是___C___. Private Sub Form_Click() Dim i%, s%

For i = 1 To 3 s = sum(i) Form1.Print s; Next i End Sub

Function sum(n As Integer) Static j As Integer j = j + n + 1 sum = j End Function

A. 2 4 6 B. 2 5 7 C. 2 5 9 D. 2 5 10 238.在窗体上画一个命令按钮Command1,然后编写如下代码: Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4

a(i, j) = (i - 1) * 3 + j Next j Next i

For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub

程序运行后,单击命令按钮,输出结果是__D__. A. 6 9 B. 7 10 C. 8 11 D. 9 12 7 10 8 11 9 12 10 13 239.以下程序段的运行结果是___B____. Private Sub Form_Click() Dim i As Integer, y As Integer i = 0 Do While i 6 Then Exit Do

End If Loop

Print x End Sub

A. 1 B. 3 C. 6 D. 7 241.有如下程序:

Private Sub Form_Load() Dim arr1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 arr1(i, j) = i + j Next j Next i

Text1.Text = arr1(2, 3) + arr1(3, 4) End Sub 程序运行后,单击窗体,在文本框显示的值是___C___. A. 5 B. 7 C. 12 D. 20

242.运行下列程序时,如果连击3次cmd1,且依次输入9,3,16,获得的运行结果分别是__C__. Private Sub Cmd1_Click() Dim x As Integer Dim y As Integer

x = Val(InputBox("输入数据")) If Int(Sqr(x)) Sqr(x) Then y = x * x Else

y = Sqr(x) End If

Form1.Text1.Text = Str(y) End Sub

A. 3,3,4 B. 81,9,256 C. 3,9,4 D. 9,3,16 243.有如下程序段: j=1 : n=0 Do While nj=j * (j+1) n=n+1 Loop

Print n ; j

运行后,输出的结果是___D__.

A) 1 0 B) 3 3 C) 4 30 D) 3 42

244.设输入的数据分别为14,3时,标签Label1中显示的值分别是___A___. Private Sub Form_Click() Dim a As Integer

a = Val(InputBox("请输入一个数")) Select Case a Mod 5 Case Is < 2 w = a + 10 Case Is < 4 w = a * 2 Case Else w = a - 10 End Select Label1.Caption = Str(w) End Sub

A. 4,6 B. 6,4 C. 24,6 D. 6,24 245.下列程序段___B___不能分别正确显示1!,2!,3!,4!的值. A.For i=1 To 4 B.For i=1 To 4 n=1 For j=1 To i For j=1 To i n=1 n=n*j n=n*j Next j Next j Print n Print n Next i Next i C.n=1 D.n=1 For j=1 To 4 j=1 n=n*j Do While j<=4 Print n n=n*j Next j Print n j=j+1 Loop

246.执行如下程序后,d:\a1.dat中的数据是___B____. Private Sub Form_Click()

Dim f1 As Integer, f2 As Integer, f3 As Integer Open "d:\a1.dat" For Output As #1 f1 = 2: f2 = 3 f3 = f2 + f3 Print #1, f1; Print #1, f2; For i = 5 To 6 f3 = f1 + f2 Print #1, f3; f1 = f2 f2 = f3 Next i Close #1 End Sub

A. 2 3 4 5 B. 2 3 5 8 C. 2 3 4 6 D. 无内容

247.下列程序段的运行结果是___B___. Private Sub Command1_Click() Dim a(3) As Long a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4 j = 1

For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub

A. 4321 B. 1234 C. 34 D. 12 248.有如下程序,运行后输出结果是___C___. Private Sub Form_Click() a=5 If a<=3 Then Print 3;

End If

If a<=4 Then Print 4; End If

If a<=5 Then Print 5; End If If a2 b=a+1 Case Is>3 b=a+2 Case Is>5 b=a+3 Case Else b=a+4

End Select Print a;b End Sub A. 4 4 B. 4 5 C. 4 6 D. 4 7

250.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x%,n%,i%,j% n = InputBox("请输入一个整数") For i = 1 To n

For j = 1 To i x = x + 1 Next j Next i Print x End Sub

程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是___D___. A. 3 B. 4 C. 5 D. 6 251.某林场1995年植树100亩,以后每年的植树面积按5%的速度增长,能正确计算到1998年时四年的植树总面积的程序是___B___.

A. s=100:r=0.05 B. s=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r) s=s*(1+r) Next i sum=sum+s Print i Next i End Print sum

C. s=100:r=0.05 D. s0=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r)+s s=s0*(1+r) Next i sum=sum+s Print i Nexti End Print sum二、判断问题(1-174问题) )。

如果知道A$='87654321 '，则表达式val(left$(a$，4 ) mid $ (a $，4，2 ) )的值为：876554. 2.VB6.0，H12是八进制数字常量.

4 .可以定义为4.Public Pi=3.1415符号常数。 5 .变型变量的数据类型由分配给该值的数据类型决定。将a的型作为变体型，执行A='True '后，a的型成为逻辑型。。

如果知道A$='12345678 '，则表达式val(right$ ) a$，2 ) mid$ ) a$，2， 3 ) )的值是：78234 .7.ifxythenmax=xels emax=y块获得两个个数中的最大数目. 8 .可以获得字符ASCII码值的函数在chr(.9.VB6.0 )中声明public可用于定义变量，但必须位于常规声明段中，而不是过程中。 11。静态变量只能在过程中定义，不能在一般声明段中定义。 12。 private中定义的变量是过程级变量，因此其范围是定义该过程的表单(或标准模块)中的所有过程。

13 .在dim语句中定义的变量是过程级变量。命令按钮Command1的点击事件代码为： private sub command1_ click (dimiasintegeri=i1

结束子

单击此按钮三次，I的值为3.x

15 .执行dimx，Y AS Integer语句后，x，y的缺省值都是0. 16。如果A='123 '，B=123，则A-B的结果是246，A-B的结果是0 17。在中文版的VB6.0中，变量的首字母必须是字母，可以包含在后面

Print a b

执行第二句a的值为True.。

19.Dim a As Boolean，b As Boolean a=2 b=0

Print a b

执行段后，程序的输出结果为2.

20 .指示x为5的倍数或9的倍数的逻辑表达式，x Mod 5=0 OR x Mod 9=0. 21.Len (等级测试) )的结果相同。 22.Len )等级考试)和Len ) VB ) )。当表达式XY And YZ的值为真. 24为偶数时，not(xmod2)必须为真. 25.Dim a As Integer，b As Long Dim c As Single，d As Double表示表达式a*b-d(2c的结果的数据表达式)

X=True Y=0

打印x y程序的输出结果为False

28 .执行print ' a123 ' 123语句将显示错误消息。 29.VB允许用户在过程中使用Type语句定义自己的数据类型。 30.VB6.0有11种基本数据类型，有些数据类型具有类型说明符，如整数类型说明符

31.Visual Basic中的对象是指控件。可以为32个符号常数指定相同类型的不同值。。

33.VB6.0的字符串常量是用双引号或单引号括起来的字符串。 34 .在visual basic中，Integer是合法的变量名。

关于职业教育的通知

如果 36为偶数，则not(xmod2=0)必须为真。 37 )表单标题栏中显示的文本由表单对象的Text属性决定。 38 )为了禁止表单的移动，将表单的Move属性设定为False来实现。 39 )要禁用命令按钮，可以通过将Enabled属性设置为False来实现。 40。要设置计时器控件的计时器时间，请在其Value属性中进行设置。 41.InputBox函数可以在没有参数的情况下调用，但MsgBox函数至少需要一个参数调用。由于42个表单必须对应一个表单文件，因此一个APP应用程序只能包含一个表单文件

43 .打印tab (3； “Visual Basic”和打印空间(3； “Visual Basic”的效果相同。 44.VB中只有表单对象具有打印方法。 45 .在此Print语句的末尾输入'；' 需要加上。'；' 只能追加.

46 .消息对话框MsgBox可以作为函数调用，也可以作为语句调用。这两种方法都可以得到返回值。

47 .生成消息对话框的MsgBox函数返回的值是数值类型。请输入 48.A=Inputbox ('数字A: ' )。如果从键盘输入5，则a类型请输入Integer. 50.x=InputBox ) '数X: 'nd If Print y

执行上面程序段,输入X的值时从键盘输入3;输入Y的值时从键盘输入10,则输出结果为6.√

51.MsgBox函数和InputBox函数都有一个可确定对话框中命令按钮的个数和类型的参数.× 52.表达式 Int(Rnd*10+1) 表示[1,10]闭区间的随机整数.√ 53.Rnd函数产生的是(0,1)之间不包括0,1的随机小数.× 54.Int(-4.5)和Fix(-4.5)的结果一样.× 55.可获得字符ASCII码值的函数为Asc().√ 56.任意整数X十位上的数字可以表示为(X MOD 100 - X MOD 10)\10.√ 57.Print InStr("Visual Basic", "I")的结果为0.√ 58.已知A=12,则Len(A)的结果为2.√

59.Len(Str(123)+"123"))的结果为6.× 60.表达式Val(".123E2AB")的值为.123.× 61.函数String(3,"ABC")返回的结果为"ABCABCABC".×

62.X="28",则 Val(Right$(X,1))+Val(Left$(X,1)) 的结果为82.× 63.X="123",则Val(Right$(X,1)+2+Left$(X,1))的结果为321.× 64.Date()+4 的功能是推算当前系统日期加上4天后的日期.√ 65.Format(5,"0.00%")的结果是500.00%.√

66.If x>y Then Max=x Else Max=y 程序段是求两个数中的最大数.√ 67.阅读下面的程序段: a=0

For i=1 To 3 For j=1 To 3 For k=1 To 3 a=a+i Next k Next j Next i

执行上面的循环语句后,a的值为27.√

68.Visual Basic具有三种基本的流程控制结构:顺序结构,分支结构和循环结构.√ 69.若同时为x,y,z变量赋值5,可以如下操作:x=y=z=5.× 70.有如下赋值语句:a1% = 34.3432,赋值后变量a1中的值为整型.√ 71.把数值型值赋给逻辑变量时,非0值转换为True,0转换为False.√ 72.任何非字符型的数据赋值给字符型变量时,将被转换成字符型.√ 73.阅读下面的程序段: a = 1

If 1 Then a = a + 1 Else a = a - 1 End If Print a

运行后a的值是:无法确定.× 74.阅读下面的程序段: x = 1 y= IIf(x>=0, 1+x, 1-2*x) Print y 运行后y的值是:-1.× 75.阅读下面的程序段: x = 1 Do While x = 1 x = x + 1 Loop

Print x

该循环,循环次数1次,检测循环条件2次.√ 76.阅读下面的程序段: x = 1 Do

x = x + 1

Loop Until x > 1 Print x

该循环,循环次数1次,检测循环条件2次.× 77.阅读下面的程序段: s = 0

For i = 2 To 4 If i = 2 Then Exit For s = s + i End If Next

Print s

该程序运行后,s的值是 9.× 78.阅读下面的程序段: x = 6 y = 3

If x > y Then t = x x = y y = t End If

该程序的功能是:若x大于y的值,则交换x和y的值.√

79.在For...Next循环中,Exit For子句是可选项,它可以放置在循环体语句中的任何位置.√

80.End语句提供了一个强迫终止程序运行的方法,它可以放在任何事件过程中.√ 81.在VB编程语句中,利用GoTo语句可以构成循环结构.√

82.在VB编程语句中,GoTo语句中使用的"标号"是一个以分号结尾的标识符.× 83.在VB编程语句中,GoTo语句比较容易理解,在实际编程中大力提倡使用GoTo语句.× 85.在Do....Loop循环语句中,若要强制退出该循环,使用的退出语句是Exit Do.√ 86.阅读下面的程序段: s = 0

For i = 1 To 5 s = s + i If i = 3 Then Exit For End If Next

Print s

该程序运行后 s 的值是6.√

87.在For...Next循环中,其中Step步长可以是正数,也可以是负数.√ 88.If 6>5 Then x=5 End If 是一条合法语句.× 89.下面程序运行时 For m=1 To 3 For n=0 To m-1 s=s+n

Next n Next m 内层循环的循环总次数是6次.√

90.在Do...Loop[While|Until]循环中,While关键字或Until关键字必须选择其中之一.× 91.数组是用一个统一的名字,不同下标表示的,顺序排列的一组变量.√

92.Dim aa(5) As Integer 与 Dim aa[5] As Integer等效.× 93.数组元素的下标可以是常数,变量或表达式.√ 94.在Visual Basic中有两种形式的数组:固定数组和动态数组.√ 95.在VB中,只允许使用一维数组和二维数组.× 96.静态数组中的数组元素个数一旦定义好后,在程序运行过程中不再会发生变化;而动态数组的元素个数则是可变的.√ 97.固定数组中的数组元素个数一旦定义好后,在程序运行过程中不再会发生变化,并且数组中数组元素的值也不会变化.×

98.在VB中,Option Base语句的参数只能是0或1.√ 99.在声明数组时,下标必须是常量,不能是变量;而在引用数组元素时下标可以是常数,变量或表达式.√ 100.Dim aa(5) As Interger 不仅定义数组,为数组分配存储空间,还能将数组元素置为0.√

101.引用数组元素时,元素的下标值应在数组说明时所指定的范围之内.√ 102.在同一过程中,数组和简单变量不能同名.√

103.在Visual Basic中,动态数组可以在需要时候改变大小.√ 104.声明一个没有下标的数组,声明时数组名的括号一定不能省略.√ 105.动态数组在定义时已被分配存储空间.× 106.某数组声明为字符型数组,它们的初始值为False.× 107.有如下数组声明语句:

Option Base 1

Dim aa(3, 0 To 2, 1 To 2) As Integer 数组aa所含有的数组元素个数是18.√ 108.在Visual Basic中,过程代码可以放在窗体模块和标准模块中,而不能存放在类模块中.×

109.Visual Basic提供了三类模块,它们是窗体模块,标准模块和类模块.√ 110.在标准模块中可以包含通用过程,但不能包含事件过程.√ 111.通用过程只能存储在窗体模块中.× 112.储存在窗体模块中的过程,一定可以被整个工程中的事件过程调用.× 113.变量的生存周期,主要是根据变量的使用次数来定义的.× 114.按变量的作用范围分类,过程级变量属于局部变量.√ 115.Sub过程不能通过其过程名返回值.√ 116.一般情况下,在参数传递过程中,实参与形参的个数必须相等,相应的数据类型可以不相符.

117.在用 Call 带参调用 Sub 过程时必须把参数放在括号里.√ 118.在 Sub 过程中可以嵌套定义 Function.× 119.在调用过程时,参数的传递有按地址和按值两种传递方法.√ 120.窗体的标题条显示内容由窗体对象的Text属性决定.× 121.各种控件的所有属性都可以在设计模式下通过属性窗口设置,也都可以在运行模式下通过程序语句进行赋值.×

122.事件过程是由用户或系统事件触发的,所以在程序中不能调用事件过程.× 123.对象的方法和事件过程都可以在VB环境中查看和编辑其程序代码.× 124.事件驱动的编程机制中,事件过程的执行顺序取决于程序流程.× 125.在对象上双击鼠标时,只会触发DblClick事件.× 126.用户按下和松开一个字母键时,会触发KeyDown ,KeyPress,KeyUp等多个事件.√ 127.VB采用了事件驱动的编程机制,当没有事件产生时,程序处于停滞状态,只有事件发生时,程序才会运行.√ 128.图形框控件可以用来显示图片,作为其它控件的容器,显示用图形方法输出的图形以及用Print方法输出的文本.√

129.VB6.0中除了可以使用标准控件和第三方控件之外,还可以创建和使用用户自定义控件.√

130.若使窗体成为子窗体,需要将该窗体的 MDIChild属性设置为True.√ 131.窗体的标题,风格,背景颜色等属性只能在设计时通过属性窗口设置.× 132.使窗体中某对象获得控制焦点的方法只有用鼠标单击该对象.× 133.LoadPicture是VB的一个函数,用于将指定的图片文件调入内存.√ 134.在窗体frmA中定义的全局变量 X1,可以被该工程中的所有过程使用.√ 135.Visual Basic 的对象就是指控件类.× 136.若要禁止窗体被移动,则可设置窗体的Move属性为False来实现.× 137.MDI窗体与普通窗体一样可直接在窗体上放置各种控件.× 138.若要设置定时器控件的定时时间,可通过Value属性来设置.× 139.可以通过设置列表框属性允许用户从列表框的列表项中同时选择多项,组合框则无法多选,但允许用户进行文本输入.√ 140.用 Label1.Caption="你好" 与 Label1 ="你好" 均可以改变标签标题,且结果完全相同.√

141.窗体中需要使用相同类型的控件时,使用控件数组可以简化程序,节省资源.√ 142.无需任何操作,VB的控件工具箱就自动包括了各种标准控件和各种ActiveX控件.× 143.计时器(Timer)控件的Interval属性设为1000,Enabled属性为False,则每隔1秒的时间就产生一次Timer事件.× 144.假定时钟控件Timer1的Interval属性为1000,Enabled属性为True,并且有下面的事件过程,计算机每1秒将发出3次Beep声. √

Private Sub Timer1_Timer() For i = 1 To 3 Beep

Next i End Sub

145.定时器控件的时间间隔设为0 或 Enabled属性设为False,都将停止触发Timer事件.√ 146.三个文件系统控件:Drive1驱动器列表框,Dir1目录路径列表框和File1文件列表框不需编写任何程序就可同步协调工作.×

147.在Visual Basic中,用来描述一个对象特征的量称之为对象的属性.√ 148.通用对话框(CommonDialog)控件可以分别显示打开.保存.打印,颜色,字体和帮助对话框.√ 149.若要使命令按钮不可见,则可设置Enabled属性为False来实现. × 150.窗体中的任何控件都允许获得焦点.×

151.在VB中访问任何一个文件之前,都必须先打开该文件,然后才能对文件进行处理.√ 152.用Open语句打开文件时,文件名必须用字符串常量表示,而不能使用变量.× 153.任何VB工程编译结果都是可执行文件.EXE.× 154.当用Write # 语句时,文件必须以Output或Append方式打开.√

155.用Append方式打开c:\students.dat文件的语句是:Open "c:\students.dat" for Append As #1.√ 156.Input # 语句是从文件中读取数据项, Line Input # 读取的是文件中的一行,而InputBox函数要求从键盘输入数据.√ 157.随机文件可以按任意次序读写,每一行或每个记录的长度也可以不相同.×

158.Print #语句与Print方法的区别在于,Print #语句写的对象是文件,而Print方法写的对象是窗体,控件或打印机.√ 159.Visual Basic 中只有通过传统的文件 I/O 语句进行文件处理,如 Open ,Input#,Write#等语句来实现.× 160.DoEvents 将控制权切换到操作环境内核,使后台事件能够得到处理.√ 161.一个VB工程中可以存在多个MDI窗体.× 162.VB程序中的菜单可以在"菜单编辑器"的窗口中进行设计,也可以利用应用程序向导来生成.√

163.VB应用程序中的下拉菜单和快捷菜单都可用菜单编辑器创建,只是设计时,快捷菜单的Visible属性通常设为Flase,运行时用鼠标所指对象的PopupMenu 方法弹出.√ 164.用菜单编辑器设计菜单时, 顶层菜单不能加快捷键,但可以在该菜单标题中的字母前插入&符号来设置热键.√ 165.由于VB只能以解释方式运行,所以运行速度慢.×

166.VB中打开工程文件时,在资源管理器窗口可以看到工程中所有的文件,所以可以认为工程文件包括了工程中所有的文件,只要保留工程文件即可,其他文件可以不必保留.× 167.在VB中编译生成的可执行文件可以直接复制到任何一台安装有Windows系统的计算机上运行.× 168.VB工程中只能以标准模块中的Sub Main过程或所建立的第一个窗体作为启动对象.× 169.在过程开始放置一条语句 On Error Resume Next, 则当执行该过程并发生运行错误时,程序将停在发生错误的语句行,并给出错误提示.× 170.使程序进入中断模式的唯一方法是在程序中设置断点.×

171.在设计时可以设置断点和监视表达式,但其它调试工具只能在中断模式下使用.√ 172.VB中访问数据库必须通过数据访问对象DAO .× 173.在VB程序中,如果存在语法错误,则无法通过编译,所以如果通过编译生成了EXE文件,就说明程序中已不存在任何错误.× 174.Office内嵌的VBA 和脚本语言VBScript都是VB的子集√ 三,填空题(1-160题)

1设 a=2,b=3,表达式 a>b 的值是_______.FALSE|0|零|假|假值|零值 2.在VB中声明静态变量的关键字是_______.static 3.在VB中声明符号常量的关键字是_______.const 4.表达式10 MOD 16\4的值是_______.2 5.设A=5,B=6,C=7,D=8,表达式3>2*B OR A=C AND BC OR C>D的值是_______.False|0|零|假|假值|零值 6.设a=6,b=3,c=5,则表达式Not a>c And c=b Or ba+c 的值为_______.True|真|真值|-1 7.要强制显式变量声明,须在声明段部分加入语句_______.option explicit 8.设a=1,b=2,c=3,则VB6.0表达式:a真 9.x是小于100的非负数,描述该条件的布尔(逻辑)表达式是_.x=0|x>=0 and x

(x=0)|(x=0|x=0)|(x>=0) and (x=0) and x=0 and (x=0 AND a+c>b+3 OR NOT d 的值是____.False|0|零|假|假值|零值 13.用于声明全局变量的关键字是_______.Public

14."a","T","Z","9",这四个字符中,_______的ASCII码值最大.a|"a"|"a"|字符a|字符"a"|字符"a"

15.用 dim abc as variant 定义的变量abc,其类型是_______.变体类型|变体|变体型 16.表达式"12345""12345" & "ABC"的值是_______.True|真值|真|-1| 17.设C="A",写出下列表达式的值. (1)C>="0"And C="A"and c="0"or C="A"or c="0"And C="A"and c<="Z"的值为_______.True|真值|真|-1 (2)C="9"or c>="A"and c<="Z"的值为_______.True|真值|真|-1 19.在VB中,字符型常量应使用_("|双引号|""|""_)将其括起来,日期/时间型常量应使用_#|井号|井字号|#号|#字号|##_符号将其括起来.

程序运行后,单击命令按钮,在输入对话框中分别输入321和456,输出结果为___.321456|"321456"|"321456"

22.窗体上有三个文本框Text1,Text2和Text3;有一个命令按钮Command1,设文本框Text1中的内容为11,文本框Text2中的内容为22,下面程序的执行结果为___33____. Private Sub Command1_Click() Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text)) Print Val(Text3.Text)

End Sub

23.在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a = InputBox("请输入一个整数") b = InputBox("请输入一个整数") Print a + b End Sub

28.有如下程序: For i=1 to 3

for j=5 to 1 step -1 print i*j next j next i

程序运行后,语句print i*j的执行次数为_______.15|15次|15 次 29.VB程序的三种基本结构是:顺序,选择和_______.循环|循环结构

39.设a=6,则执行x=IIf(a>5,-1,0)后,x的值为_______.-1 40.设 a=2,b=9,表达式 a^2 > sqr (b)的值是_______.True|真|真值|-1 41.函数Len(Lcase("abcDEF"))的值是_______.6 42.函数Len("Hello!"+Space(2)+Mid("Shanghai",5,3))的值是_______.11 43.Int(-8.6)的函数值是_______.-9

44.表达式 Int(1234.555*100+0.5)/100 的结果是_______.1234.56 45.有如下程序段: a$="visual basic programing" b$=".net"

c$=left(a$,1) & mid(a$,8,1) & b

运行程序后,则变量c$的值为_______.vb.net|"vb.net"|"vb.net"

49.表达式Len(Left("abcd",3) + Right("清华大学",4))的值是____.7 50.执行A="123" +123 语句后,变量A的值是_______.246 51.函数int(rnd*11)+10的值的范围是___10___至__20. 52.将标签Label1的字体设置成粗体,使用的语句是_.label1.fontbold=true|Label1.fontbold=-1

53.将标签Label1的字号设置成20,使用的语句是____.label1.fontsize = 20 54.如果要时钟控件每一秒钟发生一个Timer事件,则Interval属性应设置为____.1000|1000ms|1000毫秒 55.将名称为cmd1的命令按钮设置为不可用,使用语句是_.cmd1.enabled=false|cmd1.enabled=0

56.如果要设置窗体form1的标题为"欢迎使用",使用的语句是___.form1.caption="欢迎使用" 57.用于返回列表框中列表项的项目总数的属性是_____.listcount

58.若要使文本框TextBox的ScrollBars属性有效,必须将其_______属性设为True.multiline

59.若使命令按钮不起作用,应将按钮的_______属性设置为False.Enabled 60.若用户单击命令按钮Command1,则此时将被执行的事件过程名为_.command1_click() 61.创建一个MDI子窗体,需把一个普通窗体的_______属性设为True.MDIChild 62.如果列表框的ListCount属性为10,则列表框的最后一项的ListIndex值为_______.9 63.设置Data控件所连接的数据源类型,需设置其_______属性.DefaultType 64.复选框的_______属性决定复选框是否被选中.VALUE 65.要使VB窗体最大化按钮不可用,应将其_______属性设置为False.MaxButton 66.要使标签能够自动调整大小以显示所有内容,应将其_______属性设置为True.AutoSize 67.表示滚动条控件取值范围最大值的属性是_______.MAX

68.Visual Basic提供了列表框控件,当列表框中的项目较多,超过了列表框的长度时,系统会自动在列表框边上加一个_______.垂直滚动条|滚动条 69.将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_.True|-1|真值|真

70.要选中设计窗体上的多个控件,可按住__或SHIFT键不放,再单击要选择的控件.Ctrl|控制|控制键|Ctrl键 71.向列表框中添加一个项目的方法名为___.Additem

72.在代码中向图片框加载图片文件时,使用的函数名称是____.Loadpicture|loadpicture()| loadpicture()

73.设置计时器时间间隔属性的单位是______.毫秒|ms

74.假定一个文本框的Name属性为Text1,为了让文本框中显示"Welcome",所使用的语句是____.

Text1.Text="Welcome"|Text1="Welcome"|Text1.Text="Welcome"|Text1="Welcome" 75.若要求在文本框中输入密码时,在文本框中只显示#号,则应在此文本框的属性窗口中设置___属性值为#.passwordchar

76.如果要使时钟控件每半分钟发出一个Timer事件,则时钟控件的Interval属性值为____.30000

77.若要将窗体 Form1 隐藏起来,调用语句为___.Form1.Hide 78.单选按钮的Value属性值若为True或-1,表示该按钮____.被选中|选中|已被选中|被选取|选取|已被选取|被选择|选择|已被选择|被选|已被选 79.若要设置定时器控件的触发Timer事件的时间间隔,可通过_______属性来设置. Interval

80.复选框的_______属性值设置为2-Grayed时,复选框将变为灰色,禁止用户使用.Value 81.Visual Basic中有一种控件具有文本框和列表框的特点,这种控件是_______.组合框|combobox 82.若要求输入密码时文本框中只显示*号,则应当在文本框的属性窗口中设置_______属性.PassWordChar

83.图像框和图片框在使用时有所不同,这两个控件中,能作为容器容纳其它控件的是_______控件. 图片框|Picturebox|图片框控件|Picturebox控件

84.对于Text控件Text1,设置Text1.Mulitiline=False,TEXT1.PASSWORDCHAR="*",在该文本框中输入"ABC103",则文本框中显示_______. ******|"******"|"******"|"******"|"******" 85.在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1,要求每隔一秒在文本框中显示一次当前的时间.请补充完整下段代码:

Private Sub Timer1_ ____ Timer___() TxtTime.Text = Time End Sub

86.一个控件在窗体上的位置由_______属性和Top属性决定.Left 87.从列表框中删除一个项目的方法名为__ removeitem_,删除所有项目的方法名为_ clear__.

88.为了把窗体Form1装入内存,所使用的语句为__ load form1|load__,而为了清除该窗体,所使用的语句为___ Unload|unload me|unload form1____. 89.将一个窗体隐藏但仍在内存中所使用的方法是__ hide__,显示一个隐藏窗体所使用的方法是_show_. 90.滚动条响应的常用事件有_ Scroll_和Change事件.

91.向列表框添加项目的方法是__ AddItem___,删除列表框中指定选项的方法是_ RemoveItem__. 92.VB中有三种不同类型的组合框,可通过其_ Style|style属性_属性设置. 93.扩展名为.frm的文件表示__窗体|窗体文件_文件. 94.标准模块文件的扩展名为____.Bas|.bas

98.VB有3种工作模式,即_设计模式|设计_,运行模式和中断模式. 99.VB有3种工作模式,即设计模式,_运行模式|运行_和中断模式. 100.VB有3种工作模式,即设计模式,运行模式和_中断|中断模式_模式. 101.ActiveX控件的文件的扩展名为___..OCX|OCX 102.如果要将某个菜单项设计为分隔线,则该菜单项的标题应设置为____.-|减号 103.窗体中有一公共对话框Commondialog1和一个命令按钮Command1,当单击按钮时打开字体对话框,请将程序补充完整. Private Sub Command1_click() Commondialog1.___Showfont|action=4 End sub

104.设置Toolbar控件中按钮上的图像,需要将Toolbar控件与_____控件相关联.imagelist 105.在Visual Basic中,对象的大多数属性既可以在()窗口设置,也可以通过程序代码设置.属性

106.在 Visual Basic 中,对象的_______是用来描述一个对象外部特征的. 属性 107.菜单中的"热键"可

通过在热键字符之前插入_______符号.|' 108.windows APP应用程序的用户界面样式包括：单文档接口(SDI )和_ _ _ _ _ .多文档接口(MDI )具有多文档接口MDI多文档|MDI

10 .要在运行时隐藏菜单，请将菜单对象的_______属性设置为False.Visible|

11 .菜单项对象的_______属性控制菜单项是否变灰(禁用)。 Enabled|有效112 .菜单控件只有一个事件，_ _ _ _ _事件. Click|单击113 .由程序的结构算法引起_ _ _ _ _。事件115.VB6.0表单文件的扩展名为_ _ _ _ . frm|frm 116 .表单的初始化代码应该写在表单对象的________事件中

117.VB有三个调试窗口。它们是_______窗口、本地窗口和监视窗口。立即|即时窗口118。调用弹出菜单时使用的方法名称为____.popupmenu

119.VB6.0语句if button=2 then的条件成立意味着点击鼠标_______键。右|右按钮120 .菜单项中显示的信息是菜单的_ _ _ _ _属性值.标题caption|caption标题。事件和_ _ _ _ _是Visual Basic 对象的方法122 .使用菜单编辑器设计菜单时，标题caption和_______ .名称| name|name

123.Visual Basic中的对象主要分为两个类别：表单对象和________对象。控件|控件对象124.Visual Basic的赋值语句可以赋值给变量，也可以赋值给对象的_______。属性名称1224分别是多文档界面和______界面。单文档界面(SDI )单文档界面SDI|单文档界面|SDI|单文档界面126.Visual Basic的菜单包括弹出菜单和

127.VB项目文件扩展名为__.VBP|VBP__，标准模块文件扩展名为__.BAS|BAS _____，表格文件扩展名为_ _.frm

For i=3 to 5 i=i 1 s=s 1 Next i

129 .以下段的输出结果为_ _ _3_ _.num=0while num=2num=num1wend printnum

130 .运行以下段时，x的值为_ _8_ _.x=5fori=1to 10 step 2x=Xi\5 nexti

131 .执行以下块时，b的值为_ _ 300 _ _.a=3003360 b=203360 t=aa=b : b=t

132 .以下段的执行结果为： _ _7_ _.dimx (3，5 ) For i=1 to 3 For j=1 to 5 x(i ) I，j )=i j Next j Next i

打印(3，4 ) )。

133 .以下程序的运行结果为___-9___. A='1' B='2'

a=val(a ) val (b ) b=val ) ' 12 ) )。

ifabthenprinta-belseprintb-a134 .以下程序的执行结果为___2___. A=75

if a60 theni=1IFA 70th Eni=2printi 135 .以下程序的运行结果为___3____. A=75

IFA 90 theni=1elseifa 80th Eni=2elseifa 70th Eni=3elseifa 60 theni=4endifprinti

136 .窗体包含一个名为Command1的命令按钮和一个名为Text1的文本框。程序运行后，Command1变为无效(灰色)。在文本框中输入字符后，命令按钮Command1变为可用。请在空白处填写适当的内容，完全补充程序。权限子表单_ )。

command1. enabled=_ _ _ false|0 _ _ _ _ end sub

如果在private subtext1_ change (command1. enabled=true end sub 137 .文本框中输入“ABC”三个字符，则为__aabABC|'aabABC'|'aab

结束子

138 .执行以下段时，b的值为__100_. a=100 b=20

a=a b b=a - b a=a - b 139 .执行下一块时，g的值为__15_____. a$='1' b$='2'

c=val(a$ ) val ) b$ ) d=val ) a$b$ ) g=c d 140 .执行下一段时，变量x的值为_130_. X=100

y=30 if x b打印c

143 .以下循环的执行次数为___11___.k=0dowhilek=10k=k1loop

144 .表单的MouseUp事件包括以下程序代码： selectcasebuttoncase1print ' ok！' 第2类

打印' hello！' case 4打印欢迎使用！' 结束选择

运行此程序，然后右键单击以在表单中输入_______.Hello！ | '你好！' | '你好！' 145 .程序中请求“保存文件”的对话框在通用对话框CommonDialog1中完成后，将显示_______.commondialog1.showsave| 可以调用此对话框(commondialog1.action=2)的_______方法.在showcolor147.visualbasic中调用各种APP应用程序的函数名称为_______方法

148 .要在文件列表框File1中只显示扩展名为bmp和jpg的图像文件，请输入文件1._ _ _ _ _ _=' *.BMP； *.jpg'.pattern 149 .在窗体中绘制列表框List1和文本框Text1，然后单击，创建以下两个事件过程： private sub form _ load (List1.AddItem '办公室' List1.AddItem '政务部' list1. additem '财务科' list1)

程序运行后，a=___4___，Text1.text=_______ .政务部| '政务部' 150 .在表格上画文本框和图片框，如下2

私有子文本1 _ change () Picture1.Print '等级考试'结束子b

151 .程序运行后，文本框显示的内容为_计算机| '计算机'|'计算机' __，更改文本框内容后，图像框显示的内容为__等级考试| '等级考试'|'等级考试' ' 将运行时程序设置为. private sub _ (form _ click ) ) ) _ ) (_(static ) _ (intleftasintegerintleft=int left 100 )

Form1.left=intleft End Sub

153 .在窗体上绘制标签Label1和列表List1的列表框。程序运行后，在列表框中添加几个列表项目。双击列表框中的项目，可在标签Label1中显示选定的项目。完全补充程序. private subform _ load (List1.Additem '西安' List1.Additem '连云港' list1. additem '南京' endsubprivatesublist

Form2.___ Show____ End Sub 155 .列表框中项目的序号从_______开始. 0

156 .可以在过程定义中使用_______关键字按值传递形状参数。 byval 157 .表达式len (我的英文名称tom )的值为_______.8

158 .在一行句子中写入多个句子时，各句子之间用_______符号隔开。 (:|冒号|: ) 159 .一条语句接在下一行，后跟_______符号。 () ) ) ) ) ) ) 65

中专VB问题

教务一体化系统

教育部职业教育与成人教育司

关于职业教育的通知

随机看看

标签

链接