1、能够获得一个文本框中被选取文本的内容的属性是______。
A:SelStart
B:SelLength
C:SelText
D:Text
参考答案:C
2、在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应当使用的语句为:______。
A:Text1.Enabled = False
B:Text1.Hide
C:Text1.Clear
D:Text1.Visible = False
参考答案:D
3、对于语句 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 为赋值语句
参考答案:D
4、以下变量名中,______是不符合Visual Basic的命名
规范
编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载
的。
A:_mnu_Open_234
B:Abc901
C:price_
D:K
参考答案:A
5、MsgBox 函数返回值的类型是__________。
A:数值或字符串
B:字符串
C:变体
D:整型数值
参考答案:D
6、VB一共有设计、运行和中断三种模式,要使用调试工具应该______。
A:进入中断模式
B:进入运行模式
C:进入设计模式
D:不用进入任何模式
参考答案:A
7、设a=6,则执行
x=IIF(a>5,-1,0)
后,x的值为______。
A:-1
B:6
C:0
D:5
参考答案:A
8、可以同时删除字符前导和尾部空白的函数是______。
A:Mid
B:Rtrim
C:Trim
D:Ltrim
参考答案:C
9、以下语句的输出结果是______。
Print Format$("32548.5","000,000.00")
A:32,548.5
B:32548.5
C:032,548.50
D:32,548.50
参考答案:C
10、设有如下声明:
Dim X As Integer
如果Sgn(X)的值为-1,则X的值是______。
A:等于0的整数
B:大于0的整数
C:整数
D:小于0的整数
参考答案:D
11、在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
For i = 1 To 4
x = 4
For j = 1 To 3
x = 3
For k = 1 To 2
x = x + 6
Next k
Next j
Next i
Print x
End Sub
程序运行后,单击命令按钮,输出结果是______。
参考答案: 15# 15 #15 #15
12、执行下面的程序段后,S的值为______。
s=5
For i=2.6 To 4.9 Step 0.6
s=s+1
Next i
参考答案:9
13、下列表达式有错误,正确的写法应该是______。
[(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 = 0
15、以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。
Private Sub Form_click()
Dim x, y As Single
Dim z As Integer
x = InputBox("Enter a score")
Do while x>=0
y = y + x
z = z + 1
x = InputBox("Enter a score")
Loop
If z = 0 Then
z = 1
End If
y = ______
Print y
End Sub
参考答案:y/z
VB考试二
1、列表框中的列表项的数目可以通过以下哪个属性的值获得______。
A:ListIndex
B:ListCount
C:Count
D:Index
参考答案:B
2、在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。
A:Private Sub List1_Click()
Label1.Caption=List1.Text
End Sub
B:Private Sub List1_Click()
Label1.Name=List1.ListIndex
End Sub
C:Private Sub List1_Click()
Label1.Name=List1.Text
End Sub
D:Private Sub List1_Click()
Label1.Caption=List1.ListIndex
End Sub
参考答案:A
3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
A:Listindex
B:Index
C:List
D:Tabindex
参考答案:A
4、为了清除列表框中的所有内容,应使用的方法是:______。
A:Clear
B:Remove
C:RemoveItem
D:Cls
参考答案:A
5、在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为______。
A:For i=1 To List1.ListCount
……
NEXT
B:For i=0 To List1.Count-1
……
NEXT
C:For i=0 To List1.ListCount-1
……
NEXT
D:For i=1 To List1.Count
……
NEXT
参考答案:C
6、设有如下程序:
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: 6 5 4 3
B: 5 4 3 2
C: 4 3 2 1
D: 7 6 5 4
参考答案:A
7、设执行以下程序段时依次输入1、3、5,执行结果为______。
Dim a(4) As Integer, b(4) As Integer
For K = 0 To 2
a(K + 1) = Val(InputBox("请输入数据"))
b(3 - K) = a(K + 1)
Next K
Print b(K)
A: 0
B: 3
C: 5
D: 1
参考答案:D
8、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim a(10,10) As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
Print
Next i
End Sub
程序运行后,单击命令按钮,窗体上显示的是______。
A: 1 2 3
4 5 6
7 8 9
B: 2 3 4
3 4 5
4 5 6
C: 1 4 7
2 5 8
3 6 9
D: 1 2 3
2 4 6
3 6 9
参考答案:A
9、用下面的语句所定义的数组的元素个数是:______。
Dim arr(3 To 5,-2 to 2)
A:24
B:12
C:15
D:20
参考答案:C
10、下列______语句可以为动态数组分配实际元素个数。
A:static语句
B:Dim语句
C:public语句
D:ReDim语句
参考答案:D
11、假定程序中有以下语句:
answer = MsgBox("String1",,"String2","String3",2)
执行该语句后,将显示一个信息框,此时如果单击"确定"按钮,则answer的值为:______。
A:String3
B:String2
C:String1
D:1
参考答案:D
12、设有语句
x=InputBox("输入数值","0","示例")
程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是______。
A:0是默认值
B:变量X的值是字符串"10"
C:在InputBox对话框标题栏中显示的是"示例"
D:变量X的值是数值10
参考答案:B
13、以下程序段运行的结果是:______。
Dim a(-1 To 5) As Boolean
Dim flag As Boolean
flag = False
Dim i As Integer
Dim j As Integer
Do Until flag = True
For i = -1 To 5
j = j + 1
If a(i) = False Then
a(i) = True
Exit For
End If
If i = 5 Then
flag = True
End If
Next
Loop
Print j
A:20
B:7
C:8
D:35
参考答案:D
14、设a=5,b=6,c=7,d=8,则执行下列语句后,x的值为:______。
x= IIF((a>b) And (c
0 Then
Func = x
Else
Func = y
End If
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 3
b = 4
c = Func(a, b)
Print "a="; a
Print "b="; b
Print "c="; c
End Sub
程序运行后,单击命令按钮,其输出结果为:______。
A:a= 3
b= 4
c= 12
B:a= 13
b= 12
c= 12
C:a= 3
b= 4
c= 3
D:a= 3
b= 12
c= 3
参考答案:D 题分:6
3、单击命令按钮时,下列程序代码的执行结果为______。
Public Sub Procl(n As Integer, ByVal m As Integer)
n = n Mod 10
m = m / 10
End Sub
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 12: y = 34
Call Procl(x, y)
Print x; y
End Sub
A: 12 3
B: 2 3
C: 12 34
D: 2 34
参考答案:D 题分:6
4、以下关于函数过程的叙述中,正确的是______。
A:在函数过程中,过程的返回值可以有多个
B:函数过程形参的类型与函数返回值的类型没有关系
C:当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递
D:如果不指明函数过程参数的类型,则该参数没有数据类型
参考答案:B 题分:6
5、以下说法错误的是______。
A:函数过程可以带参数
B:子过程没有返回值
C:函数过程没有返回值
D:子过程可以带参数
参考答案:C 题分:6
6、在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:
Private Sub Command1_Click()
Dim b As Integer
b = b + 1
End Sub
运行程序,三次单击命令按钮后,变量b的值是:______。
A:2
B:1
C:0
D:3
参考答案:B 题分:6
7、假定有以下函数过程:
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
程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcdefg"则单击"确定"按钮后在窗体上的输出结果为______。
A:GFEDCBA
B:ABCEDFG
C:gfedcba
D:abcdefg
参考答案:A 题分:6
8、Sub过程与Function过程最根本的区别是______。
A:两种过程参数的传递方式不同
B:Function过程可以有参数,Sub过程不可以
C:Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以
D:Sub过程的过程名不能返回值,而Function过程能通过过程名返回值
参考答案:D 题分:6
9、在代码中定义了一个子过程:
Sub P(a,b)
...
End Sub
下面______调用该过程的格式是正确的。
A:Call P
B:Call P 10,20
C:P(10,20)
D:Call P(10,20)
参考答案:D 题分:6
10、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y = 1
Y = Y + 5
X = 5 + X
Print X, Y
End Sub
程序运行时,三次单击命令按钮Command1后,窗体上显示的结果为______。
A: 15 15
B: 15 6
C: 15 16
D: 5 6
参考答案:B 题分:6
11、设有以下循环结构
Do
循环体
Loop While<条件>
则以下叙述中错误的是______。
A:循环体中可以使用Exit Do语句
B:"条件"可以是关系表达式、逻辑表达式或常数
C:若"条件"是一个为0的常数,则一次也不执行循环体
D:如果"条件"总是为True,则不停地执行循环体
参考答案:C 题分:6
12、在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
Private Function fun(ByVal m As Integer)
If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next
Print s
End Sub
程序运行后,单击命令按钮,在窗体上显示是______。
A:7
B:6
C:8
D:9
参考答案:A 题分:6
VB考试四
1、某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:
Private Sub Command1_Click()
Dim a(10) As Integer,max As Integer
For k=1 To 10
a(k)=InputBox("输入一个整数")
Next k
max=0
For k=1 To 10
If a(k)>max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是______。
A:把max=a(k)改为a(k)=max
B:把If a(k)>max Then改为If a(k) 0 And a <= 10,"长城","") _
& IIf ( a >10 And a <= 20,"故宫","") _
& IIf ( a > 20 And a <= 31,"颐和园","")
Text1.Text = t
End Sub
程序运行后,如果从键盘上输入16,则在文本框显示的内容是______。
A:旅游景点:长城颐和园
B:旅游景点:长城故宫
C:旅游景点:颐和园
D: 旅游景点:故宫
参考答案:D
15、若变量a未事先定义而直接使用(例如:a=0),则变量a的类型是______。
A:Variant
B:String
C:Boolean
D:Integer
参考答案:A
16、有如下程序::
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 i
Print sum
End Sub
程序运行后,单击窗体,输出结果为______。
A:30
B:12
C:24
D:18
参考答案:B
17、以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是______。
A:String
B:Mid
C:Left
D:Instr
参考答案:B
18、设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是______。
A:List1.ListIndex
B:List1.List
C:List1.Text
D:List1.Index
参考答案:C
19、设a=5,b=10,则执行c = Int((b - a) * Rnd + a) + 1后,c值的范围为______。
A:6~10
B:6~9
C:5~10
D:5~9
参考答案:A
20、在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序中应使用的语句是______。
A:Cd1.Action=2
B:Cd1.ShowSave=True
C:Cd1.Action=1
D:Cd1.ShowSave=0
参考答案:A
21、下面可以正确定义2个整型变量和1个字符串变量的语句是______。
A:Dim a As Integer,b,c As String
B:Dim a%,b$,c As String
C:Dim n,m As Integer,s As String
D:Dim x%,y As Integer,z As String
参考答案:D
22、在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
Private Sub Command1_Click()
a = InputBox("Enter an integer")
b = InputBox("Enter an integer")
Text1.Text = b + a
End Sub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是______。
A:出错
B:18
C:810
D:108
参考答案:D
23、在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:
Private Sub Command1_Click()
CommonDialog1.FileName =""
CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
End Sub
对于这个程序,以下叙述中错误的是______。
A:在该对话框中指定的默认文件类型为文本文件(*.Txt)
B:在该对话框中指定的默认文件名为空
C:该对话框的标题为VBTest
D:该对话框被设置为"打开"对话框
参考答案:A
24、设在窗体Forml上有一个列表框Listl,其中有若干个项目。要求单击列表框中某一项时,把该项显示在窗体上,正确的事件过程是______。
A:Private Sub List1_Click()
Print Form1.Text
End Sub
B:Private Sub Form1_Click()
Print List1.Text
End Sub
C:Private Sub List1_Click()
Print List1.Text
End Sub
D:Private Sub Form1_Click()
List1.Print List1.Text
End Sub
参考答案:C
25、在窗体上从左到右有Text1、Text2两个文本框(见图),要求运行程序时在Text1中输入1个分数后按回车键,则判断分数的合法性,若分数为0~100中的1个数,则光标移到Text2中;否则光标不动,并弹出对话框"分数错"。下面程序中正确的是______。
A:Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then ' 回车符的ASCII码是13
a=Val(Text1)
If a<0 And a>100 Then
Text2.SetFocus
Else
Text1.SetFocus:MsgBox("分数错")
End If
End If
End Sub
B:Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then ' 回车符的ASCII码是13
a=Val(Text1)
If a>=0 Or a<=100 Then
Text2.SetFocus
Else
Text1.SetFocus:MsgBox("分数错")
End If
End If
End Sub
C:Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then ' 回车符的ASCII码是13
a=Val(Text1)
If a>=0 And a<=100 Then
Text2.SetFocus
Else
Text1.SetFocus:MsgBox("分数错")
End If
End If
End Sub
D:Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then ' 回车符的ASCII码是13
a=Val(Text1)
If a>=0 And a<=100 Then
Text1.SetFocus
Else
Text2.SetFocus:MsgBox("分数错")
End If
End If
End Sub
参考答案:C
26 、假定通用对话框的名称为CommonDialog1,命令按钮的名称为Command1,则单击命令按钮后,能使打开的对话框的标题为"New Title"的事件过程是______。
A:Private Sub Command1_Click()
CommonDialog1.DialogTitle = "New Title"
CommonDialog1.ShowPrinter
End Sub
B:Private Sub Command1_Click()
CommonDialog1.DialogTitle = "New Title"
CommonDialog1.ShowColor
End Sub
C:Private Sub Command1_Click()
CommonDialog1.DialogTitle = "New Title"
CommonDialog1.ShowOpen
End Sub
D:Private Sub Command1_Click()
CommonDialog1.DialogTitle = "New Title"
CommonDialog1.ShowFont
End Sub
参考答案:C
27、在窗体上画一个通用对话框,程序运行后,通过ShowOpen方法显示"打开"对话框,要求在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则对通用对话框的Filter属性的正确设置是:______。
A:"(*.DOC)*.DOC"
B:"(*.DOC)|(.DOC)"
C:"(*.DOC)|*.DOC"
D:"(*.DOC)||*.DOC"
参考答案:C
28、以下说法中正确的是______。
A:只有当某个窗体为当前活动窗体时,才能打开菜单编辑器
B:任何时候都可以通过执行"工具"菜单中的"菜单编辑器"命令打开菜单编辑器
C:任何时候都可以通过单击标准工具栏上的"菜单编辑器"按钮打开菜单编辑器
D:只有当代码窗口为当前活动窗口时,才能打开菜单编辑器
参考答案:A
29、为了暂时关闭计时器,应把计时器的某个属性设置为False,这个属性是______。
A:Timer
B:Visble
C:Enabled
D:Interval
参考答案:C
30、某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=0,并编程如下。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer()
Label1.Caption=Time$
End Sub
在程序执行时发现未能实现上述目的,那么,他应做的修改是______。
A:通过属性窗口把计时器的Enabled属性设置为False
B:把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
C:通过属性窗口把计时器的Interval属性设置为2000
D:把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$
参考答案:C
31、若设置了文本框的属性PasswordChar="$",则运行程序时向文本框中输入8个任意字符后,文本框中显示的是______。
A:无任何内容
B:1个"$"
C:8个"*"
D:8个"$"
参考答案:D
32、在窗体上有如下图所示的控件,各控件的名称与其标题相同,并有如下程序:
Private Sub Form_Load()
Command2.Enabled = False
Check1.Value = 1
End Sub
刚运行程序时,看到的窗体外观是______。
A:
B:
C:
D:
参考答案:D
33、要使两个单选按钮属于同一个框架,正确的操作是______。
A:先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中
B:其他选项方法都正确
C:先画一个框架,再在框架中画两个单选按钮
D:先画两个单选按钮,再画框架将单选按钮框起来
参考答案:C
34、在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程
Private Sub Form_Load()
List1.AddItem "Item1"
List1.AddItem "Item2"
List1.AddItem "Item3"
End Sub
Private Sub Command1_Click()
List1.List(List1.ListCount) = "AAAA"
End Sub
程序运行后,单击命令按钮,其结果为______。
A:把列表框中原有的最后一项改为"AAAA"
B:把字符串"AAAA"添加到列表框的最后(即"Item3"的后面)
C:把字符串"AAAA"添加到列表框中,但位置不能确定
D:把字符串"AAAA"插入到列表框的最前面(即"Item1"的前面)
参考答案:B
35、在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程:
Private Sub Command1_Click()
x=Val(Text1.Text)
Select Case x
Case 1,3
y=x*x
Case Is>=10,Is<=-10
y=x
Case -10 To 10
y=-x
End Select
End Sub
程序运行后,在文本框中输入3,然后单击命令按扭,则以下叙述中正确的是______。
A:先执行y=x*x,再执行y=-x
B:执行y=-x
C:执行y=x*x
D:程序出错
参考答案:C
36、以下不能输出"Program"的语句是______。
A:Print Left("VBProgram",7)
B:Print Right("VBProgram",7)
C:Print Mid("VBProgram",3)
D:Print Mid("VBProgram",3,7)
参考答案:A
37、窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时,单击命令按钮,就可把文本框中的内容写到文件out.txt中,每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是______。
A:Private Sub Command1_Click()
Open "out.txt" For Append As #1
Print #1,Text1.Text
Close #1
End Sub
B:Private Sub Command1_Click()
Open "out.txt" For Output As #1
Print #1,Text1.Text
Close #1
End Sub
C:Private Sub Command1_Click()
Open "out.txt" For Input As #1
Print #1,Text1.Text
Close #1
End Sub
D:Private Sub Command1_Click()
Open "out.txt" For Random As #1
Print #1,Text1.Text
Close #1
End Sub
参考答案:A
38、设有如图所示窗体和以下程序:
Private Sub Command1_Click()
Text1.Text="Visual Basic"
End Sub
Private Sub Text1_LostFocus()
If Text1.text<>"BASIC" Then
Text1.Text=""
Text1.SetFocus
End If
End Sub
程序运行时,在Text1文本框中输入"Basic"(如图所示),然后单击Command1按钮,则产生的结果是______。
A:文本框中为"Basic",焦点在文本框中
B:文本框中无内容,焦点在文本框中
C:文本框中为"Basic",焦点在按钮上
D:文本框中为"Visual Basic",焦点在按钮上
参考答案:B
39、为了使一个窗体从屏幕消失但仍在内存中,所使用的方法或语句为______。
A:Unload
B:Load
C:Show
D:Hide
参考答案:D
40、某人创建了1个工程,其中的窗体名称为Form1;之后又添加了一个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是______。
A:把Form2的TabIndex属性设置为1,把Form1的TabIndex属性设置为2
B:在Form1的Load事件过程中加入语句Load Form2
C:在Form2的Load事件过程中加入语句Form2.Show
D:在工程属性对话框中把"启动对象"设置为Form2
参考答案:D
41、CommonDialog控件可以显示______种对话框。
A:4种
B:5种
C:7种
D:6种
参考答案:D
42、现有语句:y=IIf(x>0,xMod3,0)
设x=10,则y的值是______。
A:语句错误
B:1
C:3
D:0
您的答案:B 参考答案:B
43、假定有下表所列的菜单结构:
标题
名称
层次
显示
appear
1(主菜单)
大图标
bigicon
2(子菜单)
小图标
smallicon
2(子菜单)
要求程序运行后,如果单击菜单项"大图标",则在该菜单项前添加一个"√"。以下正确的事件过程是______。
A:Private Sub bigicon_Click()
Me.appear.bigicon.Checked = True
End Sub
B:Private Sub bigicon_Click()
bigicon.Checked = False
End Sub
C:Private Sub bigicon_Click()
bigicon.Checked = True
End Sub
D:Private Sub bigicon_Click()
appear.bigicon.Checked = True
End Sub
参考答案:C
44、函数过程F1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。以下能正确实现上述功能的代码的是______。
A:Function F1(b As Integer)
If b Mod 2 = 0 Then
Return 0
Else
Return 1
End If
End Function
B:Function F1(b As Integer)
If b Mod 2 = 0 Then
F1 = 1
Else
F1 = 0
End If
End Function
C:Function F1(b As Integer)
If b Mod 2 = 0 Then
F1 = 0
Else
F1 = 1
End If
End Function
D:Function F1(b As Integer)
If b Mod 2 <> 0 Then
Return 0
Else
Return 1
End If
End Function
参考答案:C
45、要使一个文本框可以显示多行文本,应设置为True的属性是______。
A:MultiLine
B:Enabled
C:MaxLength
D:Width
参考答案:A
46、以下关于图片框控件(PictureBox)的说法中,错误的是______。
A:用Stretch属性可以自动调整图片框中图形的大小
B:清空图片框控件中图形的方法之一是加载一个空图形
C:图片框控件可以作为容器使用
D:可以通过Print方法在图片框中输出文本
参考答案:A
47、以下有关数组定义的语句序列中,错误的是______。
A:Static arr1(3)
arr1(1)=100
arr1(2)="Hello"
arr1(3)=123.45
B:Option Base 1
Private Sub Command3_Click()
Dim arr3(3) As Integer
……
End Sub
C:Dim arr2() As Integer
Dim size As Integer
Private Sub Command2_Click()
size=InputBox("输入:")
ReDim arr2(size)
……
End Sub
D:Dim n As Integer
Private Sub Command4_Click()
Dim arr4(n) As Integer
……
End Sub
参考答案:D
48、用Write和Print语句向文件中写入多个数据的差别在于______。
A:Print语句写入字符串会自动给字符串加上双引号;写入的正数前面没有空格
B:Print语句自动在数据项之间插入逗号
C:Write语句写入字符串会自动给字符串加上双引号;写入的正数前面没有空格
D:Write语句不会自动在数据项之间插入逗号
参考答案:C
49、以下语句用于打开一个顺序文件Open "C:\MyFile.txt" For OutPut 但该语句的一个重要错误是没有______。
A:指定打开文件名
B:指定文件号
C:指定打开方式
D:指定文件类型
参考答案:B
50、设有如下语句:
Dim a,b As Integer
c="VisualBasic"
d=#7/20/2005#
以下关于这段代码的叙述中,错误的是______。
A:c中的数据是字符串
B:b被定义为Integer类型变量
C:a被定义为Integer类型变量
D:d中的数据是日期类型
参考答案:C