单选题编写如下事件过程： Private Sub Form_MouseMove(ButtonAsInteger,ShiftAsInteger，X As Single,YAsSingle) Cls If(Button Andl)ThenPrint"你好" End Sub 程序运行后，为了在窗体上显示“你好”，应在窗体上执行以下( )操作。
单选题当程序运行时，在窗体上单击鼠标，以下那个事件是窗体不能响应的事件
单选题假设变量boolVar是一个布尔型变量，则下面正确的赋值语句是＜ )。
单选题在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text1和Text2。编写如下两个事件过程：
Dim Str1 As String，str2 As String
Private Sub form_load()
Text1.Text=""
Text2.Text=""
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
str1=str1 & Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
str2=str2 & Chr(KeyCode)
End Sub
Private SubCommand1_Click()
Text1.Text=str1
Text2.Text=str2
str1=""
str2=""
End Sub
当在设计阶段的窗体的KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc，然后单击命令按钮，则文本框Text1中显示的内容为
单选题设有如下通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String，strL As Integer
tStr=""
strL=Len(xStr)
i=strL/2
Do Whlle i＜=strL
tStr=tStr & Mid(xStr,i+1,1)
i=i+1
Loop
Fun=tStr & tStr
End Function
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1="ABCDEF"
Textl.Text=LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是______。
单选题窗体上画了两个按钮Command1和Command2，有如下程序： Private Sub Conunand1_Click( ) Print "Visual"； End Sub Private Sub Command2_Click( ) Print "Basic"; End Sub Private Sub Form_Load( ) Comraand2. Cancel=True Coramand1. Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出结果是______。
单选题下列不属于主窗口的是______。 A) 最大化按钮 B) 状态栏 C) 系统菜单 D) 工具栏
单选题运行以下程序后，输出的结果是( )。 Print"中国" Font="隶书" Print"人民" Font="仿宋" Print"万岁" Font="宋体"
单选题使用Do While循环从打开的文件中逐条读取记录，以下能够正确读取数据的程序是______。 A) Open " c:/File1.txt" For Input As #1 Do While Not EOF() Line Input #1, strline …… Loop B) Open " c:/Filel.txt" For Input As #1 Do While Not EOF(1) Line Input #1, strline …… Loop C) FileNo=FreeFile Open "c:/File1.txt" For Input As #1 Do While Not EOF(FileNo) Line Input #1 , strline …… Loop D) FileNo=FreeFile Open "c: /File1.txt" For Input As #1 Do While Not EOF(#FileNo) Line Input #1, strline …… Loop
单选题要使一个文本框可以显示多行文本，应设置为True的属性是
A.Enabled
B.MultiLine
C.MaxLength
D.Width
单选题编写如下程序：
Private Sub Command1_Click() Dim x As Integer x=10
Print fun1(x, 12)+x
End Sub
Private Function fun 1(m As Integer, n As Integer)As Integer
If n＞10 Then m=n
fun1=m+n
End Function
程序运行后，单击命令按钮Command1，输出结果为
单选题在窗体中有一个名为Command1的命令按钮，并编写有以下代码。程序执行时，单击命令按钮，输出的结果为( )。Public Sub Procl(n As Integer，ByVal m AS Integer)n=n Mod10：m=m／10End SubPrivate Sub Command1_Click()Dim x As Integer，y As Integerx=12：y=34Call Procl(x，y)Printx；yEnd Sub
单选题如果在C盘当前文件夹下已存在名为StuData.dar的顺序文件，那么执行语句Open“C: StuData.dar” For Append As #1之后将______ 。
单选题设有如下程序： Sub f(x As Integer，ByVal Y As Integer) x=2*X：y=y+x End Sub Private Sub Command1 Click() Dim a As Integer，b As Integer a=6：b=35 Call f(a，b) Print a,b End Sub 程序运行后，单击命令按钮Command1，输出结果为
单选题在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。然后编写如下事件过程：
Private Command1_Click()
CommonDialogl.FileName=" "
CommonDialogl.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialoql.Filterlndex=2
CommonDialogl.DialoqTitle="VBTest"
CommonDialoql.Action=1
End Sub
对于这个程序，似下叙述中错误的是
单选题在程序运行时，下面的叙述中正确的是
单选题若设置了文本框的属性Password Char=“$”,则运行程序时向文本框中输入8个任意字符后,文本框中显不的是【 】
单选题在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0do Unti1 x=-1a=InputBox("请输入a的值")a=Val(a)b=InputBox("请输入b的值")b=Val(b)x=InputBox("请输入x的值")x=Val(x)a=a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1则输出结果是( )。
单选题下列语句： X=5 If X＞0 Then Y＝5 Y=10 运行程序后，下列叙述中正确的是 ______。
单选题以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容，在横线处应填写______。
Private Sub Command1_Click()
x=Val(Text1.Text)
If______Then
Print x
Else
Text1.SetFocus
Text1.Text=""
End If
End Sub