单选题在窗体上画一个文本框，名称为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
单选题在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是( )。
单选题有如下的程序段，该程序段的执行完后，共执行循环的次数是 Private Sub Command1_Click() total=0 Counter=l Do Print Counter total=total+Counter Print total Counter=Counter+1 If total＞=10 Then Exit Do End If Loop While Counter＜=10 End Sub
单选题VisualBasic6．0集成环境的主窗口中不包括( )。
单选题在窗体上面1个命令按钮和1个文本框，其名称为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)＜＞""Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String,i As Integer
For i=Len(ss)To 1 Step-1
m=m+Mid(ss,i,1)
Next
Text1.Text=UCase(m)
End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是______。
单选题执行下面的程序段后，x的值为______。 x=5 For i=3 To 8 Step 2 x=x+1 Next i
单选题下列选项中，不是字符串常量的是________。
A."Visual Basic"
B."等级考试"
C.""
D.//Basic//
单选题在关系数据库中，用来表示实体间联系的是
单选题窗体上有Command1、Command2两个命令按钮。现编写以下程序：
Option Base 0
Dim a()As Integer, m As Integer
Private Sub Command1_Click()
m=InputBox("请输入一个正整数")
ReDim a(in)
End Sub
Private Sub Command2_Click()
in=InputBox("请输入一个正整数")
ReDim a(in)
End Sub
运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是______。
单选题Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。 Function Isfab(x As Integer)As Boolean Dim a As Integer，b As Integer，c As Integer， flag As Boolean flag=False a=1：b=1 Do While x
单选题假定有如下事件过程： Private Sub Form_Click0 Dim X As Integer，n As Integer x=1：n=0 Do While x<28 x=x*3：n=n+1 loop Print x，n End Sub 程序运行后，单击窗体，输出结果是
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) Dim i As Integer，x As Integer For i=l To 6 If i=1 Then x=i lf i＜=4 Then x=x+1 Else x=x+2 End lf Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为
单选题在窗体上画两个单选按钮，名称分别为Option1，Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1，标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是______。