第1章
1. 按要求设置窗体属性
2．在窗体上建立一个标签Label1。程序代码如下：
Private Sub Form_Click()
Label1.Caption = "你单击了窗体"
End Sub
Private Sub Form_DblClick()
Label1.Caption = "你双击了窗体"
End Sub
3． 在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。
Private Sub Command1_Click()
Dim x As Single
x = Val(Text1.Text)
Text2.Text = 15 * x
End Sub
第2章
1～3题：按要求完成操作练习。
4． Private Sub Command1_Click() '"最大化"按钮
Form1.WindowState = 2 '最大化
End Sub
Private Sub Command2_Click() '"还原"按钮
Form1.WindowState = 0 '还原
End Sub
Private Sub Command3_Click() '"最小化"按钮
Form1.WindowState = 1 '最小化
End Sub
5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。
Private Sub Command1_Click()
Dim x As Single
Dim y As Single
x = Val(Text1.Text)
y = Val(Text2.Text)
Text3.Text = x * x + y * y
End Sub
6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。
Private Sub Command1_Click()
Dim x As String
x = Left(Text1.Text, 1) + Right(Text1.Text, 1)
Text2.Text = x
End Sub
第3章
1．在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数)，以及一个命令按钮Command1。
Private Sub Command1_Click()
n = Val(Text1.Text)
Randomize
x = Int(1 + n * Rnd)
Label1.Caption = "第一个随机数" + Str(x)
x = Int(1 + n * Rnd)
Label2.Caption = "第二个随机数" + Str(x)
x = Int(1 + n * Rnd)
Label3.Caption = "第三个随机数" + Str(x)
End Sub
2．在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及一个命令按钮Command1(“交换”)和Command2(“合并”)。
Private Sub Command1_Click() '“交换”
t = Text1.Text
Text1.Text = Text2.Text
Text2.Text = Text3.Text
Text3.Text = t
End Sub
Private Sub Command2_Click() '“合并”
t = Text1.Text + Text2.Text + Text3.Text
Text4.Text = t
End Sub
3. (1) Rnd * 9000 + 1000 (2) Str(x) (3) Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1)
4. Private Sub Command1_Click() '往左
Text1.Left = 0
End Sub
Private Sub Command2_Click() '往右
Text1.Left = Form1.Width - Text1.Width
End Sub
Private Sub Command3_Click() '居中
Text1.Left = (Form1.Width - Text1.Width) / 2
End Sub
5. Private Sub Cmd1_Click()
Lab1.Visible = True
Lab1.Caption = "您已下达显示命令"
End Sub
Private Sub Form_Click()
Cmd1.Visible = True
End Sub
6. Private Sub Form_KeyPress(KeyAscii As Integer)
Show
Print "输入字符："; Chr(KeyAscii), "ASCII码为;"; KeyAscii
End Sub
Private Sub Form_DblClick()
Cls
End Sub
7. 产生这三个消息框的相应语句是：
产生第1个消息框：x = MsgBox("在这里显示提示信息", 4 + 0, "请确认")
产生第2个消息框：x = MsgBox("在这里显示" + Chr(13) + "提示信息",3 + 0,"请确认")
产生第3个消息框：x = MsgBox("在这里显示"+Chr(13)+"提示信息",2 + 16 + 0,"请确认")
第4章
1. 在窗体上建立两个文本框Text1(输入数)及Text2(显示结果)，一个命令按钮Command1(“判断”)。
Private Sub Command1_Click() '“判断”
x = Val(Text1.Text)
If x Mod 2 = 0 Then
Text2.Text = "偶数"
Else消息
Text2.Text = "奇数"
End If
End Sub
2．窗体上建立了一个文本框Text1，用于显示结果。
Private Sub Form_Load()
x = Val(InputBox("请输入星期几(0～6)"))
Select Case x
Case Is = 0
Text1.Text = "星期日(Sunday)"
Case Is = 1
Text1.Text = "星期一(Monday)"
Case Is = 2
Text1.Text = "星期二(Tuesday)"
Case Is = 3
Text1.Text = "星期三(Wednesday)"
Case Is = 4
Text1.Text = "星期四(Thursday)"
Case Is = 5
Text1.Text = "星期五(Friday)"
Case Is = 6
Text1.Text = "星期六(Saturday)"
Case Else
Text1.Text = "输入错误"
End Select
End Sub
3．窗体上建立了一个文本框Text1(“输入口令”)和一个命令按钮Command1(“检查”)。
Private Sub Command1_Click() '“检查”
x = Text1.Text
If x = "12345678" Then
basic语言程序设计 MsgBox ("欢迎你用机!")
Else
MsgBox ("对不起，口令错")
End If
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 8
Text1.PasswordChar = "*"
End Sub
4．窗体上建立了两个文本框Text1(输入字符串)及Text2(转换结果)，一个命令按钮Command1(“清除”)。
Private Sub Command1_Click() '“清除”
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论