高中信息技术考试vb程序题及答案.docxVIP

第一套 1、 填空完成程序，使得当 窗体 后， Label1 上 示 100 以内（含 100） 偶数之和。 Private Sub Form_Click() Dim i As Integer 定 量 i Dim s As Integer 定 量 s，用于存放 100 以内（含 100）偶数 的和 s = 0 For i = 2 To 100 Step 2 s = s+i Next i Label1.Caption = Str(s) End Sub 2、 填空完成程序，使得当在 Text1 中 入 的半径后， 算 按 ， 算 的周 ，并在 Text2 中 示出来。 Private Sub Command1_Click() Const pi = 3.14 定 符号 常量 Dim c As Single 定 周 精度型 Dim r As Single 定 半径  精度型 r = Val(text1.text) c = pi *2*r text2.text = c End Sub 第二套 填空完成程序， 算 s=1!+2!+3!+ ? +8! 的 并在窗体上打印出 果。 Private Sub Form_Click() Dim s As Single s 量用 于存放 算 果 Dim p As Single Dim i As Integer 定 一 个循 量 s 初 s = 0 p 初 p = 1 For i = 1 To 8 p = p * i =s+p Next i Print s=; s End Sub 填空完成程序，使得当 窗体后， Label1 示 合格，可以参 ！ 。 算 1+2+3+? +N500的 N 的最小 ， Private Sub Command1_Click() 并在文本框 Text1 中 示出来。 Dim t As Single 定量 Private Sub Form_Click() t ， 由文本框 Text1 入 Dim s As Integer 量 s 存放 t = Val(text1.text) 和 If Then Dim n As Integer Label1.Caption = 超 s 初 重！不能参 ！ s = 0 Else n 初 Label1.Caption = 合格，可 n =0 以参 ！ Do End if n = n + 1 End Sub s = s + n 填空完成程序，使得 窗体后， Loop While s = 500 算出 1+2+3+?+N500 的 N 的最大 ， Text1.Text = Str(n) 并在文本框 Text1 中 示出来。 End Sub Private Sub Form_Click() 第三套 Dim s As Integer 量 s 存 重比 中， 60 公斤 手体重不能 放和 超 60 公斤。 Dim n As Integer 填空完成程序，使得在文本 Text1 中 n 初 入一个大于 60 的数 ， Label1 n = 0 示 超重！不能参 ！ ； s 初 当 入一个小于等于 60 的数 ， s = 0 Do While s 500 End If n = n + 1 If Cj = 60 And Cj 85 s =s+n Then Loop Label1.Caption = 良 Text1.Text = Str(n - 1) 好 End Sub End If 第四套 If Cj = 85 Then 这是一个简单的显示评语程序，填空 Label1.Caption = 优 完成程序，在文本框 Text1 中输入一个 秀 数后，单击评语按钮，在标签 End If Label1 显示评语。 End Sub 当输入一个小于 60 的数时，显示 不 某公司 2005 年的总产值为 2000 万 及格； 元，若总产值以每年 5%的速度增长， 当输入一个大于等于 60 且小于 85 的 多少年后总产值翻一倍？ 数时，显示 良好 ； 填空完成程序，使得当单击窗体后， 当输入一个大于等于 85 的数时，显示 在窗体上输出问题答案。 优秀。 Private Sub Form_Click() Private Sub Command1_Click() Dim p As Single 变量 p 保 Dim Cj As Single 定义变量 存年产值 Cj ，值由文本框 Text1 读入 Dim n As Integer 整型变量 n