题目内容
（请给出正确答案）
[判断题]
Dim a1,a2 as integer 语句声明变量a1和a2都为整型变量。（）
如搜索结果不匹配，请 联系老师 获取答案
A.0
B.1
C.2
D.3
更多“Dim a1,a2 as integer 语句声明变量a1和…”相关的问题
第1题
在窗体上画一个命令按钮，名称为Command1，然后编写下列代码： Option Base 0 Private Sub Command1
Click（） Dim A1(4)As Integer，A2(4)As Integer For k=0 To 2 A1(k+1)=InputBox(”请输入一个整数”) A2(3-k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（）。
点击查看答案
第2题
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base（)Private Sub Command1_
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base()Private Sub Command1_ Click() Dim A1(4) As Integer, A2(4)As Integer For k= 0 To 2 A1(k+1)=InputBox(“请输入—个整数”) A2(3-k)=A1(k+1) Next k Print A2 (k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为______。
A．0
B．1
C．2
D．3
第3题
（25 ）在窗体上面画一个命令按钮，名称为 Command1 ，然后编写如下代码：Option Base 0Private Sub
（25 ）在窗体上面画一个命令按钮，名称为 Command1 ，然后编写如下代码：
Option Base 0
Private Sub Command1_Click()
Dim A1(4) As Integer,A2(4) As Integer
For k=0 To 2
A1(k+1)=InputBox(“ 请输入一个整数 ” )
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入 2 、 4 、 6 ，则输出结果为
A ） 0
B ） 1
C ） 2
D ） 3
第4题
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private Sub Command1_C
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim Al(4) As Integer, A2(4) As Integer For k = 0 To 2 A1(k + 1) = InputBox (“请输入1个整数”) A2(3 - k) = A1(k + 1) Next k Print A2(k) End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，输出结果为______。
A．1
B．2
C．3
D．4
第5题
阅读下列程序并写出程序运行结果。Public Sub change1(ByVal x As Integer, ByVal y As Integer
阅读下列程序并写出程序运行结果。Public Sub change1（ByVal x As Integer, ByVal y As Integer
点击查看答案
阅读下列程序并写出程序运行结果。
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上的输出结果。
第6题
（9 ）本程序实现文本加密。先给定序列： a1,a2, …… an, 它们的取值范围是 1~n ，且互不相同。加密算
法是 ： 把原文本中第 k 个字符放到加密后的文本的第 ak 个位置处 。 若原文本长度大于 n ， 则只对前 n 个字符加密，后面的字符不变；若原文本长度小于 n ，则在后面补字符 “ * ” 使文本长度为 n 后再加密。
点击查看答案
例如：若给定序列 a1,a2, … a7 分别为 2 ， 5 ， 3 ， 7 ， 6 ， 1 ， 4
当文本为 “ PROGRAM ” 时，加密后的文本为 “ APOMRRG ”
当文本为 “ PROGRAMMING ” ，加密后的文本为 “ APOMRRGMING ”
当文本为 “ THANK ” 时，加密后的文本为 “ TA*HKN ”
下面的过程 code 实现这一算法。其中参数数组 a() 中存放给定序列（个数与数组 a 的元素个数相等）a1,a2,a3 … 的值，要加密的文本放在参数变量 mystr 中。过程执行完毕，加密后的文本仍放在变量 myst r中。请填空。
Option Base 1
Private Sub code(a () As Integer,mystr As String)
Dim ch As string,cl As String
n=Ubound(a)-Len(mystr)
If n＞0 Then
mystr= mystr& Strings(n, ” * ” )
End If
Ch=mystr
For k= 【 14 】 To Ubound(a)
Cl=Mid(mystr,k,l)
n= 【 15 】
Mid$(ch,n)=cl
Next k
Mystr=ch
End Sub
第8题
有数列如下： a1=1，a2=cos（a1)，a3=cos（a2) •••••• 求n=15时,a15值。 在空白处填入合适的表达式，使程序完整。 Dim a As Double a = 1 For i = 2 To 15 ________ Next Label1.Text = a
A.a = Cos(a)
B.b = Cos(a)
C.a2 = Cos(a1)
D.a1 = Cos(a2)
E.a15 = Cos(a14)
第9题
有数列如下： a1=1，a2=cos（a1)，a3=cos（a2) •••••• 求n=15时,a15值。 在空白处填入合适的表达式，使程序完整。 Dim a As Double a = 1 For i = 2 To 15 ________ Next Label1.Text = a
A.a = Cos(a)
B.b = Cos(a)
C.a2 = Cos(a1)
D.a1 = Cos(a2)
E.a15 = Cos(a14)
