2014中职vb语言程序设计程序填空题综合练习（一）

2014中职vb语言程序设计程序填空题综合练习（一） VB语言程序设计综合练习:程序填空题 程序填空题 1. 题目:文本框txtin输入一个十进制整数将其转化为二进制数。程序运行界面如下图所示。单击“转换”按钮，标签lblre中输出二进制数。 Private Sub Command1_Click() Dim n As Long lblre.Caption = "" n = Val(txtin.Text) DO While n <> 0 r = lblre.Caption = r & lblre.Caption LOOP End Sub 2. 题目:单击“打印”按钮command1在图片框picture1中输出如图 1 下所示的图形。(涉及的循环 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 用for循环) Private Sub command1_Click() For i = 1 To 5 picture1.Print Tab(10 + i); "$"; For j = picture1.Print "*"; Next j picture1.Print "$"; picture1.Print Next i Tab(10 + i); "*"; End Sub 3. 题目: 单击form1窗体:重新定义坐标系为(-10，300)-(300，-10);在窗体上按 公式 小学单位换算公式大全免费下载公式下载行测公式大全下载excel公式下载逻辑回归公式下载 : 2y=x?255，其中x=0~255。 用Pset方法绘制如图所示图形，其中线宽为3。(要求for循环实现) 2 Private Sub Form_Click() Scale (-10, 300)-(300, -10) DrawWidth = 3 Line (-10, 0)-(300, 0): Line (0, 300)-(0, -10) For x = y = PSet (x, y) Next x End Sub 4(题目:判断文本框text1中输入的字符是否全是字母,并在标签label1中显示判断结果:“全是字母”或“不全是字母”。.运行结果参考下图。(涉及的循环用for循环) 3 Private Sub Command1_Click() Dim s As String s = Text1.Text For i = 1 To Len(s) If LCase(Mid(s, i, 1)) < "a" Or Then Exit For End If Next If Then Label1.Caption = "全是字母" Else Label1.Caption = "不全是字母" End If End Sub 5. 题目: 求1～+2～+3～+… +10～的值，程序运行界面如图下所示。 4 单击“计算”按钮command1在标签lblre中输出结果。(要求for循环实现) Private Sub Command1_Click() Dim s As Long Dim n As Long s = 0: n = 1 For i = 1 To 10 Next i lblre.Caption = s End Sub 6(题目:数据由小到大排序。窗体运行如下图。单击“产生数据” 按钮Command1，产生5个10~99之间的随机整数放入数组s，并显示在图示的标签lblra上;单击“排序” 按钮Command2，将数组排序后的数据输出到图示的标签lblre。(要求for循环实现) 5 Dim s(1 To 5) As String Private Sub Command1_Click() lblra.Caption = "" For i = 1 To 5 s(i) = lblra.Caption = lblra.Caption & Str(s(i)) Next i End Sub Private Sub Command2_Click() lblre.Caption = "" For i = 1 To 4 Min = i For j = If Then Min = j Next j 6 t = s(Min): : s(i) = t Next i For i = 1 To 5 lblre.Caption = lblre.Caption & Str(s(i)) Next i End Sub 7. 题目: 用公式e = 1+ 1/1～+1/2～+1/3～+ … + 1/n～+ …，计算e -7的近似值，直到当前累加项小于10为止。运行界面如下图所示。单击“计算”按钮在标签lblre中输出结果。(要求用while…wend循环) Private Sub Command1_Click() Dim t As Single Dim i As Integer Dim e As Single t = 1: i = 1: e = 1 7 DO While 1 / t >= 0.0000001 t = t * i LOOP lblre.Caption = e End Sub 8(题目:在窗体上放置一个文本框和一个标签，并建立如下菜单: 菜单项 菜单名称 说明 mnuop 操作(O) 一级菜单 mnura ….产生随机数 二级菜单 mnupd ….判断 二级菜单 单击“产生随机数”菜单项，产生1个60,90之间的随机整数，显示在文本框中。单击“判断”菜单项，判断该随机数能否被3整除，判断结果显示在标签上。窗体运行如下图。 8 Private Sub mnupd_Click() If Then Label1.Caption = "能被3整除" Else Label1.Caption = "不能被3整除" End If End Sub Private Sub mnura_Click() Text1.Text = End Sub 9. 题目:单击“画图”命令按钮Command1:重新定义坐标系为(-1，1)-(1，-0.3)。在窗体上按公式: 2y=x，其中x=-0.9~0.9。 用Pset方法绘制如图所示图形，其中线宽为3。(要求for循环实现) 9 Private Sub Command1_Click() Scale (-1, 1)-(1, -0.3) DrawWidth = 3 Line (-1, 0)-(1, 0): Line (0, 1)-(0, -0.3) For x = y = PSet (x, y) Next x End Sub 10. 题目: 数组元素值逆置。单击“产生字母”按钮Command1，产生10个随机小写字母存放到数组中，并显示在标签lblra中。单击“逆置”按钮Command2，将数组中的字母按相反顺序存放，然后输出到标签lblre。运行界面如下图所示。(要求for循环实现) 10 Dim s(1 To 10) As String Private Sub Command1_Click() lblra.Caption = "" For i = 1 To 10 s(i) = lblra.Caption = lblra.Caption & s(i) Next i End Sub Private Sub Command2_Click() lblre.Caption = "" For i = 1 To 5 temp = s(i): s(i) = : s(11 - i) = temp Next i For i = 1 To 10 11 lblre.Caption = lblre.Caption & s(i) Next i End Sub 11.题目:单击“打印”按钮在图片框pics中输出如下图所示的图形。(要求for循环实现) . Private Sub command1_Click() Dim i As Integer Dim j As Integer For i = 1 To 5 pics.Print Tab(10); For j = 1 To pics.Print Spc(1); Next j For j = pics.Print "*"; 12 Next j pics.Print Next i End Sub 12. 题目:在窗体上放置一个文本框txts和一个标签lbla，并建立如下菜单: 菜单项 菜单名称 说明 mnuop 操作(O) 一级菜单 mnura ….产生随机数 二级菜单 mnujs ….计算 二级菜单 单击“产生随机数”菜单项，产生10个两位随机整数，显示在文本框txts中。单击“计算”菜单项，计算所产生数的平均值，并显示在标签lbla上。窗体运行如下图。(涉及的循环要求用for循环) Dim a(1 To 10) As Integer 13 Private Sub mnujs_Click() Dim sum As Integer For i = 1 To 10 Next i lbla.Caption = sum / 10 End Sub Private Sub mnura_Click() txts.Text = "" For i = 1 To 10 a(i) = txts.Text = Next i End Sub 13. 题目: 制作顶级菜单(标题是:操作，名称是:mnuop)，二级子菜单(标题:产生，名称:mnura)和二级子菜单(标题:运行，名称:mnurun)。点击子菜单“产生”时，生成一个100~200之间的随机整数，显示在label1中;点击子菜单“运行”时，判断该随机数是否是素数，将判断结果显示在label2上。运行界面如图所示。(涉及的循环要求用for循环) 14 Private Sub mnura_Click() Label1.Caption = Int(Rnd * 101) + 100 End Sub Private Sub mnurun_Click() Dim x As Integerx = Val(Label1.Caption) For i = 2 To If Then Label2.Caption = "不是素数" Exit For End If Next If Then Label2.Caption = "是素数" End If End Sub x14(题目:在文本框text1中输入x的值，编程求e 的近似值，要 15 求最后一项的值小于等于0.000 001 时停止计算，结果显示在标签 xx23nlabel3中。e 的展开式为:e=1+x/1!+x/2!+ x/3!+„+ x/n!。程序运行界面如图所示。(要求用do while„„loop实现) Private Sub Command1_Click() Dim x As Integer Dim s As Double Dim n As Integer x = Val(Text1.Text) s = 1: n = 1 t = Do While t > 0.000001 s = s + t t = Loop 16 Label3.Caption = s End Sub 15. 题目: 单击“运行”按钮Command1，求出100~150之间，能被5整除，但不能被3整除的数。并求这些数之和，存入变量SUM中。程序运行界面如下图。(要求for循环实现) Private Sub Command1_Click() Dim i As Integer For i = 100 To 150 If Then Print i; Sum = End If Next i Print Print "和为:" & Sum; "" End Sub 17 16. 题目:求出150,200之间的素数，程序运行界面如图下所示。单击“输出素数”按钮在标签lblpr中输出结果。(要求for循环实现) Private Sub Command1_Click() For i = 150 To 200 For j = 2 To i - 1 If Then Exit For Next j If Then lblpr.Caption = lblpr.Caption & Str(i) Next i End Sub 17. 题目:单击窗体，产生10个20~80之间的随机正整数，排序后在窗体上输出。运行界面如图所示。(要求用for循环) 18 Private Sub Form_Click() Dim s(1 To 10) As Integer Dim max As Integer Dim t As Integer Randomize Print "原始数据:" For i = 1 To 10 s(i) = Print s(i); " "; Next Print For i = 1 To 9 max = i For j = If s(max) < s(j) Then max = j Next t = s(max) 19 s(max) = s(i) = t Next Print "排序后的数据:" For i = 1 To 10 Print s(i); " "; Next End Sub 18. 题目:在窗体上放置一个文本框Text1和一个标签Label1，并建立如下菜单: 菜单项 菜单名称 说明 mnuop 操作(O) 一级菜单 mnura ….产生随机数 二级菜单 mnupd ….判断 二级菜单 单击“产生随机数”菜单项，产生1个10,99之间的随机整数，显示在文本框中。单击“判断”菜单项，判断该随机数的个位数是否是奇数。如果是奇数在标签中显示“是奇数”，否则标签上显示“不是奇数”。窗体运行如下图。 20 Private Sub mnupd_Click() Dim d As Integer d = Val(Text1.Text) Mod 10 If Then Label1.Caption = "是奇数 " Else Label1.Caption = "不是奇数" End If End Sub Private Sub mnura_Click() Text1.Text = End Sub 19. 题目: 数组元素值逆置。单击“产生字母”按钮Command1，产 21 生10个随机大写字母存放到数组中，并显示在标签中lblr。单击“逆置”按钮Command2，将数组中的字母按相反顺序存放，然后输出到标签lblre。运行界面如下图所示。(要求for循环实现) Dim s(1 To 10) As String Private Sub Command2_Click() lblre.Caption = "" For i = 1 To 5 temp = s(i) s(i) = s(11 - i) = temp Next i For i = 1 To 10 lblre.Caption = lblre.Caption & s(i) Next i End Sub 22 Private Sub Command1_Click() lblr.Caption = "" For i = 1 To 10 s(i) = lblr.Caption = lblr.Caption & s(i) Next i End Sub 20. 题目:字母由小到大排序。窗体运行如下图。单击“产生随机字母” 按钮Command1，产生10个大写的随机字母放入数组，并显示在图示的标签lblu上;单击“排序” 按钮Command2，将排序后的字母输出到图示的标签lblsort。(涉及的循环要求用for循环) Dim s(1 To 10) As String Private Sub Command1_Click() 23 lblu.Caption = "" For i = 1 To 10 s(i) = lblu.Caption = lblu.Caption & s(i) Next i End Sub Private Sub Command2_Click() lblsort.Caption = "" For i = 1 To 9 Min = i For j = If s(j) < s(Min) Then Min = j Next j t = s(Min): s(Min) = : s(i) = t Next i For i = 1 To 10 lblsort.Caption = lblsort.Caption & s(i) Next i End Sub 21(题目:随机产生10 个100~200 之间的正整数，将它们按从大到 24 小的顺序排列。运行界面如图所示。(要求用for循环) Private Sub Command1_Click() Dim x(1 To 10) As Integer Cls Print Randomize Print "原始数据:" For i = 1 To 10 x(i) = Print x(i); Next i Print: Print Print "排序数据:" For i = 1 To 9 25 Max = i For j = If x(Max) < x(j) Then Next j t = x(Max): x(Max) = : x(i) = t Next i For i = 1 To 10 Print x(i); Next i End Sub 22(题目:单击“计算”按钮Command1求P 的值。 P=1+1/(1+2)+1/(1+2+3)+„+1/(1+2+3+„+10)。(要求for循环实现)运行界面如图: Private Sub Command1_Click() Dim p As Single, s As Single p = s = 0 26 For i = 1 To 10 s = p = Next i Print "p=" & p End Sub 23. 题目:在窗体上放置一个文本框txts和一个标签lbla，并建立如下菜单: 菜单项 菜单名称 说明 mnuop 操作(O) 一级菜单 mnura ….产生随机数 二级菜单 Mnupd ….统计 二级菜单 单击“产生随机数”菜单项，产生1个60,90之间的随机整数，显示在文本框txts中。单击“判断”菜单项，判断所产生数是否是奇数，并显示在标签lbla上。窗体运行如下图。 27 . Dim a As Integer Private Sub mnupd_Click() If Then lbla.Caption = "是奇数" Else lbla.Caption = "非奇数" End If End Sub Private Sub mnura_Click() txts.Text = "" a = txts.Text = a End Sub 28 24(题目:单击“打印”按钮Command1窗体显示出具有9行的“杨辉三角形”。运行效果如下图所示。(要求for循环实现) Private Sub Command1_Click() Dim a(1 To 9, 1 To 9) As Integer For i = 1 To 9 a(i, 1) = 1: Next i For i = 3 To 9 For j = 2 To a(i, j) = Next j Next i For i = 1 To 9 29 For j = 1 To Print Tab(j * 5 - 4); Next j Print Next i End Sub 25. 题目:单击窗体，求1!+2!+3!+„„+10!的值，并在窗体上输出。 (要求用for循环) Private Sub Form_Click() Dim n As Long Dim s As Long n = s = 0 For i = 1 To 10 n = s = s + n Next Print s End Sub 26(题目:单击窗体，在窗体中打印九九乘法 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf ，用for循环完成。 30 运行效果见下图。 Private Sub Form_Click() Dim se As String Print Tab(35); " 九九乘法表 " Print Tab(35); "---------------" For i = 1 To 9 For j = 1 To se = i & "×" & j & "=" & i * j Print ; se; Next j Print Next i End Sub 27. 题目:单击“打印”按钮command1在图片框picture1中输出如 31 下图10行10列的图形。(涉及到的循环要求用for循环) Private Sub Command1_Click() For i = 1 To 10 For j = 1 To picture1.Print Spc(1); Next For j = 1 To 10 picture1.Print "*"; Next Next End Sub 28. 题目:题目:已知C的公式表示如下: ' n! 32 ' C=------------------ ' (n-m)!*m! '函数过程fac( )求k～函数,在Fomr_Click事件中完成运算， '------------------------------------------------ Option Explicit Private Function fac(k As Integer) As Single Dim x As Single, j As Integer For j = 1 To k Next j fac = x End Function Private Sub Form_Click() Dim C As Single Dim m As Integer, n As Integer m = Val(InputBox("请输入一个整数(m):")) n = Val(InputBox("请输入一个整数(n):")) Print "C="; C 33 End Sub 29.题目:程序功能为打印下列图形: ' * ' ** ' *** ' **** ' ***** '------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim i As Integer Dim j As Integer For i = Print "*"; Print Next i End Sub 34 30题目: 本程序的功能是随机产生的10个两位正整数，并进行递减排序。 '------------------------------------------------ Option Explicit Private Sub CreateRND() Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Integer Dim J As Integer N = 10 Print "数据:" For I = 1 To N Print X(I); Next I Print Print "排序:" For I = 0 To N - 1 For J = I + 1 To N Then 35 End If Next J Print X(I); Next I Print End Sub Private Sub Command1_Click() CreateRND End Sub 31.题目: 随机产生并输出100以内大于50的20个整数，输 出时每5个数一行。 '----------------------------------------------- Option Explicit Private Sub Form_Click() Randomize Timer Dim i As Integer, ma As Integer Do Until 36 ma = Rnd() * 100 \ 1 If ma > 50 Then Print ma; i = i + 1 Then Print End If End If Loop End Sub 32.题目: 以下程序段用于计算5的N次方。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox(" Input n ") Do While k <= n s = s * 5 37 k = k + 1 Print "5的"; "n次方是"; s End Sub 33.题目:下面程序可输出如下图形: ' * ' *** ' ***** ' ******* ' ********* '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4 m = 1 s = "*" For i = 5 To 1 Step -1 For j = 1 To 2 * m - 1 Print s; 38 Next j Print Next i End Sub 34题目: 用自定义函数的方法求sum(x)，求当-1?x?1时， ' sum(x)=x/2～+x^2/3!+x^3/4!+„„+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数 ' 据错误。X、N都是由用户输入。 '------------------------------------------------ Option Explicit Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:")) x = Val(InputBox("Please input a single value:")) If n <= 0 Then k = MsgBox("数据输入错误～", vbRetryCancel + vbExclamation, "数据输入") 39 Exit Sub End If s = Sum(x, n) Print s End Sub Function Sum(x As Single, n As Integer) Dim i As Integer, ss As Long ss = 1 Sum = 0 If x > 1 Or x < -1 Then Else ss = ss * i Next i End If End Function 35.题目:以下程序功能是输入三个数，由大到小排序。 ------------------------------------------------ Option Explicit Dim A As Integer 40 Dim B As Integer Dim C As Integer Private Sub Form_Click() Dim nTemp As Integer A = Val(InputBox("Please input first integer", "输入正整数")) B = Val(InputBox("Please input second integer", "输入正整数")) C = Val(InputBox("Please input third integer", "输入正整数")) nTemp = A A = B B = nTemp End If nTemp = A A = C C = nTemp End If nTemp = B 41 B = C C = nTemp End If Print "The integers in order is"; A; B; C End Sub 36.题目: 用辗转相除法求两个整数的最大公约数。 '------------------------------------------------ Option Explicit Function gcd(ByVal m As Integer, ByVal n As Integer) As Integer Dim r As Integer r = m Mod n Do While r <> 0 n = r r = m Mod n Loop End Function 42 Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer a = InputBox("输入一个整数") b = InputBox("输入一个整数") a = Val(a) b = Val(b) Print a, b, c End Sub 37.题目:下面的程序用“冒泡”法完成数组a中的10个整数 按升序排列，请修正程序中错误。 '------------------------------------------------ Option Explicit Private Sub Command1_Click() Dim a Dim i As Integer, j As Integer, a1 As Integer a = Array(-2, 5, 24, 58, 43, -10, 87, 75, 27, 83) For i = 1 To 9 a1 = a(i) a(i) = a(j) 43 End If Next j Next i For i = 0 To 9 Print a(i) Next i End Sub 38.题目: 程序功能为求解一元二次方程的实根，请修正程序中错误。 '------------------------------------------------ Option Explicit Private Sub Form_Load() Dim a!, b!, c!, root1#, root2#, work As Double a = Val(InputBox(" 请输入系数a的值")) b = Val(InputBox(" 请输入系数b的值")) c = Val(InputBox(" 请输入系数c的值")) If work >= 0 And a <> 0 Then Debug.Print "有二个实根" + Str$(root1) + "," + Str$(root2) 44 Else Debug.Print "无实根!" End If End Sub 39.题目: 下面程序的作用是产生100以内的全部素数，并 按每行5个数据输出。 '------------------------------------------------ Option Explicit Private Function prime(ByVal n As Integer) Dim i As Integer prime = 1 If n <= 1 Then prime = 0 If n Mod i = 0 Then prime = 0 Next i End Function Private Sub Form_Click() Dim i As Integer, k As Integer k = 0 For i = 1 To 100 45 If prime(i) = 1 Then k = k + 1 End If Next i End Sub 40.题目: 输出40以内能够被3整除的数，要求输出结果为5 个数一行。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim x As Integer Dim i As Integer For x = 1 To 40 If (x / 3) = (x \ 3) Then i = i + 1 End If 46 If Then Print End If Next x End Sub 41.题目: 程序功能:求1+2+3……，直到其和超出3000为 止，并输入结果。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim i As Integer Dim s As Single i = 1 Do s = s + i Loop Print "从1 到:"; i; "的和是"; s 47 End Sub 42.题目: 以下程序段用于输出100-300的所有素数 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2 k = Int(Sqr(n)) i = 2 If n Mod i = 0 Then swit = 1 Else End If Wend If swit = 0 Then Print n; End If Next n 48 End Sub 43.题目: 本程序的功能是随机产生的10个两位正整数，并进行递减排序。 '------------------------------------------------ Option Explicit Private Sub CreateRND() Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Integer Dim J As Integer N = 10 Print "数据:" For I = 1 To N Print X(I); Next I Print Print "排序:" For I = 0 To N - 1 For J = I + 1 To N 49 X(J) = X(I) X(I) = Temp End If Next J Print X(I); Next I Print End Sub Private Sub Command1_Click() CreateRND End Sub 44.题目:输入两个正整数m和n，求其最大公约数。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, r As Integer m = InputBox("输入m的值:") n = InputBox("输入n的值:") Do While n <> 0 50 m = n Loop Print "两数的最大公因子为:"; End Sub 45(题目: 下面程序将10个整数从大到小排序 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim t%, m%, n%, w% Dim a(10) As Integer For m = 1 To 10 a(m) = Int(10 + Rnd() * 90) Print a(m); " "; Next m Print For m = 1 To 9 t = m 51 Next n w = a(m) a(m) = a(t) a(t) = w End If Next m For m = 1 To 10 Print a(m) Next m End Sub 46题目: 求s=72+102+132+……+832的值。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim s As Long Dim i As Integer s = s + i 52 Print s End Sub 47.题目: 下面程序用于将十个数字从小到大排序 '------------------------------------------------ Option Explicit Option Base 1 Private Sub Form_Click() Cls Dim a(10) As Integer Dim i As Integer, j As Integer, temp As Integer If i Mod 2 = 0 Then a(i) = i Else a(i) = -i Print a(i); Next Print For i = 1 To 10 For j = 1 To 10 - i temp = a(j): a(j) = a(j + 1): a(j + 1) = temp 53 End If For i = 1 To 10 Print a(i); Next End Sub 48.编制应用程序，计算公式为K=2～+4～+6～+ „„ +(2n!)。运行该程序后，在文本框中输入项数，单击“计算”按钮，在另一个文本框中显示结果。单击“清除”按钮，清除二个文本框中的内容，光标聚焦在“输入项数”文本框中。单击“退出”按钮，结束应用程序的运行。 Private Sub Command1_Click() Dim f As Double, s As Double, n As Integer Dim i As Integer, j As Integer n = Val(Text1.Text) For i = 2 To 2 * n 54 f = 1 For j = 1 To i f = f * j Next j s = Next i Text2.Text = Str(s) End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub Private Sub Command3_Click() Unload Me End Sub 49.本程序可以随机产生十个10 – 99的二位数并存放于数组 Com中，之后从中找出一个最大数Max与最小数Min，结果在窗体上显示出来,请填空。 55 Option Explicit Option Base 1 Private Sub Command1_Click() Dim com(10) As Integer, i As Integer Dim max As Integer, min As Integer Randomize For i = 1 To 10 com(i) = Print com(i); If i Mod 6 = 0 Then Next i Print max = com(1) min = com(1) For i = 2 To 10 If com(i) > max Then max = com(i) ElseIf Then min = End If Next i Print " 最大数是:"; max 56 Print " 最小数是:"; min End Sub Private Sub Command2_Click() Form1.Cls End Sub 50.执行下面程序，第一行输出结果是(5)，第二行输出结果是(6)。 Option Explicit Private Sub Form_C1ick() Dim A As Integer A=2 Call Sub1(A) End Sub Private Sub Sub1(X As Integer) X=X*2+1 If X<10 Then Call Sub1(X) End If X=X*2+1 Print X End Sub 57