选修VB操作题打印讲解_第1页
选修VB操作题打印讲解_第2页
选修VB操作题打印讲解_第3页
选修VB操作题打印讲解_第4页
选修VB操作题打印讲解_第5页
已阅读5页,还剩3页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、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

2、 Sub参考答案:(1) val(text1.text) (2) t>60 (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)

3、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) i<4 (2) i*

4、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!"按钮后,

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

6、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,

7、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参考

8、答案(1) b*b-4*a*c 或 b2-4*a*c(2)(-b + Sqr(d) / (2 * a)(3) "无实数根"195、填空完成程序,求 |X*X+1(X<=0) y=| |X*X-x+1X>0)的值。(x的值在程序中调用InputBox函数,在弹出的标准输入对话框中输入)Private Sub Form_Click() Dim x As Single '定义x为为单精度型变量,由标准输入对话框输入 Dim y As Single '定义y为单精度型变量,值由窗体显示 x = (1)(InputBox("请输入变量x"

9、;) If x <= 0 Then (2) Else (3) End If Print "y=" yEnd Sub参考答案:(1) val (2) y=x*x+1 (3) y=x*x-x+1196、填空完成程序,打印如右图所示的图案 (注释区别开)。*Private Sub Form_Click() Dim i As Integer '定义i为整型变量 Dim j As Integer '定义j为整型变量 Dim str As String For i = -2 To 2 str = "" For j = 1 To 3 - _ st

10、r = str & "*" Next j _ Print '换行 Next _End Sub参考答案:(1) abs(i)(2) print str; 此处一定要注意不能缺少分号(3) iFor循环的结构为:For 循环变量初值 To 终值 Step 步长 循环体Next 循环变量其中如果步长为1则“Step 步长”可以省略223、填空完成程序,打印如图所示的图案。*Private Sub Form_Click()Dim i As Integer '定义i为整型变量Dim j As Integer '定义j为整型变量For i = -2 To

11、 2 For j = 1 To 3 -(1) (2) Next j Print '换行Next (3)End Sub参考答案:(1) abs(i)(2) print "*" 此处一定要注意不能缺少分号(3) i224、在横线处添加代码实现单击该按钮,窗体的背景色由原来的默认色变为红色(红:&HFF&)Private Sub Command1_Click() _End Sub参考答案:Form1.BackColor=&HFF&窗体的名称为:form1背景色属性为:backcolor设置对象的属性: 名称.属性设置值如:form1.hei

12、ght=5000设置窗体的高度为5000label1.caption="你好" 设置标签label1显示文字为 你好595、填空完成程序,使得当单击窗体后,Label1上显示100以内(含100)偶数之和。注:请不要更改源程序结构,删除(1)、(2)、(3),并在对应位置填写正确的代码。Private Sub Form_Click() Dim i As Integer '定义变量i Dim s As Integer '定义变量s,用于存放100以内(含100)偶数的和 s = 0 For i = 2 To 100 Step (1) s = (2) Next

13、(3) Label1.Caption = Str(s)End Sub参考答案:(1) 2 因为是求偶数的和所以步长为2(2) s + i 求和(3) i596、填空完成程序,使得当在Text1中输入圆的半径后,单击"计算"按钮,计算圆的周长,并在Text2中显示出来。'注:请不要更改原程序结构,删除(1)、(2)、(3),并在对应的位置填写正确代码Private Sub Command1_Click() Const pi = 3.14 '定义符号常量 Dim c As Single '定义周长c为单精度型 Dim r As Single '定

14、义半径r为单精度型 r = Val(1) c = pi * (2) (3) = cEnd Sub参考答案(1) text1.text半径从文本框text1中输入(2) 2 * r 求周长的公式(3) text2.text 将结果在文本框text2中显示597、填空完成程序,计算s=1!+2!+3!+8!的值并在窗体上打印出结果。注:请不要更改源程序结构,删除(1)、(2)、(3),并在对应位置填写正确的代码Private Sub Form_Click() Dim s As Single ' s变量用于存放计算结果 Dim p As Single Dim i As Integer 

15、9;定义一个循环变量 '给s赋初值 s = (1) '给p赋初值 p = (2) For i = 1 To 8 p = p * i s = (3) Next i Print "s=" sEnd Sub参考答案:(1) 0 s是用来存放和的,所以初值为0(2) 1 p是用来求阶乘(数学写法为 n!=n*(n-1)*2*1 )的,所以初值为1(3) s + p p为1-8的阶乘,s求和598、举重比赛中,60公斤级选手体重不能超过60公斤。填空完成程序,使得在文本Text1中输入一个大于60的数时,标签Label1显示"超重!不能参赛!";当

16、输入一个小于等于60的数时,标签Label1显示"合格,可以参赛!"。注:请不要更改原程序结构,删除(1)、(2)、(3),并在对应位置填写正确的代码Private Sub Command1_Click() Dim t As Single '定义变量t,值由文本框Text1读入 t = Val(1) If (2) Then Label1.Caption = "超重!不能参赛!" Else Label1.Caption = "合格,可以参赛!" (3)End Sub参考答案:(1) text1.text(2) t>60(3

17、) end if599、填空完成程序,使得当单击窗体后,计算1+2+3+N>500的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存放

