网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub
A．3
B．9
C．5
D．6
参考答案
更多 “ 下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End SubA．3B．9C．5D．6 ” 相关考题
考题
运行下列程序： Private Sub Form. Click() Sum=0 For i=1 To 100 If Mid(CStr(i)，1， 1)="1" Then Sum=Sum+1 End If Next i Print Sum End Sub 单击窗体后，在窗体上显示的结果是A．12B．13C．14D．15
考题
运行下列程序：Private Sub form_Click( )x = 8: y = 2Call fun1((x), y)Print x, yEnd SubPrivate Sub fun1(x, y)s = xx = s / yy = s Mod yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.4 2B.8 2C.8 0D.2 4
考题
运行下列程序：Private Sub Form_Click( )For i = 1 To 20If fun1(i) Thens = s + 1End IfNext iPrint sEnd SubPrivate Function fun1(y) As BooleanIf y Mod 2 0 Thenfun1 = FalseElsefun1 = TrueEnd IfEnd Function单击窗体后，则在窗体上显示的结果是( )。A.110B.10C.0D.20
考题
'下面的程序运行时,单击窗体后,窗体上显示的结果是( )。Private Sub Form_Click(B )Dim a(1 To 5)As Integera(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4n = 5For i = 1 To n - 1Min = iFor j = i + 1 To nIf a(j)Next jt = a(i): a(i)= a(Min): a(Min)= tNext iFor i = 1 To nPrint a(i);Next iEnd SubA. 2 3 1 5 4B. 1 2 3 4 5C. 9 8 7 6 5D. 5 5 5 5 5
考题
'下面的程序运行时,单击窗体后,窗体上显示的结果是(B )。Private Sub Form_Click(B )Dim a(1 To 5)As Integera(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4n = 5For i = 1 To n - 1Min = iFor j = i + 1 To nIf a(j)Next jt = a(i): a(i)= a(Min): a(Min)= tNext iFor i = 1 To nPrint a(i);Next iEnd SubA. 2 3 1 5 4B. 1 2 3 4 5C. 9 8 7 6 5D. 5 5 5 5 5
考题
编写一个程序。要求设置窗体的标题是“这是我的第一个练习”；程序运行时，单击窗体，在窗体上显示文字：“我可以用Visual Basic语言编写程序了！”
热门标签
最新试卷