哪位高手会解VB程序的题，我这有几道小题，急需答案，考试用，急急急！！！！

程序题（20）
在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c = "ABCD"
For n = 1 To 4
Print ______
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
　　D
　　CD
　　BCD
　　ABCD
则在______处就填入内容将程序补充完整。
程序题（21）
下列Visual Basic程序段运行后，变量x的值为______。
x=3
y=77
Do
x=x+2
Loop Until x>Sqr(y)
程序题（22）．
下列Visual Basic程序段运行后，变量s、t的值为______。
s=0:t=1
For k=2 To 4
s=s+k
t=t*k
Next k
程序题（23）
下列Visual Basic程序段运行后，变量n的值为______。
n=0
For x=3 To 11 Step 2
n=n+1
Next x
程序题（24）
语句段
s=0
for i=1 to 5
s=s+i
next i
执行后，s的值为________。
程序题（25）
执行下列程序段后，输出结果为
x = 1
For i = 0 To 20 Step 5
x = x + i Mod 5
Next i
Print x
程序题（26）．
下列程序执行后，整型变量n的值为
n=0
for i=1 to 100
if i mod 4=0 then n=n+1
next i
程序题（27）
执行下面程序段后，X的值为
X=5
For i =1 To 20 Step 2
x=x+i\5
Next i
程序题（28）.
有如下程序：
Private Sub Command1_Click()
For j = 1 To 4
a = a + 1
Next j
Print a+j
End Sub
程序输出后，输出的结果是__________。
程序题（29）
x = 5: y = 17
If x > y Then
m = x: x = y: y = m
End If
Print x
程序的输出结果是__________。
程序题（30）
x = 70
Select Case x
Case 0 To 50: y = 0.8 * x
Case 50 To 100: y = 0.7 * x
Case Else: Print "输入的数据出界！"
End Select
Print x;y
程序的输出结果是___________。
程序题（31）
如下程序：
Dim a As Integer, b As Integer, c As Integer
Private Sub Form_Activate()
a = 5: b = 3: c = 3
Call Sub1
Print c;
Call Sub2
Print c
End Sub
Sub Sub1()
c = a * b
End Sub
Sub Sub2()
c = a + b
End Sub
程序运行后，输出结果为________。
程序题（32）
下列程序执行后M,N,D的值分别为：
Private Sub Form_click()
t = 365
M = t Mod 60
N = Int(t / 60)
D = t \ 60
Print M;N;D
End Sub
程序题（33）
以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值1。请填空将程序补充完整
Dim x() As Integer
Private Sub Command1_Click()
ReDim ___________
For I = 1 To 20
x(I) = 1
Print x(I);
Next
End Sub
程序题（35）
编写一个过程,求一个数的正整数次幂。请填空使程序完整
Private Function ff1&(ByVal x%, ByVal y%)
Dim t&, i%
t = 1
For i = 1 To y
t = t * x
Next
_________________
End Function
Private Sub Form_Click()
Dim a%, b%
a = Val(inputbox("a=?"))
b = Val(inputbox("b=?"))
Print ff1(a, b)
End Sub

举报该文章