在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Co...

单项选择题

设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是______。

A．Text1.MaxLength=0
B．Text1.Enabled=False
C．Text1.Visible=False
D．Text1.Width=0

单项选择题

以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是______。

A．Form1.Name=“VisualBasic窗体”
B．Form1.Title=“VisualBasic窗体”
C．Form1.Caption=“VisualBasic窗体”
D．Form1.Text=“VisualBasic窗体”

单项选择题

设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是______。

A．把Caption属性设置为&Open
B．把Caption属性设置为&Open
C．把Name属性设置为&Open
D．把Name属性设置为&Open

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支1"
Case Is＞4
Print "分支2"
Case Else
Print "Else分支"
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是______。

A．分支1
B．分支2
C．Else分支
D．程序出错

单项选择题

在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如下图所示。

以下能实现上述操作的程序段是______。

A．Private Sub HScroll1_Change()Text1.Text=HScroll1.ValueEnd Sub
B．Private Sub HScroll1_Click()Text1.Text=HScroll1.ValueEnd Sub
C．Private Sub HScroll1_Change()Text1.Text=HScroll1.CaptionEnd Sub
D．Private Sub HScroll1_Click()Text1.Text=HScroll1.CaptionEnd Sub

单项选择题

以下关于MsgBox的叙述中，错误的是______。

A．MsgBox函数返回一个整数
B．通过MsgBox函数可以设置信息框中图标和按钮的类型
C．MsgBox语句没有返回值
D．MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
Cls
For i=1 To 2
y=y+x
x=x+2
Next
Print x,y
End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是______。

A．4 2
B．12 18
C．12 30
D．4 6

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$="VisualBasic"
Print String(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是______。

A．VVV
B．Vis
C．sic
D．11

单项选择题

设有如下程序段：
x=2
For i=1 to 10 Step 2
x=x+i
Next
运行以上程序后，X的值是______。

A．26
B．27
C．38
D．57

单项选择题

以下叙述错误的是______。

A．在KeyPress事件过程中不能识别键盘的按下与释放
B．在KeyPress事件过程中不能识别回车键
C．在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同的字母
D．在KeyDown和KeyUp事件过程中，从大键盘上输入的“1”和从右侧小键盘上输入的“1”被视作不同的字符

单项选择题

执行如下两条语句后，窗体上显示的是______。
a=9.8596
Print Format(a,"$00,00.00")

A．0，009.86
B．$9.86
C．9.86
D．$0，009.86

单项选择题

在窗体上画一个名称为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．该对话框被设置为“打开”对话框
B．在该对话框中指定的默认文件名为空
C．该对话框的标题为VBTest
D．在该对话框中指定的默认文件类型为文本文件(*.Txt)

单项选择题

设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click()
Dim a As Integer
a=10
Call g(Form2,A)
End Sub
Private Sub g(f As Form, x As Integer)
y=IIf(x＞10,100,-100)
f.Show
f.Caption=y
End Sub
运行以上程序，正确的结果是______。

A．Form1的Caption属性值为100
B．Form2的Caption属性值为-100
C．Form1的Caption属性值为-100
D．Form2的Caption属性值为100

单项选择题

在窗体上画一个名称为Command1的命令按钮，并编写如下过程：
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是______。

A．10 5
B．12 5
C．10 7
D．12 7

单项选择题

设有如下程序：
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，则窗体上不显示任何信息

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4,5)
For i=1 To UBound(A)
a(i)=a(i)+i-1
Next
Print a(3)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是______。

A．4
B．5
C．6
D．7

单项选择题

阅读下面程序：
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19)
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击命令按钮，输出结果为______。

A．13
B．14
C．27
D．15

单项选择题

在窗体上画一个名称为File1的文件列表框，并编写如下程序：
Private Sub File1_DblClick()
x=Shell(File1.FileName,1)
End Sub
以下关于该程序的叙述中，错误的是______。

A．x没有实际作用，因此可以将该语句写为：Call Shell(File1.FileName,1)
B．双击文件列表框中的文件，将触发该事件过程
C．要执行的文件的名字通过File1.FileName指定
D．File1中显示的是当前驱动器、当前目录下的文件

单项选择题

在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如下图所示。

编写如下程序：
Private Sub Form_Load()
Timer1.Enabled=False
End Sub
Private Sub Command1_Click()
Timer1.Enabled=True
End Sub
Private Sub Command2_Click()
Timer1.Enabled=False
End Sub
Private Sub Timer1_Timer()
If Label1.Left＜Width Then
Label1.Left=Label1.Left+20
Else
Label1.Left=0
End If
End Sub
程序运行后单击“开始”按钮，标签在窗体中移动。
对于这个程序，以下叙述中错误的是______。

