vb程序题及答案

1、第一套s =_0给p赋初值6给s赋初值t = Val(text1.text)1、填空完成程序，使得当单击窗体后，Labell上显示100以内(含100)偶数之和。Private Sub Form_Click()Dim i As Integer定义变量 iDim s As Integer定义变量s,用于存放100以内(含100)偶数的和s = 0For i = 2 To 100 Step 2s = s+iNext iLabel1.Caption = Str(s)End Sub2、填空完成程序，使得当在 Text1中输入圆的半径后，单击计算按钮，计算圆的周长，并在 Text2中显示出来。Priva

2、te Sub Command1_Click()Const pi = 3.14定义符号常量Dim c As Single定义周长c为单精度型Dim r As Single定义半径r为单精度型r = Val(text1.text)c = pi *2*rtext2.text = cEnd Sub第二套填空完成程序，计算 s=1!+2!+3!+8!的值并在窗体上打印出结果。Private Sub Form_Click()Dim s As Single s变量用于存放计算结果Dim p As SingleDim i As Integer定义一个循环变量p = 1For i = 1 To 8 p = p

3、* i s =s+pNext iPrint s=; sEnd Sub填空完成程序，使得当单击窗体后，计算 1+2+3+ -+N500的N的最小值，并在文本框 Text1中显示出来。Private Sub Form_Click()Dim s As Integer 变量s存放和Dim n As Integer为s赋初值s =_0为n赋初值n =0 Do n = n + 1 s = s + nLoop While s ThenLabell.Caption =超重！不能参赛！ElseLabell.Caption =合格，可以参赛！End if End Sub填空完成程序，使得单击窗体后，计算出1+2+

4、3+N500的N的最大值，并在文本框 Text1中显示出来。Private Sub Form_Click()Dim s As Integer变量s存放和Dim n As Integer为n赋初值n = 0为s赋初值s = 0 Do While s 500n = n + 1 s =s+n Loop Textl.Text = Str(n - 1) End Sub第四套这是一个简单的显示评语程序，填空完成程序，在文本框Textl中输入一个数后，单击“评语”按钮，在标签Labell显示评语。当输入一个小于60的数时，显示不及格”；当输入一个大于等于60且小于85的数时，显示良 好”；当输入一个大于等于

5、85的数时，显示“优秀”。Private Sub Command1_Click()Dim Cj As Single 定义变量Cj,值由文本框Text1读入Cj = Val( textl.text ) If Cj = 60 And Cj = 85 ThenLabell.Caption =优秀End IfEnd Sub某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？填空完成程序，使得当单击窗体后，在窗体上输出问题答案。Private Sub Form_Click()Dim p As Single 变量p保存年产值Dim n As Integer 整型变量

6、n为所求年数P=2000 n = 0 Do While p 4000 p = p *1.05 n = n+1LoopPrint n=; nEnd Sub第五套填空完成程序，使得当单击 “计算7!”按钮后，Text1显示7!的值。Private Sub Command1_Click()Dim a As IntegerDim i As Integer a = 1For i = 1 To 7 Step 1 a = a*iNext iText1.Text = Str(3) End Sub填空完成程序,编程计算1-1/2+1/3-1/4+.+1/99-1/100,单击窗体后，在窗体上显示结果。Priva

7、te Sub Form_Click()Dim s As SingleDim i As Integer s =0For i = 1 To W0 Step 1If i Mod 2 0 Thens = s + 1 / i Elses = s-1/i End If Next iPrint s=; s End Sub第六套填空完成程序，编程计算1+1/2+1/3+1/4+1/99+1/100,单击窗体后，在窗体上显示结果。Private Sub Form_Click()Dim s As Single定义变量s为单精度型Dim i As Integer定义循环变量s = 0For i = 1 To 100

8、 Step 1 s = s +1/ i Next iPrint s=; s End Sub填空完成程序，使得当单击”计算1+2+3+100”按钮后，文本框 Text1显示1+2+3+100的 值。Private Sub Command1_Click()Dim a As IntegerDim i As Integer a =0For i = 1 To .100 Step 1 a =_a+jNext iText1.Text = Str(4)End Sub第七套填空完成程序，使得单击“显示按钮后，随机产生10个属于区间0, 100)的自然数，并保存于数组a中。然后在窗体上显示这10个数的平均值。注：

9、学生运算结果有可能跟样图中数值不一致。Private Sub Command1_Click()Dim a(9) As IntegerDim s As SingleDim i As Integer Me.CIs s = 0RandomizeFor i = 0 To 9 Step 1 a(i) = Int(Rnd * 100) Print a(i)Next iFor i = 0 To 9 s = s+a(i) Next iPrint 这10个自然数的平均值=;s / 10End Sub填空完成程序，左键单击窗体时打印下面所示的图案。 * * * *Private Sub Form_Click()D

