2024年2月4日发(作者：)

1.温度计

Public x As Integer

Option Explicit

Private Sub Command1_Click()

d = False

d = True

al = 10

x = -4

End Sub

Private Sub Command2_Click()

al = 0

d = True

d = False

End Sub

Private Sub Form_Load()

d = True

d = False

n = 43.1

End Sub

Private Sub Timer1_Timer()

If Line1.Y1 <= 0 Then

al = 0

n = 100

Else

Line1.Y1 = Line1.Y1 + x

n = n + 0.1

End If

If Line1.Y1 >= 800 Then

Color = vbBlue

Else

Color = vbRed

End If

End Sub

2. 属相

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = Val()

y = x Mod 12

If y = 0 Then

n = "猴"

ElseIf y = 1 Then

n = "鸡"

ElseIf y = 2 Then

n = "狗"

ElseIf y = 3 Then

n = "猪"

ElseIf y = 4 Then

n = "鼠"

ElseIf y = 5 Then

n = " 牛"

ElseIf y = 6 Then

n = " 虎"

ElseIf y = 7 Then

n = " 兔"

ElseIf y = 8 Then

n = " 龙"

ElseIf y = 9 Then

n = " 蛇"

ElseIf y = 10 Then

n = " 马"

Else

n = " 羊"

End If

End Sub

3. 出题复杂

Private Sub Cmd1_Click()

d = False

d = True

If Then

= Int((10 - 1 + 1) * Rnd + 1)

= Int((10 - 1 + 1) * Rnd + 1)

End If

If Then

= Int((99 - 10 + 1) * Rnd + 10)

= Int((99 - 10 + 1) * Rnd + 10)

End If

If Then

= Int((999 - 100 + 1) * Rnd + 100)

= Int((999 - 100 + 1) * Rnd + 100)

End If

End Sub

Private Sub Cmd2_Click()

If And And Val() = Val() + Val() Then

n = "对了"

End If

If And And Val() > Val() + Val() Then

n = "大了"

End If

If And And Val() < Val() + Val() Then

n = "小了"

End If

If And And Val() = Val() + Val() Then

n = "对了"

End If

If And And Val() > Val() + Val() Then

n = "大了"

End If

If And And Val() < Val() + Val() Then

n = "小了"

End If

d = True

d = False

End Sub

Private Sub Form_Load()

d = True

d = False

End Sub

4. 出题

Private Sub Cmd1_Click()

d = False

d = True

= Int((99 - 10 + 1) * Rnd + 10)

= Int((99 - 10 + 1) * Rnd + 10)

End Sub

Private Sub Cmd2_Click()

If Val() = Val() + Val() Then

n = "对了"

ElseIf Val() > Val() + Val() Then

n = "大了"

Else

n = "小了"

End If

d = True

d = False

End Sub

Private Sub Form_Load()

d = True

d = False

End Sub

6.统计正确率

Public sum As Integer

Public right As Integer

Public z As Single

Dim x As Integer, y As Integer

Private Sub Command1_Click()

x = Int((9 - 1 + 1) * Rnd + 1)

y = Int((9 - 1 + 1) * Rnd + 1)

n = x & "*" & y

End Sub

Private Sub Command2_Click()

sum = sum + 1

If Val() = x * y Then

= & Chr(13) & Chr(10) & x & "*" & y & "=" & Val() & "√"

right = right + 1

Else

= & Chr(13) & Chr(10) & x & "*" & y & "=" & Val() &

"X"

End If

= sum

= right

If right / sum < 1 Then

= "0" & (right / sum)

Else

= right / sum

End If

End Sub

Private Sub Form_Load()

sum = 0

right = 0

z = 0

End Sub