选修VB操作题(打印)讲解

186、举重比赛，60公斤级选手体重不能超过60公斤。 修改程序中的(1)(2)(3)，使得在文本Text1中输入一个大于60的数时，标签Label1显示“超重！不能参赛！”，当输入一个小于等于60的数时，标签Label1显示“合格，可以参赛！”。Private Sub Command1_Click() Dim t As Single 定义变量t，值由文本框Text1读入 t = (1) If (2) Then Label1.Caption = 超重！不能参赛！ Else Label1.Caption = 合格，可以参赛！ (3)End Sub参考答案：(1) val(text1.text) (2) t60 (3) End If187、填空完成程序，使得单击显示按钮时，Label1、Label2分别显示30，10。程序代码:Private Sub Command1_Click() Dim x, y, t As Integer x = 10 y = 30 If x y Then t = (1) x = (2) y = (3) End If Label1.Caption = Str(x) Label2.Caption = Str(y)End Sub参考答案：(1) x (2) y (3) t188、某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番（即4倍）的目标。填空完成程序，使得当单击窗体后，在窗体上输出问题答案。Private Sub Form_Click() Dim i As Single Dim s As Integer 设s为所求年数,定义为整型,结果由窗体输出 i = 1 销售收入为1 s = 0 年数初始值为0 Do While (1) i = (2) (3) Loop Print s=; sEnd Sub参考答案：(1) i4 (2) i*1.1 (3) s=s+1189、填空完成程序，使得当单击计算按钮后，在Text1中显示出满足条件2+4+6+x 80中最大的x的值。Private Sub Command1_Click() Dim s As Integer Dim x As Integer s = 0 x = (1) Do x = x + (2) s = s + (3) Loop While s 80 x = x - 2 Text1.Text = Str(x)End Sub参考答案：(1) 0 (2) 2 (3) x190、填空完成程序:单击计算5!按钮后，Text1显示5!的值。Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = (1) For i = 2 To (2) a = (3) Next (4) Text1.Text = Str(a)End Sub参考答案：(1) 1 (2) 5 (3) a*I (4) i193、使得单击画图按钮后，在窗体上画出如图两条相互垂直的线段，其中，线段a一端的坐标是（600，1300），长度为1600，b是a 的中垂线，长度为1000 (提供的样图与程序画出的图形可能不完全相同)。Private Sub Command1_Click() Line (_, _)-(2200, 1300) Line (1400, 300)-(_, 1300)End Sub参考答案：line (x1,y1)-(x2,y2) 就是从起点(x1,y1)开始画到到终点(x2,y2)600,1300 第一条语句画水平线a1400 第二条语句画垂直线b194、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。填空完成程序，求方程的根。要求：如果方程无实数根，则输出无实数根，否则输出两个实数根。Private Sub Command1_Click() Dim a, b, c, d As Single Dim x1, x2 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a 0 Then 判断a是否等于0 d = _ If d = 0 Then 判断是否有实数根 x1 = _ x2 = (-b - Sqr(d) / (2 * a) Label1.Caption = Str(x1) Label2.Caption = Str(x2) Else Label3.Caption = _ End If End IfEnd Sub参考答案(1) b*b-4*a*c 或 b2-4*a*c(2)(-b + Sqr(d) / (2 * a)(3) 无实数根195、填空完成程序，求 |X*X+1(X0)的值。（x的值在程序中调用InputBox函数，在弹出的标准输入对话框中输入）Private Sub Form_Click() Dim x As Single 定义x为为单精度型变量,由标准输入对话框输入 Dim y As Single 定义y为单精度型变量,值由窗体显示 x = (1)(InputBox(请输入变量x) If x 60(3) end if599、填空完成程序，使得当单击窗体后，计算1+2+3+N500的N的最小值，并在文本框Text1中显示出来。注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码Private Sub Form_Click() Dim s As Integer 变量s存放和 Dim n As Integer 为s赋初值 s = (1) 为n赋初值 n = (2) Do n = n + 1 s = s + n Loop While s (3) 500 Text1.Text = Str(n)End Sub参考答案：(1) 0 s存放和所以s初值为0(2) 0 n初值也为0(3) 500600、这是一个简单的显示评语程序，填空完成程序，在文本框Text1中输入一个数后，单击评语按钮，在标签Label1显示评语。当输入一个小于60的数时，显示不及格；当输入一个大于等于60且小于85的数时，显示良好；当输入一个大于等于85的数时，显示优秀。注：请不要更改原程序结构，删除（1）、（2），并在对应位置填写正确的代码Private Sub Command1_Click() Dim Cj As Single 定义变量Cj，值由文本框Text1读入 Cj = Val(1) If Cj (2) 60 Then Label1.Caption = 不及格 End If If Cj = 60 And Cj = 85 Then Label1.Caption = 优秀 End IfEnd Sub参考答案：(1) text1.text(2) 601、填空完成程序，使得单击窗体后，计算出1+2+3+N500的N的最大值，并在文本框Text1中显示出来。注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码Private Sub Form_Click() Dim s As Integer 变量s存放和 Dim n As Integer 为n赋初值 n = (1) 为s赋初值 s = (2) Do While s 500 n = n + 1 s = (3) Loop Text1.Text = Str(n - 1)End Sub参考答案：(1) 0(2) 0(3) s+n602、某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？填空完成程序，使得当单击窗体后，在窗体上输出问题答案。注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码Private Sub Form_Click() Dim p As Single 变量p保存年产值 Dim n As Integer 整型变量n为所求年数 (1) n = 0 Do While p 4000 p = p * (2) n = (3) Loop Print n=; nEnd Sub参考答案：(1) p=2000 (2) 1.05 (3) n + 1603、填空完成程序，使得当单击计算7！按钮后，Text1显示7！的值。注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = 1 For i = 1 To (1) Step 1 a = (2) Next i Text1.Text = Str(3)End Sub参考答案：(1) 7(2) a * i(3) a604、填空完成程序，编程计算1-1/2+1/3-1/4+.+1/99-1/100，单击窗体后，在窗体上显示结果。注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码。Private Sub Form_Click() Dim s As Single Dim i As Integer s = (1) For i = 1 To (2) Step 1 If i Mod 2 0 Then s = s + 1 / i Else s = (3) End If Next i Print s=; sEnd Sub参考答案：(1) 0(2) 100(3) s - 1 / i605、填空完成程序，编程计算1+1/2+1/3+1/4.+1/99+1/100，单击窗体后，在窗体上显示结果。注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码。Private Sub Form_Click() Dim s As Single 定义变量s为单精度型 Dim i As Integer 定义循环变量 s = (1) For i = 1 To (2) Step 1 s = s + (3) Next i Print s=; sEnd Sub参考答案：(1) 0(2) 100(3) 1 / i606、填空完成程序，使得当单击计算1+2+3+100按钮后，文本框Text1显示1+2+3+100的值。注：请不要更改原程序结构，删除（1）、（2）、（3）、（4），并在对应位置填写正确的代码Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = (1) For i = 1 To (2) Step 1 a = (3) Next i Text1.Text = Str(4)End Sub参考答案：(1) 0(2) 100(3) a + i(4) a607、填空完成程序，使得单击显示按钮后，随机产生10个属于区间0，100)的自然数，并保存于数组a中。然后在窗体上显示这10个数的平均值。注：学生运算结果有可能跟样图中数值不一致。注：请不要更改源程序结构，删除（1）、（2），并在对应位置填写正确的代码。Private Sub Command1_Click() Dim a(9) As Integer Dim s As Single Dim i As Integer Me.Cls s = 0 Randomize For i = 0 To (1) Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i For i = 0 To 9 s = (2) Next i Print 这10个自然数的平均值=; s / 10End Sub参考答案：(1) 9 (2) s + a(i) 608、填空完成程序，问：鸡兔同笼，共有100条腿，40个头，问鸡有几只，兔有几只?单击窗体后，在窗体上显示结果。注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码。Private Sub Form_Click() Dim Ji As Integer Ji变量表示鸡的个数 Dim Tu As Integer Tu变量表示兔的个数 Dim Leg As Integer Leg变量表示腿数 For Ji = 1 To 40 Tu = (1) 计算腿数 Leg = (2) + Tu * 4 如果腿正好100只，则打印。If Leg = (3) Then Print 鸡=; Ji; 只, 兔=; Tu; 只End IfNext JiEnd Sub参考答案：(1) 40 ji (2) ji * 2 (3) 100这程序也可这样做：For Ji = 1 To 40 For Tu = 1 To 25 If Ji + Tu = 40 And Ji * 2 + Tu * 4 = 100 Then Print 鸡=; Ji; 只, 兔=; Tu; 只 End If Next TuNext Ji609、填空完成程序，左键单击窗体时打印下面所示的图案。 * * * *注：请不要更改原程序结构，删除（1）、（2），并在对应位置填写正确的代码Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = (1) To 1 Step -1 For j = 1 To i Step 1 Print *; Next j (2) Next iEnd Sub参考答案：(1) 4 (2) print610、填空完成程序，使得单击显示按钮后，显示下面的图形：注：请不要更改原程序结构，删除（1）、（2），并在对应位置填写正确的代码Private Sub Command1_Click() Dim i As Integer 定义i为整型变量 Dim j As Integer 定义j为整型变量 For i = 1 To 6 Step 1 For j = 1 To (1) Step 1 Print ; Next （2） Print Next iEnd Sub参考答案：(1) I (2) j611、填空完成程序，使得单击显示按钮时，Text1、Text2分别显示变量x、y的值。注：请不要更改原程序结构，删除（1）、（2），并在对应位置填写正确的代码Private Sub Command1_Click() Dim x, y As Integer x = 10 y = 100 If x y Then 以下三条语句交换x,y的值 t = (1) x = y y = (2) End If Text1.Text = Str(x) Text2.Text = Str(y)End Sub参考答案：(1) x (2) t612、填空完成程序，使得单击显示按钮后，在窗体上显示如图99乘法表。注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码。Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To (1) Step 1 Print ; For j = 1 To 9 Print (2) Print vbTab; Next j (3) Next iEnd Sub参考答案：(1) 9 (2) i * j; 打印出来的每个数字为 行*列 的值，此处注意分号一定不能少(3) print 打印完一行9个数字后换行，此处不要分号613、填空完成程序，使得在Text1中输入一个数，单击判断按钮后，判断这个数是奇数还是偶数并在Label1中显示奇数或偶数出来。注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码Private Sub Command1_Click() Dim a As Single Dim b As Single 从Text1中读入这个数,并保存在变量a中 a = Val(1) b = a Mod (2) If b = 0 Then Label1.Caption = 偶数 Else Label1.Caption = 奇数 (3)End Sub参考答案：(1) text1.text (2) 2判断一个数为奇数还是偶数，用这个数对2求余即 a mod 2如余数为0则为偶数，不为0则为奇数还有一种：如余数为1则为奇数，不为1则为偶数(3) End If614、填空完成程序，使得单击显示按钮后，随机产生10个属于区间0，100）的自然数，并保存于数组a中，然后在窗体上显示这10个数中的最大值。(注：学生运算结果有可能跟样图中数值不一致。)注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim i As Integer Me.Cls Print Randomize For i = 0 To (1) Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i max = a(0) For i = 1 To 9 If max a(i) Then max = (2) End If Next i Print 这10个自然数中的最大值=; Str(3)End Sub参考答案：(1) 9一共10个数所以 i = 0 to 9(2) a(i) max = a(0)，然后将数组中后面9个数分别和max比较，如果max a(j) Then a(0) = a(i) a(i) = a(j) a(j) = a(0) End If Next j Next i For i = 1 To 10 Print CStr(a(i) Next iEnd Sub参考答案： 9 i+1 101327、在Text1中输入一个整数，单击“判断”按钮，在Label1中显示“正数”、“零”或者“负数”！注：(1) 删除、，填入正确的语句 (2) 不能删除注释语句Private Sub Command1_Click()Dim a As Integera = Val()If a = 0 Then Label1.Caption = 零ElseIf a 0 Then Label1.Caption = 正数Else Label1.Caption = End IfEnd Sub参考答案： Text1.text 负数1328、公鸡5文钱一只，母鸡3文钱一只，3只小鸡1文钱。如果用100文钱买100只鸡，可以买公鸡、母鸡和小鸡各多少只？完善下面的程序，单击“计算”按钮时，在Label中显示公鸡、母鸡、小鸡的数量！注：(1) 删除、，填入正确的语句 (2) 不能删除注释语句Private Sub Command1_Click()Dim i As IntegerDim j As IntegerDim k As IntegerFor i = 0 To 第一空 For j = 0 To 33 k = - j 第二空 If 5 * i + 3 * j + k / 3 = Then 第三空 Label1 = 小鸡= & k Label2 = 母鸡= & j Label3 = 公鸡= & i End If Next jNext iEnd Sub参考答案： 20 100-i 1001329、完善程序，输入时间秒，转换成时、分、秒形式！注：(1) 删除、，填入正确的语句 (2) 不能删除注释语句Private Sub Command1_Click()Dim a, b, c, d As DoubleDim h As Stringa = Val(Text1.Text)b = 转换小时c = 转换分钟d = (a Mod 3600) Mod 60 转换秒h = b & 小时 & c & 分钟 Text2.Text = hEnd Sub参考答案：a3600 (a Mod 3600)60 & d & 秒1330.在左边的文本框中输入一个100以内的正整数（包括100），单击判断按钮，在右边的文本框显示是奇数还是偶数;输入大于100的整数则显示输入的整数不能超过100！注：(1) 删除、，填入正确的语句 (2) 不能删除注释语句Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text) If Then Text2.Text = 输入的整数不能超过100 ElseIf = 0 Then Text2.Text = 偶数 Else Text2.Text = 奇数 End IfEnd Sub参考答案：本题先要在适当位置增加一个按钮a100 a mod 2=0 1331、完善程序，找出100以内的偶数(包括100)中能被3整除的正整数，并求出它们的和！单击“求和”按钮时，在文本框中输出和！注：(1) 删除、，填入正确的语句 (2) 不能删除注释语句Private Sub Command1_Click()Dim x As Integerx = 0For i = 0 To 100 Step 第一空 If Then 第二空 第三空 End IfNext iText1.Text = xEnd Sub参考答案：2 i mod 3=0 x=x+i1333、求1到100之间所有偶数之和与所有奇数之和!注：(1) 删除、，填入正确的语句 (2) 不能删除注释语句Private Sub Command1_Click()Dim s1 As Single, s2 As Single, i As Integers1 = 0s2 = 0For i = 1 To 100If Then 第一空s1 = s1 + iElse 第二空End IfNext iText1.Text = 第三空Text2.Text = 第四空End Sub参考答案：i mod 2=0 s2=s2+i s1 s21335、输入3个整数，输出最小值注：(1) 删除、，填入正确的语句 (2) 不能删除注释语句Private Sub Form_Load()Dim x As IntegerDim min As IntegerDim i As Integermin = InputBox(请输入数据, 输入3个数)For i = 1 To 第一空 x = InputBox(请输入数据, 输入3个数) If Then 第二空 min = x End IfNext iText1.Text = 第三空End Sub参考答案：2 xxmin1336、五一节时，某商场推出促销活动，购物总金额达到100元可以打9折，达到200元可以打8折，100元以下不打折！完善程序，使之实现如下功能：在第一个文本框中输入购物总金额，单击计算按钮时，在第二个文本框中输出实际支付金额！注：(1) 删除、，填入正确的语句 (2) 不能删除注释语句Private Sub Command1_Click()Dim a As SingleDim b As Single = Val(Text1.Text)If a 200 Then b = a * 0.8 a = 100 Then b = a * 0.9Else b = aEnd IfText2.Text = bEnd Sub参考答案：a ElseIf181、（新）：从键盘输入10个学生的测试成绩，输出最高分和最低分Private Sub Command1_Click()Dim cj(10) As SingleDim i As IntegerDim max As SingleDim min As SingleFor i = 1 To 10 cj(i) = Val(InputBox(请输入10个学生的成绩, 成绩输入)Next imax = cj(1)min = cj(1)For i = 2 To 10 If cj(i) max Then max = End If If Then min = End IfNext iPrint CStr(max), CStr(min)End Sub参考答案：cj(i) cj(i)= 0.0001 pi = pi + n = n + 2 s = -s t = Looppi = pi * Print pi= & CStr(pi)End Sub参考答案：0 t s/n 41987、请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim i, j As Integer For i = To 1 Step -1 Print Tab(4 - i); For j = 1 To Print ; Next j Print Next iEnd Sub参考答案：3 10 *（新）869：打开工程1.vbp，完善程序并保存。实现功能：单击按钮后打印下面所示的图案。(第一行的第一个从第1列开始输出) Private Sub Command1_Click() Dim i, j As Integer For i = To 1 Step -1 Print Tab(4 - i); For j = 1 To Print ; Next j Print Next iEnd Sub参考答案：3 10 （新）870：打开考生文件夹8