单选题在窗体上画了两个按钮控件Command1和Command2，有如下程序： Private Sub Command1_Click() Print "Visual"； End Sub Private Sub Command2_Click() Print "Basic"； End Sub Private Sub Form_Load() Command2.Cancel=True Command1.Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出的结果是 A) Basic B) Visual C) Cancel D) True
单选题以下变量名中合法的是
单选题要使窗体以最大化方式显示，应设置窗体的
____
属性。
单选题若变量a未事先定义而直接使用(例如a＝0)，则变量a的类型是( ) A．Integer B．String C．Boolean D．Variant
单选题表达式Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是( )。
单选题在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程： Private Sub Text1 KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Chr(KeyAscii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Chck()
Dim a
a=Array(1, 2, 3, 4)
j=1
For i=4 To 1 Step-1
S=s+a(i)*j
j=j*10
Next i
Print s
End Sub
程序运行后，单击命令按钮，其输出结果是______。
单选题若要把窗体上命令按钮Command1的状态设置为不可用，应该执行的命令是( )。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print X End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。
单选题窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是( )。
单选题有如下语句序列：Dim a，b As Integer Print a Print b执行以上语句序列，下列叙述中错误的是
单选题结构化程序设计的3种结构是( )。
单选题窗体上有一个Text1文本框、一个Command1命令按钮，并有以下程序：PrivateSubCommand1_Click()DimnIfText1.Text＜＞"123456"Thenn=n+1Print"口令输入错误"&n&"次"EndIfEndSub希望程序运行时得到图1所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是图2所示的效果，程序需要修改。下面修改方案中正确的是______。图1图2
单选题在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1:b=0 For j=1 To 10 a=a+1:b=b+2 Next j Next i Label1.Caption=Str(
单选题在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2, KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是( )。 A) bbb B) BBB C) BB D) bb
单选题下列程序的功能是调用字体对话框来设置文本框中的字体，单击Command1按钮弹出对话框，进行相应的字体、字号等的设置，然后单击“确定”按钮退出对话框，则文本框中将发生哪些变化( )。 Private Sub Command1_Click() CommonDialog1.CancelError=True CommonDialog1.Flags=3 On Error Resume Next CommonDialog1.ShowFont Text1.Font.Name=CommonDialog1.FontName Text1.Font.Size=CommonDialog1.FontSize Text1.Font.Bold=CommonDialog1.FontBold Text1.Font.Italic=CommonDialog1.FontItalic Text1.Font.Underline=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.ForeColor=CommonDialog1.Color End Sub
单选题下面对软件测试描述错误的是
单选题设有下面程序代码：
Private Sub Command1_Click()
Dim str As String，ch As String
str="Visual Basic Programming"：ch="a"
n=fun(ch，str)：Print str，n
End Sub
Privme Function fun(ch As String，sir As String)As Integer
Dim strbufAs String，c As String，n As Integer
For k=1 To Len(str)
c=Mid$(str，k，1)
Ifc<>ch Then
strbuf=strbuf＆c
Else
strbuf=strbuf＆UCase(c)：n=n+1
End If
Next k
str=strbuf：fun=n
End Function
程序运行时的输出是
单选题下面关于标准模块的叙述中错误的是( ) A．标准模块中可以声明全局变量 B．标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程 C．标准模块中可以包含一些Public过程 D．一个过程中可以包含有多个标准模块
单选题只能用来显示字符信息的控件是( )。 A) 文本框 B) 标签框 C) 图片框 D) 图像框