单选题以下叙述中错误的是________。
A.一个工程中只能有一个Sub Main过程
B.窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
C.窗体的Hide方法和Unload方法的作用完全相同
D.若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
单选题设文本框的PasswordChar属性被设置为“％”。程序运行时，在文本框中输入了“OK”，则产生的结果是( )。
单选题在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是______。 A) Private Sub Command1_Click() Label3. Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub B) Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub C) Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End Sub D) Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub
单选题单击一次窗体之后，下列程序代码的执行结果为______ 。 Private Sub Command1_ Click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call fun1 (x, y, z) Print x; y; z Call fun2(x, y, z) Print x; y; z End Sub Private Sub fun1(x As Integer, y As Integer, z As Integer) x = 10 * z y=z*z+ x z=x+ y+ z End Sub Private Sub fun2 (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) x=10*z y=z*z+ x z=x+ y +z End Sub
单选题在窗体上画一个命令按钮，然后编写如下程序： Sub S1(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer,b As Integer a=10 b=30 S1 a，b Print"a="；a；"bc"；b End Sub 程序运行后，单击命令按钮，输出结果是： ______。
单选题在窗体上画的3个名称为Command1命令按钮是控件数组，从左到右，控件数组下标分别为0、1、2。如图1所示。有下列程序：PrivateSubCommand1_Click(IndexAsInteger) DimsAsString SelectCaseIndex Case0 s="飞机" Case1 s="汽车" Case2 s="火车" EndSelect MsgBoxs,IndexEndSub执行程序后，单击中间那个按钮，显示的对话框的形式为________。
单选题以下对文件分类的划分不正确的是( )。
单选题在窗体上添加一个文本框，其名称为text1，然后编写如下的Load事件过程，则该程序的运行结果是______。Private Sub form_ load Text1. Text = " " t = 1 for k = 10 To 6 Step -2 t= t* k Next k Text1. Text = tEnd Sub
单选题假定编写了如下4个窗体事件的事件过程，则运行应用程序并显窗体后，已经执行的事件过程是
单选题有如下程序：Function fun(ByVal aura As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10)：num=num＼10 Loop fun=k End Function Private Sub Form_Click() Dim n As Integer，r As Integer n=InputBox("请输入一个数：")：n=Int(n)：r=fun(n)：Print rEnd Sub程序运行后，单击窗体，在输入对话框中输入246，输出结果为
单选题下列程序段的执行结果为a=1b=0Select Case a Case 1 Select Case b Case 0 Print"**0**" Case 1 Print"**1**" End SelectCase 2 Print"**2**"End Select
单选题VissualBasic6．0集成环境的主窗口中不包括( )。
单选题设有如下程序代码：Private Sub Command1_Click() Dim Sname As String, SNo As String, Score As Single Open "D:/Score.txt" __________ As #1 SNo = InputBox("输入学号：") Sname = InputBox("输入姓名：") Score = Val(InputBox("输入成绩：")) Print #1, SNo, Sname, Score Close #1End Sub以上程序的功能是，向文件D:/Score.txt中写入一名同学的学号、姓名和成绩，当文件不存在时，则新建该文件；当文件存在时，则覆盖原文件的内容。在横线处应填入的内容是( )。
单选题以下表达式与Int(3．5)的值相同的是
单选题在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名从列表框中消失,并在标签中显示出来。下列能正确实现上述操作的程序是【 】
单选题执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。 Private Sub Cotomand1_Click() Ch$="Welcome Home!" a=Len(ch$) For i= 1 To a b$ = Mid(ch$， i 1) If b$ = "m" Then m = m + 1 Next 1 Print m End Sub
单选题为把圆周率的近似值3．14159存放在变量pi中，应该把变量pi定义为
单选题下面的四个VB 6.0表达式语法正确的是 ______。
单选题设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是
单选题若有如下程序： Private Sub Command1_Click() Dim i As Integer, k As Integer k=2 For i = 1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+j End Function 单击命令按钮，执行程序，输出结果是( )。 A) 2 3 4 B) 3 4 5 C) 5 6 7 D) 3 5 6