单选题下列方法中不能退出Visual Basic的是（ ）。
单选题窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框，其Text属性值为“VB Programming”。运行程序后，选中其中的“VB”，并执行如下事件过程： Private Sub Commandl_Click() Text1．SelText=“C++” End Sub 则文本框中显示的内容为
单选题在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char=Chr(KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6, KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为______。
单选题有下面程序代码： Private Sub Commandl_Click() Dim sign As Integer sign=1 a=1：b=2 For k=1 To 5 c=a+sign*b a=b：b=C Print c： sign=-sign Next k End Sub 程序运行后，单击命令按钮Commandl，输出结果是
单选题Visual Basic 6.0共有3个版本，按功能从弱到强的顺序排列应是
单选题程序运行时，要清除组合框Combol qlt，的所有内容，应使用语句( )。
单选题以下语句的输出结果是 ( ) Print Format $ (3678. 234."000，000，000")
单选题比较图片框(PictureBox)和图像框(Image)的使用，正确的描述是( )。
单选题下述程序的运行结果是()。Form=3To1Step-1x$=String$(m，"#")Printx$Nextm
单选题窗体上有一个名称为Command1的命令按钮，其单击事件过程及相关的函数过程如下：
Private Sub Command1_Click() Dim i As Integer
For i=1 To 500
If p(i)Then s=s+1
Next
Print s
End Sub
Private Function p(x As Integer) As Boolean
If x Mod 7＜＞0 Then
p=True
Else
p=False
End If
End Function
关于上述程序，以下叙述中正确的是
单选题有程序代码：Text1．text="Visual Basic" 其中的Text1、text和"Visual Basic"分别代表( )。
单选题编写如下程序： Privme Sub Commandl_Click() Dim xAs Integer,y As Integer x=1：y=1 Do y=x*y Ify>10 Then Exit Do Else x=x+3 End If Loop Until X<=10 Print x:yEnd Sub 程序运行后，单击命令按钮Command1，输出结果为
单选题设窗体上有一个名为List1的列表框，并编写下面的事件过程：
Prirate Sub List1_Click()
Dim ch As String
ch=List1.List(List1.Listlndex)
List1.RemoveItem List1.Listlndex
List1.Addltem ch
End Sub
程序运行时，单击一个列表项，则产生的结果是______。
单选题在窗体Form1上放一个名为Text1的文本框和一个名为Command1的命令按钮，然后编写一个事件过程。要求程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“VB等级考试二级”。以下能正确实现上述操作的事件过程是( )。
单选题窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=8
b=12
Print Fun(a,b);a;b
End Sub
Private Function Fun(By Val a As Integer,b AS Integer) As Integer
a=a Mod 5
b=b/5
Fun=a
End Function
程序运行时，单击命令按钮，则输出结果是______。
单选题在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox("请输入日期(1～31)") t="旅游景点："&IIf(a＞0 And a＜=10，"长城"，"")&_ IIf(a＞10 And a＜=20，"故宫"，"")&IIf(a＞20 And a＜=31，"颐和园"，"") Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是
单选题下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是______。
Private Sub Command1_Click()
Dim count(25)As Integer,ch As String
ch=UCase(InputBox("请输入字母字符串"))
For k=1 To Len(ch)
n=Asc(Mid(ch,k,1))-Asc("A")
If n＞=0 Then
count(n)=count(n)+1
End If
Next k
iTI=count(0)
For k=1 To 25
If m＜count(k)Then
m=count(k)
End If
Next k
Ptint m
End Sub
单选题有如下程序： 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后，输出的结果是( )。
单选题设在窗体上有个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Const Alt=4 Const Key_F2=&H71 altdown%=(Shift And Alt)>0 f2down%=(KeyCode=Key_F2) If altdown%And t2down% Then Text1 Text="BBBBB" End If End Sub 上述程序运行后，如果按[Shift+F2]，则在文本框中显示得是
单选题设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏：Form1，显示Form2。若口令为“Teacher”，所有菜单都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：PrivateSubText11_KeyPress(KeyAsciiAsInteger)If．KeyAscii=13ThenIfText1．Text="Teacher"ThenForm2．input．Visible=TrueElseForm2．input．Visible=FalseEndIfEndIfForm1．HideForm2．ShowEndSub程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是()。