代码

计算圆周长
Private Sub Command1_Click()
Cls
Dim r As Single, l As Double, s As Double
Const pi As Single = 3.1415926
r = Val(Text1.Text)
l = 2 * pi * r
s = pi * r * r
Print "在窗体上输出结果"
Print "圆周长：" & l
Print "圆面积：" & s
Label2.Caption = "在标签中输出结果" & Chr(13)
Label2.Caption = Label2.Caption & "圆周长：" & l & Chr(13)
Label2.Caption = Label2.Caption & "圆面积：" & s
End Sub
Private Sub Form_Load()
End Sub


任意三个数的最大值 包括输入框消息框
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim maxpos As String
a = Val(InputBox("请输入a", "输入框练习"))
b = Val(InputBox("请输入b", "输入框练习"))
c = Val(InputBox("请输入c", "输入框练习"))
If a > b Then
Max = a: maxpos = "一"
Else
Max = b: maxpos = "二"
End If
If c > Max Then
Max = c: maxpos = "三"
End If
Dim str As String
str = "三个数是" & a & "、" & b & "、" & c & Chr(13)
str = str & "最大数是第" & maxpos & "个：" & Max
temp = MsgBox(str, , "实验4-2")
End Sub
Private Sub Form_Load()
End Sub

与实验1类似 确定直接改为重输
Private Sub Command1_Click()
     Text1.Text = ""
     Text1.SetFocus
     Command2.Enabled = False
     Label2.Caption = ""
     Label2.Visible = False
End Sub
Private Sub Command2_Click()
If Command2.Caption = "确定" Then
     Label2.Visible = True
     If Text1.Text = "123456" Then
         Label2.ForeColor = vbBlue
         Label2.Caption = "欢迎进入应用程序！"
         Command2.Caption = "退出"
     Else
         Label2.ForeColor = vbRed
         Label2.Caption = "密码错误！"
         Command2.Caption = "重输"
         Text1.Enabled = False
     End If
ElseIf Command2.Caption = "重输" Then
     Text1.Text = ""
     Text1.Enabled = True
     Text1.SetFocus
     Command2.Enabled = False
     Command2.Caption = "确定"
     Label2.Caption = ""
     Label2.Visible = False
Else
     End
End If
End Sub
Private Sub Form_Load()
     Label2.Visible = False
     Command2.Enabled = False
End Sub
Private Sub Text1_Change()
     Command2.Enabled = True
End Sub


Option Explicit
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub
Private Sub Option1_Click()
Text1.FontName = "宋体"
End Sub
Private Sub Option2_Click()
Text1.FontName = "楷体_GB2312"
End Sub
Private Sub Option3_Click()
Text1.FontName = "仿宋_GB2312"
End Sub
Private Sub Option4_Click()
Text1.FontName = "黑体"
End Sub
Private Sub Option5_Click()
Text1.ForeColor = vbBlack
End Sub
Private Sub Option6_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub Option7_Click()
Text1.ForeColor = vbGreen
End Sub
Private Sub Option8_Click()
Text1.ForeColor = vbBlue
End Sub


以上为单选框与复选框

SELECT 语句
Option Explicit
Private Sub Command1_Click()
Dim x As Integer, y As Single
x = Val(InputBox("输入x="))
Select Case x
Case Is > 3
y = x + 3
Case Is > 0
y = Sqr(x)
Case Else
y = x ^ 2 - 1
End Select
Print "x="; x, "y="; y
End Sub


Private Sub Command1_Click()
Cls
Dim a As Integer
    a = Val(InputBox("请输入成绩"))
    Select Case a
     Case Is > 90
         Print "您的成绩是"; a; "分"; Chr(13); "评语：优秀"
     Case Is > 80
         Print "您的成绩是"; a; "分"; Chr(13); "评语：良好"
     Case Is > 70
         Print "您的成绩是"; a; "分"; Chr(13); "评语：中等"
     Case Is > 60
         Print "您的成绩是"; a; "分"; Chr(13); "评语：及格"
     Case Else
         Print "您的成绩是"; a; "分"; Chr(13); "评语：不及格"
End Select
End Sub
Private Sub Form_Load()
End Sub


猜数游戏
Private Sub Text1_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
         times = times + 1
         If Val(Text1) > guess Then
             MsgBox "太大"
         ElseIf Val(Text1) < guess Then
             MsgBox "太小"
         Else
             MsgBox "正确"
             If times < 4 Then
                 Label2 = "你好厉害噢！再来一次试试看"
             Else
                 Label2 = "算你运气好！再来一次试试看"
             End If
             Command1.Enabled = True
             Text1.Enabled = False
             Exit Sub
         End If
         Text1 = ""
         If times = 10 Then
             Command1.Enabled = True
             Text1.Enabled = False
             Label2 = "真笨！再来一次试试看"
         End If
     End If
End Sub


Option Explicit
Private Sub Form_Load()
Label1.Left = (Form1.Width - Label1.Width) / 2
End Sub
Private Sub Timer1_Timer()
Label2.Left = Label2.Left + 300
If Label2.Left >= Form1.Width Then
Label2.Left = -Label2.Width
End If
End Sub
Private Sub Timer2_Timer()
Label1.FontSize = Label1.FontSize + 5
Label1.Left = (Form1.Width - Label1.Width) / 2
Label1.Top = Label1.Top + 50
If Label1.FontSize >= 60 Then
Timer2.Enabled = False
End If
End Sub

以上为滚动字幕 要用到TIMER

