单选题设已经在窗体上添加了一个通用对话框控件CommonDialogl，以下语句正确的是( )。
单选题在文本框中输入密码时，要求在文本框中只显示(*)号，则应当设置此文本框的( )属性。
单选题在窗体上画一个名称为Label1、标题为"VisualBasci考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并将其Interval属性设置为500。界面如下图所示。编写如下程序:PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()IfLabel1.Left＜WidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub程序运行后单击"开始"按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是______。A)标签的移动方向为自右向左B)单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动C)当标签全部移出窗体后，将从窗体的另一端出现并重新移动D)标签按指定的时间间隔移动
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl—Click() x=InputBox(“请输入一个整数”) Print x+345 End Sub 程序运行后，单击命令按钮，在输入对话框中输入123，则在窗体上输出的内容为( )
单选题以下能在窗体Forml的标题栏中显示“Visual Basic窗体”的语句是{{U}} {{/U}}。
A.Forml.Namer="VisualBasic窗体"
B.Forml.Title="VisualBasic窗体"
C.Forml.Caption="VisualBasic窗体"
D.Forml.Text="VisualBasic窗体"
单选题语句Dim a(-3 To 4, 3 To 6) As Integer定义的数组的元素个数是
单选题窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：
Private Sub Command1_Click()
Timer1.Enabled=Ture
Private Sub Form_Load()
Timer1.Interval=10
Timer1.Enabled=False
End Sub
Private Sub Timer1_Timer()
Command1.Left=Command1.Left+10
End Sub
程序运行时，单击命令按钮，则产生的结果是______。
单选题使两种完全不同的应用程序进行通信的技术称为( )技术。
单选题某人在窗体模块中定义了如下自定义类型：Type Rec num As Integer name As StringEnd Type但发现程序不能运行，关于这一问题，下面叙述中正确的是
单选题设有下面的循环：
i=0
While i＜=1
i=i + 3
Print i
Wend
则运行后的输出结果是（ ）。
单选题当一个工程含有多个窗体时，其中启动窗体是( )。
单选题运行下列语句后，输出的结果是( )。 Option Base 1 Dim a i=1 a=Array(l, -2, 9, 0, -1, 9) Do k=a(i) For m = 10 To k Step -2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n) ＜＞ 27
单选题在窗体上画一个文本框，名称为Textl，然后编写如下程序：
Private Sub Form_Load()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Form_Click()
Dim a As String,s As String
a=Text1.Text
s=""
For k=1 To Len(a)
s=UCase(Mid(a,k,1))+s
Next k
Text1.Text=s
End Sub
程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容______。
单选题在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为( ) A．vbVB B．不显示任何信息 C．VB D．出错
单选题下列关于Do Until-Loop型循环的叙述中，正确的是 ______。
单选题窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。要求编写一个程序，统计文本框中0-9各数字字符的个数。某人编写如下程序： Private Sub Commandl_Click() Dim count(10)As Integer’第1个For循环 For i=0 To 9 count(i)=0 Next S=Trim(Text1．Text) strLen=Len(s)’第2个For循环 For i=1 To strLen C=Mid(s，i，1) Ifc>=”0”And c<=”9”Then x=Val(c)：count(i)=count(i)+1 End If Next’第3个For循环 For i=0 To 9 Print Str(i)，count(i) Next End Sub 运行程序后，发现不能实现题目的要求，程序应该进行的修改是
单选题已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分，某人编写程序如下：
Option Base 1
Private Sub Command1_Click()
Dim sum As Integer
Sum=0
For i=1 To 4
For j=1 To 3
Sum=sum+score(i,j)
Next j
Print"第"＆i＆"个学生的总分是:";sum
Next i
End Sub
运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。程序需要修改，以下修改方案中正确的是
____
单选题设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：Private SubCommand1_Click()Dim s As String, ch As String s=""For k=1 To Len(Text1) ch=Mid(Text1，k, 1)s=ch+s Next k Text1.Text=s End Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是
单选题在窗体上添加一个按钮，名为Command1，然后编写如下的事件过程，输出结果为( )。 Prinvate 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 k Next j Next i Print x End Sub
单选题执行下列程序，按下回车键后输出结果为______。 Option Base 1 Private Sub From_KeyPress(KeyAscii As Integer) a=Array(237, 126, 87, 48, 498) m1=a(1) m2=1 If KeyAscii=13 Then For i=2 To 5 If a(i)＞ m1 Then m1=a(i) m2=1 End If Next i End If Print m1 Print m2 End Sub