1、 s = s + k If kmax Then max = k If k max Then max = a（i） maxi=i Next最大元素为 max;其所在的数组元素位置号为 maxi5 在文本框Text1中输入一串字符，判别其是否是回文字符串。所谓回文字符串是指正读和反读都一样的字符串，比如ABBA、DEAED等就是回文字符串。 Dim s As String, n As Integer, m As Integer s = Text1.Text n = 1 m=Len（s） Do While n m Then Text2.Text = Text1.Text &是回文不是回文6 设计一个
2、函数，求任意数的阶乘。编写通用函数过程如下，请补充程序。 Public Function f（n As Double） As Double Dim s As Double If n 0 Then Exit Function s=1 For i = 1 To n s=s*I f = s End Function7 下面的程序是找出两个正整数a和b，使a _max1=max_ max = n ElseIf _nmax1_ Then max1 = n最大数是第二大数是 max19 运行下面的程序，第二行显示结果是 8 32 。 Dim A As Integer Dim i As Integer A
3、= 2 For i = 1 To 9 Call sub1（i, A） Print i, A Next i Private Sub sub1（x As Integer, y As Integer） Static N As Integer Dim I As Integer For I = 3 To 1 Step -1 N = N + x x = x + 1 Next I y = y + N End Sub 25 执行以下程序，单击命令按钮后，如果在弹出的对话框中单击是按钮，则窗体上的输出内容是_6_。 Private Sub Command1_Click（） Dim a As Integer a
4、= MsgBox（非法数据！ Chr（13） & Chr（10） &请重新输入, vbYesNo+ vbCritical, 提示信息 Print a End Sub26 执行以下程序，单击命令按钮后，输出结果是 0 1 2 3 4 5 6 7 8 9 10 。 Dim a（10） As Integer Dim b For i = 1 To 10 a（i） = i Next i For Each b In a Print b; Next b28 下列程序段的执行结果为 182 2 。 j = 0: n = 5 （0+1）*（0+2）=2 Do （2+1）*（2+2）=12 j = （j + 1）
5、 * （j + 2） （12+1）*（12+2 ）=182 n = n - 1 Loop Until n 3 Print j; n29 执行下面的程序段，文本框Text1中显示的是 9 。 i = 1 Do While i 20 j = i + j i = i * （i + 1） LoopText1.Text = j （ 1+2+6=9 ）30 下列程序的执行结果为_10_。 a（i） = i Call f（a（5） Print a（5） Private Sub f（n As Integer） n = n + 534 执行下列程序，单击命令按钮在窗体上输出结果为_5_6_3_。 Option
6、Base 1 Dim a（3, 3） As Integer, k As Integer Dim i As Integer, j As Integer, n As Integer n = UBound（a, 1） For i = 1 To n - 2 For j = i To n - i a（i, j） = k + 1 a（j, n + 1 - i） = k + 2 a（n + 1 - i, n + 1 - j） = k + 3 a（n + 1 - j, i） = k + 4 k = k + 4 Next j If n Mod 2 0 Then a（n + 1） / 2, （n + 1） / 2
7、） = k + 1 End If Print a（1, 2）; a（2, 3）; a（3, 3）35 运行如下程序后，输出结果为 19 。 For m = 1 To 4 a = 0 For j = 1 To 5 a = 1 For k = 1 To 6 a = a + 3 Next k Next j Next m Print a36 阅读下面程序，当单击窗体后，窗体上输出的是 12 7 4 。 Dim i As Integer, j As Integer Dim k As Integer For i = 1 To 10 Step 3 For j = 1 To 10 Step 2 If j =
8、5 Then i = i + 4: Exit For j = j + 1 k = k + 1 If i 8 Then Exit For Print i; j; k37 下列程序段的执行结果为_12 2 4_。 n = 0 For i = 1 To 3 For j = 5 To i Step -1 n = n + 1 Next j Print n; i43 阅读下面程序，当单击窗体后，窗体上输出的是 17 13 3 。 Dim i As Integer, k As Integer Dim a As Integer, b As Integer a = 5: b = 1 For i = 1 To a
9、 + b Step b i = i + 1 a = a + i b = b + i k = k + 1 b;38 下列程序的执行结果为 35 20 。 Private Sub Form_Click（） Dim M As Integer, N As Integer M = 15: N = 20 Call try（M, N） Print M; N Sub try（x As Integer, Byval y As Integer） x = x + 20 y = x + y39 执行以下程序，单击命令按钮后，如果从键盘上输入5，则第一行输出结果是1 2 3 4 5，第二行输出结果是 0 0 0 0 0
10、 0 0 0 0 0 0 。 Dim a（） As Integer Dim n As Integer, i As Integerinput n: ReDim a（n） a（i） = i ReDim a（10） For i =0 To 1040 运行下列程序，单击命令按钮后，在窗体上输出结果为 9 12 15 。 Dim a（3, 3）, s（3） Dim x, i% s（i） = 0 For j = 1 To 3 a（i, j） = i + j s（i） = s（i） + a（i, j） For Each x In s Print x; Next x44 下面程序段中，在窗体上显示的结果为_5
11、_15_。 Dim b As Integer, k As Integer For k = 1 To 5 b = b * k If b = 15 Then Next k Print k, b44 运行如下程序后，输出结果为_21_27_。 Dim i As Integer, y As Integer For i = 3 To 15 Step 3 y = y + i i = i + 3 Print i; y45 在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，在文本框中输入以下字符串:Microsoft Visual Basic Programming 然后编
12、写如下事件过程: Open D:TempOutf.Txt For Output As #1 For I = 1 To Len（Text1.Text） C = Mid（Text1.Text, I, 1） If C = A And C 3 Then Exit For For j = 1 To 6 i = i + j Print i, j38 运行如下程序后，输出结果为_21_27_。39 运行如下程序后，输出结果为_30_。 For j = 1 To 30 Step 2 a = a + j mod 540 运行下面的程序，当单击窗体时，窗体上显示的内容为_31_63_。 Private Sub Test（x As Integer） x = x * 2 + 1 If x 8 Then Call Test（x） Test 341 运行下面的程序，第二行显示结果是_ 2 3 4 5 6 _ 。Private Sub Command1_Click（）42 运行下列程序，单击命令按钮后，在窗体上输出结果为_ 9 12 15_。
