VB学测操作题介绍.doc

（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 定义周长c为单精度型 Dim r As Single 定义半径r为单精度型 r = Val( text1.text ) c = pi * 2*r text2.text = c End Sub （3）填空完成程序，计算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 = s+p Next i Print s=; s End Sub （4）完成程序，使得当单击窗体后，计算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 + n Loop While s 500 Text1.Text = Str(n) End Sub （5）举重比赛中，60公斤级选手体重不能超过60公斤。填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示超重！不能参赛！；当输入一个小于等于60的数时，标签Label1显示合格，可以参赛！。 Private Sub Command1_Click() Dim t As Single t = Val( text1.text ) If t60 Then Label1.Caption = 超重！不能参赛！ Else Label1.Caption = 合格，可以参赛！ Endif End Sub （6）填空完成程序，使得单击窗体后，计算出1+2+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 500 n = n + 1 s = s+n Loop Text1.Text = Str(n - 1) End Sub （7）这是一个显示评语程序，在文本框Text1中输入一个数后，单击评语按钮，在标签Label1显示评语。当输入一个小于60的数时，显示不及格；当输入一个大于等于60且小于85的数时，显示良好；当输入一个大于等于85的数时，显示优秀。 Private Sub Command1_Click() Dim Cj As Single 定义变量Cj，值由文本框Text1读入 Cj = Val( text1.text ) If Cj 60 Then L