闪动颜色字条
Private Sub Timer1_Timer()
Static flag As Integer
If flag = 0 Then
Label1.ForeColor = vbBlue
flag = 1
Else
Label1.ForeColor = vbRed
flag = 0
End If
End Sub

Option Explicit
Private Sub Check1_Click()
   If Check1.Value = 1 Then
     Text1.Enabled = True
     Text1.SetFocus
   Else
     Text1.Text = ""
     Text1.Enabled = False
  
   End If
End Sub
Private Sub Check2_Click()
If Check1.Value = 1 Then
     Text2.Enabled = True
     Text2.SetFocus
   Else
     Text2.Text = ""
     Text2.Enabled = False
   End If
End Sub
Private Sub Check3_Click()
If Check1.Value = 1 Then
     Text3.Enabled = True
     Text3.SetFocus
   Else
     Text3.Text = ""
     Text3.Enabled = False
   End If
End Sub
Private Sub Check4_Click()
If Check1.Value = 1 Then
     Text4.Enabled = True
     Text4.SetFocus
   Else
     Text4.Text = ""
     Text4.Enabled = False
   End If
End Sub
Private Sub Command1_Click()
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Option1.Value = True
Command2.Enabled = False
Command1.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub
Private Sub Command2_Click()
Dim sum As Single
Dim strEat As String
sum = 0
If Check1.Value = 1 Then sum = sum + 20 * Val(Text1)
If Check2.Value = 1 Then sum = sum + 15 * Val(Text2)
If Check3.Value = 1 Then sum = sum + 10 * Val(Text3)
If Check4.Value = 1 Then sum = sum + 9 * Val(Text4)
If sum > 0 And Option2.Value = True Then
sum = sum + 20
End If
strEat = ""
If Check1.Value = 1 Then strEat = "卤肉饭" + Text1 + "份" + Chr(13)
If Check2.Value = 1 Then strEat = strEat + "鸡腿饭" + Text2 + "份" + Chr(13)
If Check3.Value = 1 Then strEat = strEat + "排骨饭" + Text3 + "份" + Chr(13)
If Check4.Value = 1 Then strEat = strEat + "美饿美特餐" + Text4 + "份" + Chr(13)
If Option1.Value = True Then strEat = strEat + "(自取)"
If Option2.Value = True Then strEat = strEat + "(外送)"
strEat = strEat + "共计" + Str(sum) + "元"
MsgBox strEat, , "账单"
Command2.Enabled = False
Command1.Enabled = True
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub

Option Explicit
Dim a(4, 4) As Integer
Dim i As Integer, j As Integer
Private Sub Command1_Click() '求对角线和
     Dim sr As Integer, sl As Integer
     For i = 1 To 4
         sr = a(i, i) + sr
         sl = a(i, 5 - i) + sl
     Next i
     Print
     Print "右下对角线和="; sr
     Print "左下对角线和="; sl
End Sub
Private Sub Command2_Click() '找最大数
     Dim max As Integer
     Dim posi As Integer, posj As Integer
     max = a(1, 1): posi = 1: posj = 1
     For i = 1 To 4
         For j = 1 To 4
             If a(i, j) > max Then max = a(i, j): posi = i: posj = j
         Next j
     Next i
     Print
     Print "最大数="; max
     Print "在第"; posi; "行，第"; posj; "列"
End Sub
Private Sub Command3_Click() '求行平均值并重排数组
     Dim ave(4) As Single
     Dim temp As Single
     Dim k As Integer
     For i = 1 To 4
         ave(i) = 0
         For j = 1 To 4
             ave(i) = ave(i) + a(i, j)
         Next j
         ave(i) = ave(i) / 4
     Next i
     Print
     Print "各行平均"
     Print "第一列 第二列 第三列 第四列 平均"
     For i = 1 To 4
         For j = 1 To 4
             Print Tab((j - 1) * 7); a(i, j);
         Next j
         Print Tab(28); ave(i)
     Next i
     For i = 1 To 3
         For j = i + 1 To 4
             If ave(i) < ave(j) Then
                 temp = ave(i): ave(i) = ave(j): ave(j) = temp
                 For k = 1 To 4
                     temp = a(i, k): a(i, k) = a(j, k): a(j, k) = temp


                 Next k
             End If
         Next j
     Next i
     Print
     Print "按行平均排序"
     Print "第一列 第二列 第三列 第四列 平均"
     For i = 1 To 4
         For j = 1 To 4
             Print Tab((j - 1) * 7); a(i, j);
         Next j
         Print Tab(28); ave(i)
     Next i
End Sub
Private Sub Command4_Click()
     Dim temp As Integer
     For i = 1 To 4
         For j = i + 1 To 4
             temp = a(i, j): a(i, j) = a(j, i): a(j, i) = temp
         Next j
     Next i
     Print
     Print "对二维数组转置"
     Print "第一列 第二列 第三列 第四列"
     For i = 1 To 4
         For j = 1 To 4
             Print Tab((j - 1) * 7); a(i, j);
         Next j
     Next i
End Sub
Private Sub Form_Activate() '产生二维数组原始数据
     Randomize
     For i = 1 To 4
         For j = 1 To 4
             a(i, j) = Int(Rnd * 100)
         Next j
     Next i
     Print "原始数据"
     Print "第一列 第二列 第三列 第四列"
     For i = 1 To 4
         For j = 1 To 4
             Print Tab((j - 1) * 7); a(i, j);
         Next j
         Print
     Next i
End Sub