运行以下程序后，输出的内容是（）。Dim x As Integer, y As..."$$$"End IfEnd Sub
举一反三
- 有如下事件程序,运行该程序后输出结果是。 Private Sub Command33_Click() Dim x As Integer, y As Integer x = 1: y = 0 Do Until y <= 25 y = y + x * x x = x + 1 Loop MsgBox "x=" & x & ", y=" & y End Sub
- Sub s1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x: x = y: y = t End Sub Sub s2(x As Integer, y As Integer) Dim t As Integer t = x: x = y: y = t End Sub 则以下说法中正确的是( )。
- 编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 1 Do y = x * y If y > 10 Then Print x, y Exit Do Else x = x + 3 End If Loop While x <= 10 End Sub 运行程序，输出结果为______
- 运行下面的程序，第二行显示结果是___________。 Private Sub Form_Click() Dim A As Integer Dim i As Integer A = 5 For i = 1 To 9 Call sub1(i, A) Print i, A Next i End Sub Private Sub sub1(x As Integer, y As Integer) Static N As Integer Dim I As Integer For I = 3 To 1 Step -1 N = N + x x = x + 2 Next I y = y + N End Sub
- 有如下事件程序，运行该程序后输出结果是_________。 Private Sub Command33_Click() Dim x As Integer, y As Integer x=1:y=0 Do Until y＜=25 y=y+x*x x=x+1 Loop MsgBox "x=" & x &",y=" & y End Sub A: x=1，y=0 B: x=4，y=25 C: x=5，y=30 D: 输出其他结果