VB程序设计指导实验指导与习题解答上机答案
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
自测1
程序代码
Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 3
End Sub
Private Sub Command2_Click() Label1.FontBold = True
End Sub
Private Sub Command3_Click() Label1.FontUnderline = True
End Sub
Private Sub Command4_Click() Label1.FontSize = 10
Label1.FontBold = False
Label1.FontUnderline = False
End Sub
初始窗口：
单机放大之后窗口：
单机下划线之后窗口：
单击加粗之后窗口：
单击还原之后窗口：
自测2
程序代码
Private Sub Command1_Click() Label1 = "visual basic"
Text1 = "程序设计题"
End Sub
Private Sub Command2_Click() Text1 = "visual basic"
Label1 = "程序设计题"
End Sub
初始窗口：
单击显示之后窗口：
单击交换之后的窗口：
自测题3
Private Sub Command1_Click()
Label1.FontSize = Label1.FontSize * (0.5) End Sub
Private Sub Command2_Click()
Label1.Top = Label1.Top + 30
Label1.Width = Label1.Width + 20
Label1.Alignment = 1
End Sub
初始窗口：
单击缩小两倍之后的窗口：
单击向右下角移动之后的窗口：
自测题4
程序代码
Private Sub Command1_Click() Form1.Caption = "VB学习" Print "简单的VB程序设计"
End Sub
Private Sub Command2_Click() Cls
End Sub
Private Sub Command3_Click() End
End Sub
Private Sub Command3_Click() End
End Sub
初始化窗口：
单击显示之后的窗口：
单击清除之后的窗口：
单击退出之后的窗口：
自测题5
程序代码
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub
Private Sub Command3_Click()
End
End Sub
初始化窗口：
单击运算之后窗口：
单击清除之后的窗口：
单击退出之后的窗口：
自测练习1
Private Sub Command1_Click() Dim a$
a = Text1.Text
Label1.Caption = Left(a, 2) End Sub
Private Sub Command2_Click() a = Text1.Text
Label2.Caption = Right(a, 2) End Sub
Private Sub Command3_Click()
Text1.Text = Label1.Caption & Label2.Caption End Sub
初始窗口界面
输入字符串
截取前两个字符
截取后两个字符
字符串连接
自测练习2
Private Sub Form_Click()
Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349
e = a Mod 10 '个位
d = (a \ 10) Mod 10 '十位
c = (a \ 100) Mo
d 10 '百位
b = a \ 1000 '千位
i = (e + 7) Mod 10 '个位
h = (d + 7) Mod 10 '十位
g = (c + 7) Mod 10 '百位
f = (b + 7) Mod 10 '千位
j = i
i = f '交换后的个位
f = j '交换后的千位
k = h
h = g '交换后的十位
g = k '交换后的百位
l = f * 1000 + g * 100 + h * 10 + i
Text1.Visible = False
Print "加密前的4位整数是7439"; (Chr(10)); "加密后的结果是"; l
End Sub
初始界面
单击窗体运行后的界面