A．标签的移动方向为自右向左
B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D．标签按指定的时间间隔移动

单项选择题

执行以下程序段：
a S="abbacddcb"
For i=6 To 2 Step-2
X=Mid(a,i,i)
Y=Left(a,j)
z=Right(a,i)
z=UCase(X&Y&Z)
Next i
Print z
输出结果为______。

A．ABA
B．BBABBA
C．ABBABA
D．AABAAB

单项选择题

窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim s As Variant
a=Array(1,2,3,4,5)
Sum=0
For i=1 To 5
Sum=Sum_a(i)
Next i
X=Sum/5
For i=1 To 5
If a(i)＞x Then Print a(i);
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是______。

A．1 2
B．1 2 3
C．3 4 5
D．4 5

单项选择题

假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
Model1的代码如下：
Public x As Integer
Public y As Integer
Sub S1()
x=1
S2
End Sub
Sub S2()
y=10
Form1.Show
End Sub
Model2的代码如下：
Sub Main()
S1
End Sub
其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是______。

A．Form1→Model1→Model2
B．Model1→Model2→Form1
C．Model2→Model1→Form1
D．Model2→Form1→Model1

单项选择题

窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String*20
End Type
Private Sub Command1_Click()
Dim MaxSize，NextChar,MyChar
Open "c:\file.txt" for Input As #1
NaxSize=LOF(1)
for NextChar=NaxSize To 1 Step-1
Seek #1,NextChar
HyChar=Input(1,#1)
Next NextChar
Print EOF(1)
Close #1
End Sub
程序运行后，单击命令按钮，其输出结果为______。

A．True
B．False
C．0
D．Null

单项选择题

有如下的程序片段，该程序片段的执行完后，共执行循环______次。
Private Sub Command1_Click()
total=0
Counter=1
do
Print Counter
total=total+Counter
Print total, "111"
Counter=Counter+1
if total＞=10 then
exit do
End if
Loop while Counter＜=10
End Sub

A．4
B．10
C．12
D．20

单项选择题

程序段如下：
Private Sub Command1_Click()
a=0
for I=15 To 15 Step-2
a=a+I
Next I
Print a,I
End Sub
发生Command1的单击事件后，程序的输出结果是______。

A．0 13
B．15 13
C．0 15
D．15 15

单项选择题

已知通用对话框名为Cdlg，则执行下列的______语句，将弹出“另存为对话框”对话框。

A．Cdlg.Action=1
B．Cdlg.Action=2
C．Cdlg.Action=4
D．Cdlg.Action=3

单项选择题

在窗体中添加一个列表框(listBox1)和一个命令按钮，并编写如下代码：
Private Sub Command1_Click()
Dim Entry,I,Nsg
Msg="Choose Ok to add 100 items to your list box."
MsgBox Msg
for I=1 To 100
Entry="Entr"& I
List1.AddItem Entry
Next I
End Sub
程序完成的功能是______。

A．本示例使刖AddItem方法增加100项给一个列表框
B．本示例使用AddItem方法向一个列表框中添加的内容是1～100的列
C．本示例使用AddItem方法向一个列表框中添加的内容是1～100的和
D．本示例使用AddItem方法增加101项给一个列表框

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=InputBox("Enter the First integer")
y=InputBox("Enter the Second integer")
Print y+x
End Sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是______。

A．579
B．123
C．456
D．123456

单项选择题

下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为______。

A．Picture="pic1.jpg"
B．Picture.Handle="pic1.jpg"
C．Picture1.Picture=LoadPicture("pic1.jpg")
D．Picture:LoadPicture("pic1.jpg")

单项选择题

下列的程序段执行后，x的值为______。
Private Sub Command1_Click()
x=0
for i=1 To 10
for j=i To 10
x=x+1
Next j
Next i
Print x
End Sub

A．50
B．55
C．5
D．105

单项选择题

当文本框的Text属性发生变化时，将发生______事件。

A．Change
B．LostFocus
C．KeyPress
D．SetFocus

单项选择题

下面程序的输出是______。
Private Sub Command1_Click()
Print 7\3
End Sub

A．3.5
B．7
C．3
D．2

你可能感兴趣的试题

设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是______。

以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是______。

设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是______。

在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如下图所示。 以下能实现上述操作的程序段是______。

以下关于MsgBox的叙述中，错误的是______。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x,y End Sub 程序运行后，连续三次单击Command1按钮后，窗体上显示的是______。

在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的是属性设置语句是______。

以下关于多重窗体程序的叙述中，错误的是______。

以下关于文件的叙述中，错误的是______。

以下叙述错误的是______。

以下合法的Visual Basic标识符是______。

当一个复选框被选中时，它的Value属性的值是______。

表达式5 Mod 3+3\5*2的值是______。

设x=4，y=8，z=7，以下表达式的值是______。 x＜y And (Not y＞z) Or z＜x

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3,a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。

设有如下程序段： x=2 For i=1 to 10 Step 2 x=x+i Next 运行以上程序后，X的值是______。

以下叙述错误的是______。

执行如下两条语句后，窗体上显示的是______。 a=9.8596 Print Format(a,"$00,00.00")

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(A) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。

阅读下面程序： Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击命令按钮，输出结果为______。

在窗体上画一个名称为File1的文件列表框，并编写如下程序： Private Sub File1_DblClick() x=Shell(File1.FileName,1) End Sub 以下关于该程序的叙述中，错误的是______。

执行以下程序段： a S="abbacddcb" For i=6 To 2 Step-2 X=Mid(a,i,i) Y=Left(a,j) z=Right(a,i) z=UCase(X&Y&Z) Next i Print z 输出结果为______。

有如下的程序片段，该程序片段的执行完后，共执行循环______次。 Private Sub Command1_Click() total=0 Counter=1 do Print Counter total=total+Counter Print total, "111" Counter=Counter+1 if total＞=10 then exit do End if Loop while Counter＜=10 End Sub

程序段如下： Private Sub Command1_Click() a=0 for I=15 To 15 Step-2 a=a+I Next I Print a,I End Sub 发生Command1的单击事件后，程序的输出结果是______。

已知通用对话框名为Cdlg，则执行下列的______语句，将弹出“另存为对话框”对话框。

在窗体中添加一个列表框(listBox1)和一个命令按钮，并编写如下代码： Private Sub Command1_Click() Dim Entry,I,Nsg Msg="Choose Ok to add 100 items to your list box." MsgBox Msg for I=1 To 100 Entry="Entr"& I List1.AddItem Entry Next I End Sub 程序完成的功能是______。

下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为______。

下列的程序段执行后，x的值为______。 Private Sub Command1_Click() x=0 for i=1 To 10 for j=i To 10 x=x+1 Next j Next i Print x End Sub

当文本框的Text属性发生变化时，将发生______事件。

下面程序的输出是______。 Private Sub Command1_Click() Print 7\3 End Sub

在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如下图所示。

以下能实现上述操作的程序段是______。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
Cls
For i=1 To 2
y=y+x
x=x+2
Next
Print x,y
End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是______。

设x=4，y=8，z=7，以下表达式的值是______。
x＜y And (Not y＞z) Or z＜x

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$="VisualBasic"
Print String(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是______。

设有如下程序段：
x=2
For i=1 to 10 Step 2
x=x+i
Next
运行以上程序后，X的值是______。

执行如下两条语句后，窗体上显示的是______。
a=9.8596
Print Format(a,"$00,00.00")

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4,5)
For i=1 To UBound(A)
a(i)=a(i)+i-1
Next
Print a(3)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是______。

阅读下面程序：
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19)
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击命令按钮，输出结果为______。

