信息学业水平测试VB套操作题复习及答案技术分析.pptVIP

VB操作八 VB操作九 VB操作十 Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(InputBox(请输入x的值：)) If x=0 Then y = x Else y= -x End If Text1.Text = y End Sub Private Sub Command1_Click() Dim x As Long For x = 67008 To 67998 Step 10 If (x Mod 67 = 0) Or (x Mod 78 = 0) Then Print x End If next x End Sub Private Sub Form1_Click() Dim tz As Single, sg As Single Dim bz As Single tz = Val(InputBox(请输入您的体重：)) sg = Val(InputBox(请输入您的体重：)) bz = tz / sg ^ 2 If bz 25 Then MsgBox (您的身材偏胖，需要加强锻炼！) Else If bz18.5 Then MsgBox (您的身材偏瘦，需要补充营养！) Else MsgBox (您的身材真棒！) End If End If End Sub Private Sub Command1_Click() x = Val(Text1.Text) If x Mod 3 = 2 Then If ① = 3 Then If ② Then Print ③ End If End If End If End Sub ① x mod 5 ② x mod 7=4 ③ x Private Sub Form_Click() Dim p As Integer 变量p保存人口 Dim n As Long ① n = 0 Do While ② p = p * ③ n = ④ Loop Print n= CStr(n) End Sub ① p=14 ② p=20 ③ (1+0.04) ④ n+1 Private Sub Command1_Click() Dim s As Integer Dim a As Integer Dim b As Integer Dim k As Integer s = 0 a = 1 b = 1 For k = 1 To 10 s = s + a / b a = ① s = ② b = ③ Next k Print s End Sub a = a+b s = s+b/a ③ b = a+b Private Sub Command1_Click() Dim i As Integer Dim s As Integer i = 1 s = 0 Do While i = 99 s = s + ① i = ② Loop Print s= ③ End Sub ① i ② i+2 ③ s Private Sub Form_Click() Dim s As Integer Dim N As Integer N = 22 s = 0 Do s = s + ① N = ② Loop Until s 1500 Print N= CStr(③) End Sub ① n ② n+20 ③ n-20 Private Sub Command1_Click() Dim S1 As Single, S2 As Single Dim V1 As Single, V2 As Single Dim T As Single S