举一反三
- 声明一个变量为局部变量应该用( )。 A: Private Sub Command1 Click() n=5:x=1 Do X=X * I I=I + 1 Loop While I < n Print x End Sub B: Private Sub Command1_Click() n=5:X=1:I=1 Do X=X*I I=I + 1 Loop While I <n Print x End Sub C: Private Sub Command1_Click() n=5:X=1:I=1 Do X=X * I I=I + 1 Loop While I<=n Print X End Sub D: Private Sub Command1_Click() n=5:X=1:I=1 Do X=X * I I=I + 1 Loop While I>n Print X End Sub
- 下列程序代码的运行结果为( )。 Private Sub Command1_Click() For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a End Sub
- 如下程序的运行结果是【1】. Private Sub Command1_Click() Dim x As Integer x = 12 f2 x Print x End Sub Public Sub f2(n As Integer) n = n Mod 10 End Sub
- 设有如下事件过程:Private Sub Command1_Click() ch = "ABCDEFG" n = Len(ch) k = 1 Do Print Mid(ch, k, 1); Mid(ch, n, 1); k = k + 1 n = n - 1 Loop Until k > nEnd Sub运行此过程所产生的输出是 A: AGBFCEDD B: AGBFCED C: GFEDCBA D: GAFBECD
- 窗体上有一个名为Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click() i = 0 Do While i < 8 For j = 1 To i n = n + 1 Next i = i + 1 Loop Print n End Sub 运行程序,单击命令按钮,则输出结果是______。
内容
- 0
已知一窗体中有如下函数过程和一命令按钮Command1,则单击Command1时,输出结果为。 Public Function Fn(n) If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n End Function Private Sub Command1_Click() Print Fn(6) End Sub
- 1
编写如下程序: Private Sub Command1_Click() Dim n As Integer : Static s As Integer For n = 1 To 3 s = s + n Next Print s End Sub 程序运行后,第三次单击命令按钮Command1时,输出结果为
- 2
下列程序代码的运行结果为( )。Private Sub Command1_Click() For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print aEnd Sub A: 60 B: 50 C: 30 D: 20
- 3
求给定自然数m和n的最大公约数。请完善程序。 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r Do r = m Mod n m = n n = r Loop Until__________ Text3.Text = m End Sub Private Sub Command2_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r r = m Mod n Do Until _______ m = n n = r r = m Mod n Loop Text3.Text =____ End Sub Private Sub Command3_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r Do r = m Mod n m = n n = r Loop While________ Text3.Text =______ End Sub Private Sub Command4_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r r = m Mod n Do While______ m = n n = r r = m Mod n Loop Text3.Text =____ End Sube73f1fd63959cc8362d8c82d419c2353.png
- 4
编写如下程序: Private Sub Command1_Click; Dim m As Integer, n As Integer m = 2 : n = 1 Select Case m Case 1 Select Case n Case 1 Print "AAA" Case 2 Print "BBB" End Select Case 2 Print "CCC" End Select End Sub 程序运行后,单击命令按钮Command1,输出结果为 A: BBB B: CCC C: AAA D: 1