单选题如果要在任何新建的模块中自动插入option Explicit 语句,则应采用下列______ 操作步骤。 A) 在“工具”莱单中选取“选项”命令,打开“选项”对话框,单击“编辑器”选项卡,选中“要求变量声明”选项 B) 在“编辑”菜单中执行“插入文件”命令。 C) 在“工程”菜单中执行“添加文件”命令。 D) 以上操作均不对
单选题语句Print 5/4*6/5 Mod 2的输出结果是
A. 0
B. 1
C. 2
D. 3
单选题下列程序段的结果为 A="ABBACDDCBA" For
i=6 To 2 Step-2 X=Mid(A,i,i)
Y=Left(A,i) Z=Right(A,i)
Z=X&Y&Z Next Print Z
A. ABC
B. AABAAB
C. BBABBA
D. ABBABA
单选题有如下程序:
infocase$=InputBox("Inputoneletter:") Select Case
infocase$ case"a"
grade$="Verygood" case"b"
grade$="Good" case"C"
grade$="OK" case"d"
grade$="Qualified" case Else
grade$="Bab" End Select Print grade$
运行时从键盘上输入英文小写字母d后,输出的结果是{{U}} {{/U}}。
A.Very good
B.Good
C.Bad
D.Qualified
单选题在DblClick事件发生时,不会同时发生的事件是( )。
单选题以下关于控件的叙述中,正确的是( )。
单选题执行以下程序段后,变量C$的值为( )。 A$="Visual Basic Programing" B$="Quick" C$=B$ & Ucase(Mid$(A$,7,6)) & Right$(A$,11)
单选题编写了如下事件过程: Private Sub Form_MouseDown(KeyCode As Integer,Shift As Integer) If (Button And 3)=3 Then Print"AAAA" End If End Sub 程序运行后,为了在窗体上输出“AAAA”,应按下的鼠标键是
单选题当Form1_Click事件发生时,程序的输出结果是( )。 Private Sub Form_Click() Dim M As Integer,k As Integer,t As Integer M=5:k=7 Select Case M Case Is<0 M=M+5 Case 1 To 10 t=M:M=k:k=t Case Else M=k Mod 3 End Select Print M,k,t End Sub
单选题在Visual Basic 中按文件的访问方式不同,可将文件分为( )。
单选题下列程序段的执行结果为( )。 a=0:b=1 Do a=a+b b=b+1 Loop While a<10 Print a;b
单选题若要使文本框能够输入多行文本,应该设置的属性是______。
A.MultiLine
B.WordWrap
C.ScrollBars
D.AutoSize
单选题在窗体上添加一个按钮,名为Command1,然后编写如下的事件过程,输出结果为 Private Sub Comand1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+5 Next Next Next Print x End Sub
单选题使用链表来表示线性表的优点是
单选题在一棵二叉树上,第5层的结点数最多是( )。
单选题对建立良好的程序设计风格,下面描述正确的是( )。
单选题下列描述中,错误的是( )。
单选题如果将文本框的Locked属性设置为True,则以下说法正确的是
A. 此时在属性窗口不可以修改文本框的Text属性值
B. 运行时用户不可以在界面修改文本框中的内容
C. 在程序代码中不可以修改文本框的内容,如不可以使用语句Text1.Text="aaa"
D. 以上均不正确
单选题在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后,单击命令按钮,窗体上显示的是
单选题在窗体上画一个命令令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下代码:
Sub S(x As Integer, y As Integer)
Static z As Integer
y=x*x+z
z=y
End Sub
Private Sub Command1_Click()
Dim i As Integer, z As Integer
m=0
z=0
For i=1 To 3
s i,z
m=m+z
Next i
Label1.Caption=Str(m)
End Sub
程序运行后,单击命令按钮,在标签中显示的内容是______。
