单选题若MVAR和SHOWW均为字符型内存变量，下列程序的结果是( )
MVAR=″*″
SHOWW=[14&MVAR.50]
?SHOWW
单选题设计窗体时，双击窗体上没有控件的地方，打开的窗口是
单选题为了使窗体左上角不显示控制框，需设置为False的属性是( )。
单选题在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序： Private Sub func(L As Label) L.Caption="1234" End Sub Private Sub Form_Load() Label1.Caption="ABCDE" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell) Label2.Caption=a End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为( ) A．ABCD和10 B．1234和100 C．ABCD和100 D．1234和10
单选题语句Dim Arr(-3 To 5)As Integer定义的数组的元素个数是( )。
单选题设有如下Command1的单击事件过程及fun过程：
Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox("请输入一个整数"))
fun(x)
End Sub
Private Sub fun(x As Integer)
If x Mod 2=0 Then fun(x/2)
Print x;
End Sub
执行上述程序，输入6，结果是
单选题窗体上有一个名称为CD1的通用对话框控件和由4个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如图2所示。命令按钮的事件过程如下：PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0:CD1.Action=1Case1:CD1.ShowSaveCase2:CD1.Action=5Case3:EndEndSelectEndSub对上述程序，下列叙述中错误的是
单选题为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为____________。
A.1
B.2
C.3
D.4
单选题单击命令按钮时，下列程序的执行结果为（ ）。
Private Sub Command1_Click()
Dim x As Integer，y As Integer
x=12：y=32
Call Proc(x，y)
Print x；y
End Sub
Public Sub Proc(n As Integer，ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
单选题如果设置窗体的ControlBox属性值为False，则（ ）。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c="ABCD" For n = 1 To 4 Print ______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD 则在 ______ 处应填入的内容为
单选题有如下程序： Private Sub Form_Click() Dim i As Integer，sum As Integer sum＝0 For i＝2 To 10 Ifi Mod 2＜＞0 And i Mod 3＝0 Then sum＝sum＋i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为( )。
单选题适用于链表的查找方法是
单选题“打印”对话框的
____
属性用来设置打印份数。
单选题编写如下程序：
Private Sub Command1_Click()
Dim n As Long, s As String
n=InputBox("输入一个数")
Do While n＜＞0
Printn/10 Mod 10; :Print n Mod 10; :n=n/100
Loop
Print s
End Sub
程序运行后，单击命令按钮Command1，并输入数值123456，则输出结果为
单选题设有如下通用过程：Public Function Fun(xStr As String)As String Dim tStr As String， strL As Integer tStr＝"" strL＝Len(xStr) i＝strL / 2 Do While i<＝strL tStr＝tStr & Mid(xStr， i＋1， 1) i＝i＋1 Loop Fun＝tStr & tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click() Dim S1 As String S1＝"ABCDEF" Text1.Text＝LCase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是( )。
单选题在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click() DimI，Num Randomize Do For I=1 To 1000 Num=Int(Rnd*100)：Print Num； Select Case Num Case 12 Exit For Case 58 Exit Do Case 65，68，92 End End Select Next I LoopEnd Sub上述事件过程执行后，下列描述中正确的是
单选题在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Label1标签，窗体外观如图1所示，要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图2所示。实现上述功能的程序如下：图1图2PrivateSubText1_Change()CallShowText(Text1)EndSubPrivateSubText2_Change()CallShowText(Text2)EndSubPrivateSubShowText(TAsTextBox)Labell.Caption="文本框中的内容是:"&T.TextEndSub关于上述程序，以下叙述中错误的是______。
单选题设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单属性设置如下： 标题(p) 名称(m) 内缩符号 Index 窗体 Mnu() 无 显示窗体2 Mnu1 1 1 退出 Mnu1 1 2 窗体Form1中的程序如下： Dim Flag As Boolean Private Sub Form_Load() Flag = True End Sub Private Sub mnu1_Click(index As Integer) If Index = 1 Then If Flag = True Then Form2. show mnu1 (1). Caption = "隐藏窗体2" Flag = False Else Form2. Hide mnu1 (1). Caption = "显示窗体2" Flag = True End If End If If Index = 2 Then End End Sub 关于上述程序，以下叙述中错误的是( )。 A) Index属性的值可以用来区分控件数组元素 B) Index为1的菜单项的标题可能会改变 C) 两个名称均为Mnu1的菜单项构成一个控件数组 D) 语句Form2. Hide将Form2卸载
单选题某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直到删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序()。PrivateSubCommand2_Click()HScroll1.Min=0HScroll1.Max=List1.ListCountHScroll1.Value=0Timer1.Interval=Timer1.Enabled=TrueEndSubPrivateSubTimer1_TimernIfList1.ListCount＞0ThenList1.RemoveItem0HScroll1.Value=HScroll1.Max--Listl.ListCountElseTimer1.Enabled=MsgBox"全部删除!"EndIfEndSub