18、和所以s初值为0(2) 0 n初值也为0(3) <=Loop While 是当型循环 当条件成立时执行循环,一旦条件不成立循环就结束。此处可以改为Until循环:Loop Until s> 500600、这是一个简单的显示评语程序,填空完成程序,在文本框Text1中输入一个数后,单击"评语"按钮,在标签Label1显示评语。当输入一个小于60的数时,显示"不及格";当输入一个大于等于60且小于85的数时,显示"良好";当输入一个大于等于85的数时,显示"优秀"。注:请不要更改原程序结构,删除(1)、(2

19、),并在对应位置填写正确的代码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 If If Cj >= 85 Then Label1.Caption = "优秀" End IfEnd Sub参考答案:

20、(1) text1.text(2) <601、填空完成程序,使得单击窗体后,计算出1+2+3+N<500的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

21、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 "

22、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

23、、填空完成程序,编程计算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(

24、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 /

25、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、填空完成程序,使得单击"显示

26、"按钮后,随机产生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

27、 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 'L

28、eg变量表示腿数 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

29、 * 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 "

30、*" 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

31、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参考答案

32、:(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; 打印出来的每个数字

33、为 行*列 的值,此处注意分号一定不能少(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 (

34、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个数中的最大值。(注:学生运算结果有可能跟样图中数

35、值不一致。)注:请不要更改原程序结构,删除(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 &quo

36、t;这10个自然数中的最大值=" Str(3)End Sub参考答案:(1) 9一共10个数所以 i = 0 to 9(2) a(i) max = a(0),然后将数组中后面9个数分别和max比较,如果max < a(i)则 max = a(i)(3) max 将最大值显示出来024.'实现功能:单击"出题"按钮后,在label1和label2中各显示一个随机的整数,在text1中输入结果并单击"判断"'按钮后,在label3中显示"正确"或"错误"。'暑假,小明的阿姨带着一

37、个小弟弟到小明家玩,这个小弟弟开学就要上一年级了,阿姨交了一个任务给小明,要他每天出20'道一位数的加法题给小弟弟做,做完后还要帮小弟弟批改。小明自己的作业也多,他不想每天花许多时间去重复出题、改题'的工作,于是他想到了用计算机帮他出题并批改;Dim a, b, c, x, n As IntegerPrivate Sub Command1_Click() Randomize Label6.Caption = "第" & n & "道题" a = Int(Rnd * 10) b = Int(Rnd * 10) Label1.

38、Caption = a Label2.Caption = b n = n + 1End SubPrivate Sub Command2_Click() c = a + b x = Val() If c = Then Label3.Caption = "正确" Else Label3.Caption = "错误" End IfEnd SubPrivate Sub Form_Load() End Sub参考答案: Text1.text x n=1'(新)094:完善程序,实现功能:用选择排序法将数组a中的10个整数按升序排列。Private Sub

39、Command1_Click()Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000) Next i For i = 1 To For j = To If a(i) > 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中显示“正数”、“零”或者“

40、负数”!'注:(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文钱。'如果

41、用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 = "

42、小鸡=" & 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

43、 = '转换分钟d = (a Mod 3600) Mod 60 '转换秒h = b & "小时" & c & "分钟" Text2.Text = hEnd Sub参考答案:a3600 (a Mod 3600)60 & d & "秒"1330.'在左边的文本框中输入一个100以内的正整数(包括100),单击"判断"按钮,在右边的文本框显示是"奇数"还是"偶数"'输入大于100的整数则显示"输入的整

44、数不能超过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参考答案:本题先要在适当位置增加一个按钮a>100 a mod 2=0 1331、&

45、#39;完善程序,找出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之间所有偶数之和与所有奇数之

46、和!'注:(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个整数,输出最小值'注:

47、(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参考答案

48、:2 x<min或min>xmin1336、'"五一"节时,某商场推出促销活动,购物总金额达到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

49、 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个学生的成绩", "

50、成绩输入")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)<min cj(i)182. '(新):请不要更改源程序的结构,删除原题中的。填写正确的代码,使程序完善。'实现功能:利用格里高利公式/4=1-1/3+1/5-1/7+,求,直到最后一项的值小于0.0001为止,输出的值Private Sub C

51、ommand1_Click()Dim pi As Single, t As SingleDim n As Integer, s As Singlepi = t = 1: n = 1: s = 1Do While Abs(t) >= 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 Inte

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论