在窗体上画一个名称为File1的文件列表框，并编写如下程序：
Private Sub File1_DblClick()
x=Shell(File1.FileName,1)
End Sub
以下关于该程序的叙述中，错误的是______。

执行以下程序段：
a S="abbacddcb"
For i=6 To 2 Step-2
X=Mid(a,i,i)
Y=Left(a,j)
z=Right(a,i)
z=UCase(X&Y&Z)
Next i
Print z
输出结果为______。

有如下的程序片段，该程序片段的执行完后，共执行循环______次。
Private Sub Command1_Click()
total=0
Counter=1
do
Print Counter
total=total+Counter
Print total, "111"
Counter=Counter+1
if total＞=10 then
exit do
End if
Loop while Counter＜=10
End Sub

程序段如下：
Private Sub Command1_Click()
a=0
for I=15 To 15 Step-2
a=a+I
Next I
Print a,I
End Sub
发生Command1的单击事件后，程序的输出结果是______。

在窗体中添加一个列表框(listBox1)和一个命令按钮，并编写如下代码：
Private Sub Command1_Click()
Dim Entry,I,Nsg
Msg="Choose Ok to add 100 items to your list box."
MsgBox Msg
for I=1 To 100
Entry="Entr"& I
List1.AddItem Entry
Next I
End Sub
程序完成的功能是______。

下列的程序段执行后，x的值为______。
Private Sub Command1_Click()
x=0
for i=1 To 10
for j=i To 10
x=x+1
Next j
Next i
Print x
End Sub

下面程序的输出是______。
Private Sub Command1_Click()
Print 7\3
End Sub