信息技术学业水平测试VB套操作题复习及题库.ppt

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 (您的身材偏胖，需要加强锻炼！)