请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
程序为：
Private Sub Form_Click()
Dim a
a = Array(1, 2, 3, 4, 5, 6, 7)
For I = LBound(a) To UBound(a)
a(I) = a(I) * a(I)
Print a(I)
Next I
End Sub
程序运行后，单击窗体后，在窗体显示的结果是：
答案
更多“程序为：Private Sub Form_Click()Dim aa = Array(1, 2, 3, 4, 5, 6, 7)For I = LBound(a) To ”相关的问题
第1题
A."左右括号配对"
B."左括号多于右括号"
C."右括号多于左括号"
D.程序出错
第2题
在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入12，然后单击窗体，在输入对话框中输入34，单击"确定"按钮后，在窗体上显示的内容为______。
A.46
B.123
C.3412
D.1234
第3题
下列程序计算１！，３！，５！，７！的值。完善下列程序。
Private Sub Command1_Click()
for x = 1 To 7 Step 2
（）
For y = 1 To x
fact = fact * y
Next y
Print x; "! ="; fact
Next x
End Sub
第4题
A.234
B.1234
C.23
D.123
第5题
运行下面的程序，单击窗体后在窗体上显示的内容是（）。
Private Sub Form_Click()
For i = 1 To 10 Step 2
Print I;
Next I
End Sub
第6题
写出程序的输出结果：
Private Sub Form_Click
Print Tab(10); -100;Tab(20); 200;Tab(30); -300
Print Spc(5); -100;Spc(5); 200;Spc(5); -300
End Sub
第7题
编写一个求给定8位二进制数的反码的程序。将程序补充完整。
Private Sub Command1_Click()
Dim yuanma As String, fanma As String, fa As String
yuanma = Text1.Text
fanma = ""
For i =（）
fa = Mid(yuanma,i,1)
Select Case Val(fa)
Case 0
fa = "1"
Case 1
fa = "0"
End Select
fanma=fanma+fa
Next i
text2.Text=（）
End Sub
第8题
阅读下列程序并写出程序运行结果。
Public Sub change1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub change2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 22: b = 33
change1 a, b
Form1.Print "A1="; a, "B1="; b
a = 22: b = 33
change2 a, b
Form1.Print "A2="; a, "B2="; b
End Sub
写出程序运行时，单击窗体Form1上的输出结果。
第9题
Private Sub Form_Click()
Dim N%, N1%, N2%, I%, K1%, K2%
N = Val(InputBox("输入大于6的偶数"))
For N1 = 3 To N / 2 Step 2
K1 = ----1---
For I = 2 To K1 '判断N1是否是素数
If N1 Mod I = 0 Then ----2----
Next I
If I ＞ K1 Then
N2 = ----3----
K2 = Int(Sqr(N2))
For I = 2 To K2
If N2 Mod I = 0 Then Exit For
Next I
If I ＞ K2 Then Print N & "=" & N1 & "+" & N2
End If
End If
Next N1
End Sub
第10题
Private Sub Command1_Click()
Dim I as integer,j as integer
List3.Clear
----1----
If List1.ListCount * List2.ListCount = 0 Then Exit Do
If----2----Then
List3.AddItem List1.List(0): List1.RemoveItem (0)
Else
List3.AddItem List2.List(0): List2.RemoveItem (0)
End If
Loop
For i= 0 To List1.ListCount – 1
List3.AddItem List1.List(i)
----3----
For j = 0 To List2.ListCount - 1
List3.AddItem List2.List(j)
Next j
List1.Clear: List2.Clear
End Sub
