单选题运行如下程序： Private Sub Command1_Click() Dim a(5，5)As Integer For i=1 To 5 For j=1 To 4 a(i，j)=i*2+j If a(i，j)／7=a(i，j)＼7 Then n=n+1 End If Next j Next Print n End Sub n的值是( )。
单选题窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于
500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以 下程序中问号（？）处应填入的内容是______。
Private Sub Text1_LostFocus() Call CheckInput(Text1,500) End Sub
Private Sub Text2_LostFocus() Call CheckInput(Text2,1000) End Sub
Sub CheckInput(t As ?,x As Integer) If Val(t.Text)>x Then
MsgBox "请重新输入！"
End If
End Sub
单选题假定有以下函数过程：
Function Fun(ByVal S As String) As String
Dim s1 As String
For I = 1 To Len(S)
s1 = UCase(Mid(S, I, 1)) + s1
Next I
Fun = s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim Str1 As String, Str2 As String
Strl = InputBox("请输入一个字符串")
Str2 = Fun(Strl)
Print Str2
End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确定"按钮后在窗体上的输出结果为（ ）
单选题如下有一段不完整的程序段，如果要求该程序执行3次循环，则在程序中的空白处要填入( )。 x=1 Do x=x+3 Printx LoopUntil______
单选题有下面程序代码：Private Sub Commandl_Click() Dim aAs String a="COMPUTER"n=search(a，"T")：Print IIf(n=0，"未找到"，n) End Sub Private Function search(str As String，ch As String)As Integer For k=1 To Len(str) c=Mid(str，k，1) Ifc=ch Then search=k：Exit Function End If Next k search=0End Function程序运行后，单击命令按钮Commandl，输出结果是
单选题下面是窗体的MouseUp事件框架，在发生该事件时按下了＜Ctrl＞键，可通过它的 ( )参数来识别。
单选题执行下列程序段后，输出的结果是 For k1=0 To 4 Y=20 For k2=0 To 3 y=10 For k3=0 To 2 y=y+10 Next k3，k2，k1 Print y
单选题在窗体上画一个名称为CommonDialog1的通用对话框和一个名为Command1的命令按钮。要求实现这样一个功能：单击命令按钮后，打开一个通用对话框用于保存文件，其窗口标题为“保存”，默认文件名为Data，在“文件类型”栏中显示*.txt。下列程序中能实现以上功能的是______ 。
单选题在数据处理中，其处理的最小单位是( )。
单选题当拖动滚动条中的滚动块时，将触发滚动条的事件是
单选题用于显示输入输出文本的控件是
单选题以下( )控件没有Caption属性。
单选题结构化程序设计所规定的三种基本控制结构是______。
A.输入、处理、输出
B.树形、网型、环形
C.顺序、选择、循环
D.主程序、子程序、函数
单选题有如下程序：Private Sub Form_Click() Dim s As Integer，p As Integer p=1 For i=1 To 4 For j=1 To i s=s+j Nextj p=p*s Next i Print PEnd Sub程序运行后，单击窗体，则输出结果是
单选题下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub
单选题下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str=“ABCDABCD”，ch=“B”，则函数的返回值为：“ACDACD”Function delchar(str As String，ch As String)As StringDim kAs Integer，temp As String，ret As Stringret=" "For k=1To Len(str)temp=Mid(str，k，1)If temp=ch Thenret=ret&tempEnd IfNext kdelchar=retEnd Function但实际上函数有错误，需要修改。下面的修改方案中正确的是( )。
单选题设有如下数组定义语句：Dim a(－1 To 4，3)As Integer以下叙述中正确的是
单选题与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件，当用户按下并且释放一个键后，这三个事件发生的顺序是( )。 A) KeyDown、KeyPress、KeyUp B) KeyDown、KeyUp、KeyPress C) KeyPress、KeyDown、-KeyUp D) 没有规律
单选题窗体设计窗口的主要功能是 ______。
单选题要想使列表框只允许单选列表项，应设置的属性为