10、im i As IntegerDim j As IntegerFor i = 4 To 1 Step -1For j = 1 To i Step 1Print *;Next j printNext iEnd Sub第八套填空完成程序，问：鸡兔同笼，共有 100条腿，40个头，问鸡有几只，兔有几只？单击窗体后，在窗体上显示结果。Private Sub Form_Click()Dim Ji As IntegerJi变量表示鸡的个数Dim Tu As Integer Tu变量表示兔的个数Dim Leg As Integer Leg 变量表示腿数For Ji = 1 To 40Tu = 40-ji计算

11、腿数Leg = ji*2 + Tu * 4如果腿正好100只，则打印。If Leg = 100 Then Print 鸡寸 Ji;只，兔;Tu;只End If Next JiEnd Sub填空完成程序，使得单击“显示”按钮后，显示下面的图形：Private Sub Command1_Click()Dim i As Integer定义i为整型变量Dim j As Integer定义j为整型变量For i = 1 To 6 Step 1For j = 1 To L Step 1Print ;Next jPrintNext iEnd Sub第九套填空完成程序，使得单击 “显示按钮时，Text1、Te

12、xt2分别显示变量x、y的值。Private Sub Command1_Click()Dim x, y As Integerx = 10y = 100If x y Then以下三条语句交换x,y的值t = x x = y y = t End If Text1.Text = Str(x) Text2.Text = Str(y) End Sub填空完成程序，使得单击“显示按钮后，在窗体上显示如图99乘法表。Private Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i = 1 To 9 Step 1Print ;Forj = 1

13、To 9Print i*jPrint vbTab;Next j printNext i End Sub第十套填空完成程序，使得在 Text1中输入一个数，单击判断”按钮后，判断这个数是奇数还是偶数并在Label1中显示奇数或偶数出来。Private Sub Command1_Click()Dim a As SingleDim b As Single从Text1中读入这个数，并保存在变量a中a = Val(textl.text) b = a Mod 2If b = 0 ThenLabell.Caption =偶数ElseLabell.Caption =奇数endifEnd Sub填空完成程序,使

14、得单击“显示按钮后，随机产生10个属于区间0, 100)的自然数，并保存于数组a中，然后在窗体上显示这10个数中 的最大值。Private Sub Command1_Click()Dim a(9) As IntegerDim max As IntegerDim I As IntegerMe.ClsPrintRandomizeFor i = 0 To _9_ Step 1 a(i) = Int(Rnd * 100) Print a(i) Next imax = a(0)For i = 1 To 9If max a(i) Then max = a(i) End IfNext iPrint 这10个

15、自然数中的最大值=;Str(3)End Sub填空完成程序：单击“计算5!”按钮后，Text1显示5!的值。Private Sub Command1_Click()Dim a As IntegerDim i As Integera = 1For i = 2 To 5 a = a*iNext _iText1.Text = Str(a)End Sub第十四套某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番(即4倍)的目标。填空完成程序，使得当单击窗体后，在窗体上输出问题答案。Private Sub Form_Click()Dim i As SingleDi

16、m s As Integer设s为所求年数，定义为整型，结果由窗体输出i = 1s = 0Do While i=4i = _i*1.1s=s+1LoopPrint s=; sEnd Sub在横线处添加代码实现单击该按钮，窗体的背景色由原来的默认色变为红色(红：&HFF&)Private Sub Command1_Click() backcolor= &HFF&End Sub第十五套已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c,其中a不等于0o填空完成程序，求方程的根。要求：如果方程无实数根，则输出“无实数根，否则输出两个实数根。Private Sub Command1_Cl

17、ick()Dim a, b, c, d As SingleDim x1, x2 As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a 0 Then 判断a是否等于0d =bA2-4*a*cIf d = 0 Then 判断是否有实数根x1 = (-b + Sqr(d) / (2 * a)x2 = (-b - Sqr(d) / (2 * a)Labell.Caption = Str(x1)Label2.Caption = Str(x2)ElseLabel3.Caption = 无实数根”End IfEnd IfEnd Sub填空完成程序，打印如图所示的图案。* ，*，* *Private Sub Form_Click()Dim i As Integer定义i为整型变量Dim j As Integer定义j为整型变量For i = -2 To 2For j = 1 To 3 - abs(i)Print *；Next jPrint换行Next iEnd Sub第十八套填空完成程序，计算 s=1!+2!+3!+8!的值并在窗体上打印出结果。Private Sub Form_Click()Dim s As Single s变量用于存放计算结果给s赋初值s =0给p赋初值