在窗体上画一个名为Command1的命令按钮,然后编写以下程序:
Private Sub Command1_Click()
Dim a(10) As Integer
For k = 10 To 1 Step -1
a(k) = 20 - 2 * k
Next k
k = k + 7
Print a(k - a(k))
End Sub
运行程序,单击命令按钮,输出结果是( )。
发布于 2022-05-11 10:17:46
登录后免费查看答案
关注者
0
被浏览
15
1 个回答
推荐阅读
-
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:Private Sub Command1 Click( )Dim a(10)As IntegerFork=10 To 1 Step-1a(k)=20-2*kNext kk=k+7Print a(k-a(k))End Sub运行程序,单击命令按钮,输出结果是( )。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个名为 Command1 的命令按钮,然后编写以下程序:Private Sub Command1_Click( ) Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x))End Sub运行程序,单击命令按钮,在窗体上显示的是( )。
2022-05-11 关注 0 浏览13 1答案
-
窗体上有一个名为Commandl的命令按钮,并有如下程序:Private Sub Command1_Click()Dim a(10), x%For k = 1 To 10a(k) = Int(Rnd * 90 + 10)x = x + a(k) Mod 2Next kPrint xEnd Sub程序运行后,单击命令按钮,输出结果是( )。
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()Dim a$, b$, c$, k%a = "ABCD"b = "123456"c = ""k = 1Do While k <= Len(a) Or k <= Len(b)If k <= Len(a) Thenc = c & Mid(a, k, 1)End IfIf k <= Len(b) Thenc = c & Mid(b, k, 1)End Ifk = k + 1LoopPrint cEnd Sub运行程序,单击命令按钮,输出结果是( )。
2022-05-11 关注 0 浏览15 1答案
-
窗体上有一个名为Command1的命令按钮,并有如下程序:Private Sub Command1Click( )Dim a(10),x%Fork=1 To 10a(k)=Int(Rnd*90+10)x=x+a(k)Mod 2Next kPrint XEnd Sub程序运行后,单击命令按钮,输出结果是( )。
2022-05-11 关注 0 浏览14 1答案
-
下面程序的执行结果是( )。Private Sub Command1_Click()a = 10For k = 1 To 5 Step -1a = a - kNext kPrint a; kEnd Sub
2022-05-11 关注 0 浏览15 1答案
-
在窗体中有一个名为Command1的命令按钮,事件代码如下:Private Sub Command1_Click( )Dim m(10)For k=1 T0 10m(k)=11=kNext kx=6MsgBox m(2+m(x))End Sub打开窗体,单击命令按钮,消息框的输出结果是( )。
2022-05-13 关注 0 浏览22 1答案
-
在窗体上画一个命令按钮,名称为 Command1, 然后编写如下代码:Option Base 0Private Sub Command1_Click()Dim A (4)As Integer,B(4) As IntegerFor k=0 To 2A(k+1)=InputBox(“ 请输入一个整数 ”)B(3-k)=A(k+1)Next kPrint B(k)End Sub程序运行后,单击命令按钮,在输入对话框中分别输入 2 、 4 、 6 ,输入结果为 ( ) 。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:Option Base 0Private Sub Command1_Click()Dim A1 (4) As Integer, A2 (4) As IntegerFor k=0 To 2A1 (k+1) = InputBox("请输入一个整数")A2 (3-k) = A1(k+1)Next kPrint A2(k)End Sub程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
2022-05-11 关注 0 浏览16 1答案
-
在窗体上画一个命令按钮,名称为Command1,然后编写下列代码:Option Base 0Private Sub Command1 Click( )Dim A1(4)As Integer,A2(4)As IntegerFor k=0 To 2A1(k+1)=InputBox(”请输入一个整数”)A2(3-k)=A1(k+1)Next kPrint A2(k)End Sub程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
2022-05-11 关注 0 浏览11 1答案