VB程序设计教程实验指导与习题解答上机答案.docxVIP

自测 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 初始窗口： 已 已 Fo rml c::::J ·I 回 天道酬勒 I 敢大 1 下画线加粗 还原 单机放大之后窗口： 已 已 Fo rml c::::J ·I 回 天道酬勤 I 敢大 1 下画线加粗 还原 单机下划线之后窗口： 已 已 Fo rml c::::J ·1 回 道桢大 二三二l 道 加粗 还原 单击加粗之后窗口： 已 已 Fo rml c::::J ·1 回 天道酬勤 桢大 下画线 I 加半且 ：I 还原 单击还原之后窗口： 自测 2 程序代码 Private Sub Command1_Click() Label1 = visual basic Text1 = 程序设计题 End Sub Private Sub Command2_Click() Text1 = visual basic Label1 = 程序设计题 End Sub 初始窗口： Fo rml 西｝ 厂1 1 | Tex tl 翌示 交换 单击显示之后窗口： 「尪1l 斗 b a s 1 ,:: I 程序设计题 ．．．．． 翌示 ．．．．． !I 交换 | 西｝ Fo rml 单击交换之后的窗口： 自测题 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 初始窗口： 巴 巴 Fo rml c::::J ·I 回 标签的属性设置 二 向右下角移动 单击缩小两倍之后的窗口： 巴 巴 Fo rml c::::J ·I 回 标签的属性设置 二 向右下角移动 单击向右下角移动之后的窗口： 已 已 Fo rml = I 回 标签的属性设置 缩小两倍 向右下角移动 自测题 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 初始化窗口： 已 已 Fo rml c:::::J I 回 二三」二 二 单击显示之后的窗口： 曰 曰 VB学习 = I 回 二三」二二 单击清除之后的窗口： 曰 曰 VB学习 = I 回 二 二 二 二 1 单击退出之后的窗口： 七 工桯 B IYJ 0 9 言II＄ 飞, - I 1.1 I i i,, 酌 岭 1 1 ? ■ liW [j 吧 吝 癸 1 言 A 阮 L 工 这 已 L 工 这 已 区 廷凶凸 回国 O D 己 P 妇 ～ 已窖 回】  = I? ＿ 三l 匕 回 L O 已叩＼ 已叩＼ I nr“1 釭 ， .印叩- “”“1 $ 』 ，e  自测题 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 初始化窗口： 加 数 一 加 数 二 厂—广 结果 二 二二 单击运算之后窗口： 已 已 Fo rml c:::::J I 回 加 数 一 11 二 加 数 二