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

b = Val(Text2.Text)
c = Val(Text3.Text) If a > b Then max = a Else max = b
If c > max Then max = c
Label3.Caption = CStr(max) End Sub
VB操作二打不开
VB操作三
Private Sub Command1_Click() Dim s As Single Dim q As Single
a = i \ 100 b = (i - a * 100) \ 10 c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i Next i End sub
VB操作一
Private Sub Command1_Click() Dim s(9) As Single
VB操作三
Private Sub Command1_Click() Dim year As Integer year = Val(InputBox("请输入年号:"))
If ((year Mod 4 = 0) And (year Mod 100 <> 0)) Or (year Mod 400 = 0) Then
VB操作一
Private Sub Command1_Click() Dim x As String, y As String Dim i As Integer Dim temp1 As String, temp2 As String x = Text1.Text y = "" For i = 1 To Len(Text1.Text) temp1 = Mid(x, i, 1) temp2 = 9 - temp1
End Sub
VB操作三
Private Sub Command1_Click() Dim x As Single, y As Single a = 3: b = -5 x = Val(InputBox("请输入x的值"))
If x < 0 Then
y=x+5*a Else
y=x-2*b
End If Print "y="; CStr(y) End Sub
VB操作六
Private Sub Command1_Click() Dim s As Single 's计算存款 Dim y As Integer 'y计算年份 Dim r As Single 'r是年利率 s = 1000 y=0 r = Val(InputBox("输入年利率", "数据输入框")) Do While s <= 2000 y=y+1
b = (i - a * 100) \ 10
c = i Mod 10 If a * a * a + b * b * b + c * c * c = i Then Print CStr(i) End If Next i End Sub
VB操作五
Private Sub Command1_Click() Dim h, x, y As Single Let x = Val(Text1.Text) Let h = Val(Text2.Text) Let y = x - (h / 100) * 0.5 Let Text3.Text = y End Sub
VB操作五
Private Sub Command1_Click() Const pi = 3.14
Dim r, s As Single
r = Val(T1.Text) s = pi * r * r T2.Text = s End Sub
VB操作六
Private Sub Command1_Click() Form1.Caption = Text1.Text End Sub
VB操作一
Private Sub Command1_Click()
Dim h, m, s, ss As Integer
ss = Val(Text1.Text) h = ss \ 3600 m = (ss - h * 3600) \ 60 s = (ss - h * 3600) Mod 60 Label1.Caption = CStr(h) Label2.Caption = CStr(m) Label3.Caption = CStr(s) End Sub
Dim a As Single
Dim b As Single Dim c As Single a = Val(InputBox("请输入边长a的值：")) b = Val(InputBox("请输入边长b的值：")) c = Val(InputBox("请输入边长c的值：")) q = (a + b + c) / 2 s = Sqr(q * (q - a) * (q - b) * (q - c)) Print s End Sub
Let Text4.Text = "OK"
Else Let Text4.Text = "NO" End If End Sub
VB操作五
Private Sub Command1_Click() Dim i, a, b As Integer For i = 100 To 999 a = i \ 100
Print "是闰年" Else Print "不是闰年" End If
End Sub
VB操作三
Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer Dim g As Integer a = Val(Text1.Text) bai = a \ 100 shi = (a - bai * 100) \ 10 g = a Mod 10 b = g * 100 + shi * 10 + bai Text2.Text = CStr(b)
VB操作六
Private Sub Form_Click() Dim i As Integer Dim j As Integer Print For i = -3 To 3 Print Tab(3);
For j = 1 To 3 - Abs(i)
Print "*"; Next
Print "*"
Next End Sub
VB操作三
Private Sub Command1_Click() Dim a, b, c, p As Single
a = Val(Text1.Text)
b = Val(Text2.Text) c = Val(Text3.Text) p=b*b-4*a*c If p >= 0 Then X1 = (-b + Sqr(p)) / (2 * a) X2 = (-b - Sqr(p)) / (2 * a)
Print "X1="; X1
Print "X2="; X2
Else
Print "该方程无实数根" End If End Sub
VB操作四
Private Sub Command1_Click() Dim Wuyuan As Integer Dim Yiyuan As Integer Dim Wujiao As Integer For Wuyuan = 1 To 20 For Yiyuan = 1 To 100 Wujiao = 100 - Wuyuan - Yiyuan If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print "Wuyuan=" & Wuyuan & ",Yiyuan=" & Yiyuan & ",Wujiao=" & Wujiao End If Next Yiyuan Next Wuyuan
VB操作五
Private Sub Command1_Click()
Dim n, i As Long
Dim yes As Boolean Let n = Val(Text1.Text) Let yes = True For i = 2 To n \ 2 If n Mod i = 0 Then Let yes = False End If Next i If yes Then Let Text2.Text = "yes" Else Let Text2.Text = "no" End If End Sub
VB操作五
Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim t As Integer
a = Val(Text1.Text)
b = Val(Text2.Text) t=a
a=b
b=t Text1.Text = a Text2.Text = b End Sub
s = s * (1 + r)
Loop Print y; "年以后，存款可以达到2000元"
End Sub
VB操作六
倒推：
Private Sub Command1_Click() Dim tz As Integer 'tz是桃子数 Dim ts As Integer 'ts是天数 tz = 1 For ts = 1 To 9