单选题下面程序在调试时出现了死循环 Pfivate Sub Commandl_Click() n=InputBox(“请输入一个整数”) Do Ifn Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000 End Sub
单选题有三个关系R、S和T，如下：由关系R和5通过运算得到关系T，则所使用的运算为
单选题在窗体上面一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a$,b$,c$,k%
a="ABC"
b="123456"
c=""
k=1
Do While k＜=Len(A)Or k＜=Len(B)
If k＜=Len(A)Then
c=c&Mid(a,k,1)
End If
If k＜=Len(B)Then
c=c&Mid(b,k,1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是______。
单选题如果在文件列表框中，没有文件被选中，则其ListIndex的值为( )。
单选题编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是
单选题在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click( ) Dim x As String, y As String, c As String, d As String x = Text1.Text : y = Text2.Text c = LCase(x): d = UCase(y) Print c; d End Sub 程序运行后，在文本框Text1、Text2中分别输入AbC和efG，结果是________。
单选题把窗体的KeyPreview属性设置为True。然后编写如下事件过程 Pfivate Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2)
单选题窗体上有一个名称为FrfllneI的框架(如图)，若要把框架上显示的“Franticl”改为汉字“框架”，下面正确的语句是()。
单选题A)(-A)^2Log(Exp(k))/(A-B)＜(3-A)*(B+8)*Sin(75)B)(-A)^2*Log(Exp(K))/Log(10)/(A-B)＜=(3-A)*(B＋8)*Sin(75/180*3.14159)C)(-A)^2Log(Exp(K))/(A-B)＜=(3-A)*(B+8)*Sin(75/180)D)(-A)^2*Log(Exp(K))/Log(10)/(A-B)＜=(3-A)*(B+8)*Sin(75*3.14159)
单选题有如下程序：Private Sub Commandl_Click() Dim i As Integer,J As Integer，sum As Integer n=1 Do j=1 Do sum=sum+j：j=j+1 Printj； Loop Until j＞3 n=n+2 Loop Until n＞10 Print sum End Sub运行上述程序，外层Do循环执行的次数为
单选题为了使标签中的内容居中显示，应把Alignment属性设置为______。
单选题在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为Combol，Command1和Text1，然后编写如下事件过程： Private Sub Form_Load() Combo1．Addltem”AAAAA”：Combo1．Addltem”BBBBB” Combo1．Addltem”CCCCC”：Combo1．Addltem”DDDDD” Combo1．Addltem”EEEEE” End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为
单选题下列语句中可以用来设置打印窗体内容的是______。
单选题窗体上有一个如右图所示的图形控件，控件中显示了如图所示的文字，可以判断这个图形控件()。
单选题有如下过程代码： Sub var_dim() Static numa As Integer Dim numb As Integer numa=numa+2：numb=numb+1：print numa；numb End Sub 连续3次调用var_dim过程，第3次调用时的输出是
单选题在窗体上画一个命令按钮和一个文本框，名称分别为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=tEnd Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是______。
单选题下列程序的执行结果是______。
Private Sub Form_Activate()
Dim score(3) As Integer, total As Integer
Dim aa_score As Variant
score(1)=50:score(2)=14:score(3)=36
total=0:i=0
For Each aa_score In score
i=i+1
total=total+aa_score
Print i, aa_score, total
Next
End Sub
单选题设a=5,b=10，则执行c = Int((b - a）* Rnd + a）+ 1后，c值的范围为______。
单选题在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。以下为“计算”按钮的事件过程，请为空白处选择合适的语句()。PrivateSubCommand1_Click()Sum=0Fori=0To4Sum=Sum+______Next______=SumEndSub
单选题