衡水学院计算机专业 vb代码

(5.14)行李
Private Sub Command1_Click()
x = Text1.Text
If x > 50 Then
y = (x - 50) * 0.5 + 50 * 0.25
Else
y = x * 0.25
If x > 100 Then
y = (x - 100) * 0.45 + (x - 50) * 0.5 + 50 * 0.25
End If
End If
Text2.Text = y
End Sub
(5.17)大小写转换
Dim c As String, n As Integer
Private Sub Command1_Click()
c = ""
Text1.Text = ""
End Sub
Private Sub Command2_Click()
Text1.Text = c
Text1.SelStart = n
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 65 And KeyAscii <= 90 Then c = c & Chr(KeyAscii + 32)
ElseIf KeyAscii >= 97 And KeyAscii <= 122 Then
c = c & Chr(KeyAscii - 32)
ElseIf KeyAscii = 32 Then
c = c & " "
Else
c = c & "*"
End If
n = n + 1
End Sub
(5.21)倒计时
Dim x As Integer
Private Sub Command1_Click()
x = Val(Text1.Text) Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If x > 0 Then
x = x - 1
Text1.Text = Str(x)
Else
Timer1.Enabled = False
End If
End Sub
(6.20)100个不能被3整除的数Dim x As Integer
Private Sub Command1_Click() x = Val(Text1.Text)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If x > 0 Then
x = x - 1
Text1.Text = Str(x)
Else
Timer1.Enabled = False
End If
End Sub
（6.25）九九表
Private Sub Command1_Click() Show
Print
Print Tab(22); "九九乘法表" Print
Print "*"
For i = 1 To 9
Print Tab(5 * i + 1); i;
Next i
Print
For i = 1 To 9
Print i;
For j = 1 To i
Print Tab(5 * j + 1); i * j;
Next j
Print
Next i
End Sub
(6.27)1000~1100素数
Dim i As Integer
Private Sub Command1_Click() For i = 1000 To 1100
If i Mod 2 <> 0 Then
Text1.Text = Text1.Text & Str(i) End If
Next i
End Sub
（6.29）三角
Private Sub Command1_Click() Cls
Show
Print
Print
Print
For i = 1 To 5
For j = 1 To i + 1
Print " ";
Next j
For j = 1 To 11 - 2 * i
Print "*";
Next j
For k = 1 To 2
Print " ";
Next k
For p = 1 To 2 * i - 1
Print "*";
Next p
Print
Next i
End Sub。