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

1、自测 1程序代码Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 3End SubPrivate Sub Command2_Click() Label1.FontBold = TrueEnd SubPrivate Sub Command3_Click() Label1.FontUnderline = TrueEnd SubPrivate Sub Command4_Click() Label1.FontSize = 10 Label1.FontBold = False Label1.FontUnderline = F

2、alseEnd Sub初始窗口：已 Fo rmlc:J I 回天道酬勒I敢大1下画线加粗还原单机放大之后窗口：已 Fo rmlc:J I 回天道酬勤I敢大1下画线加粗还原单机下划线之后窗口：已 Fo rmlc:J 1 回道桢大二三二l加粗还原单击加粗之后窗口：已 Fo rmlc:J 1 回天道酬勤桢大下画线I加半且：I还原单击还原之后窗口：自测 2程序代码Private Sub Command1_Click() Label1 = visual basicText1 = 程序设计题End SubPrivate Sub Command2_Click() Text1 = visual basicLa

3、bel1 = 程序设计题End Sub初始窗口：Fo rml西厂1 1| Tex tl翌示交换单击显示之后窗口： 尪1l 斗b a s 1 ,:I 程序设计题翌示!I交换|西Fo rml单击交换之后的窗口：自测题 3Private Sub Command1_Click() Label1.FontSize = Label1.FontSize * (0.5) End SubPrivate Sub Command2_Click() Label1.Top = Label1.Top + 30 Label1.Width = Label1.Width + 20 Label1.Alignment = 1End

4、 Sub初始窗口：巴 Fo rmlc:J I 回标签的属性设置二向右下角移动单击缩小两倍之后的窗口：巴 Fo rmlc:J I 回标签的属性设置二向右下角移动单击向右下角移动之后的窗口：已 Fo rml= I 回标签的属性设置缩小两倍向右下角移动自测题 4程序代码Private Sub Command1_Click() Form1.Caption = VB 学习 Print 简单的 VB 程序设计End SubPrivate Sub Command2_Click() ClsEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Com

5、mand3_Click() EndEnd Sub初始化窗口：已 Fo rmlc:J I 回二三二二单击显示之后的窗口：曰 VB学习= I 回二三二二单击清除之后的窗口：曰 VB学习= I 回二二翌示1单击退出之后的窗口：七 工桯1 - M lc ros o 代 V l s u a I Ba5K I设计文（共B 菜云心 视日IYJ 工 程 凹 恬式 Q ) 调 试叨 迄订心 迕 浏()J) 司表0 工且田 外疫程序心 登口过9 弩劝吵言II 飞, - I 1.1 I i i, 酌 岭 11 liW j 吧 吝 癸 1 行 1 5 列 1 XA 阮L 工 这 已 区 廷凶凸口 _jP 6回国J 上

6、 二 l 立O D己 P妇 已窖回】= I工吞 工程1 三l匕 回 L O巳已叩胆 和 ml凶| For 嗣 l Fom.J芦 旺 I柱分类罕 1（名称）Fom lOOru.如 .“ a.13 - Cow p. I趴0 - So1, anr“1dthlEn让1. dTru.趴 1l Color . 叩 叩 田F,1lSt y1o l - 1 ansp 釭 ， Font宋体Font,r msp 釭 QnlrT u oF o 式 ol ro.印叩- “”“1$ 8 了凶 ，。比凡 e繇孚对组的田胚栏中或图标下自测题 5程序代码Private Sub Command1_Click() Text1.T

7、ext = Text2.Text = End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text) End SubPrivate Sub Command3_Click() EndEnd Sub初始化窗口：加 数 一加 数 二厂广结果二二二单击运算之后窗口：已 Fo rmlc:J I 回加 数 一11二加 数 二结果厂厂二三 二已 Fo rmlc:J I 回已 Fo rmlc:J I 回单击清除之后的窗口：加 数 一二加 数 二厂广二结果二单击退出之后的窗口：自测练习 1Private Sub

8、Command1_Click()Dim a$a = Text1.Text Label1.Caption = Left(a, 2) End SubPrivate Sub Command2_Click() a = Text1.Text Label2.Caption = Right(a, 2) End SubPrivate Sub Command3_Click()Text1.Text = Label1.Caption & Label2.Caption End Sub.|初始窗口界面已 Fo rmlc:J I 回三输入字符串已 Fo rmlc:J I 回w|o皿 1三截取前两个字符已 Fo rml=

9、1 回|wo 皿 1WO三截取后两个字符已 Fo rmlc:J I 回woa1n1n1WO三字符串连接已 Fo rml= 1 回l。一儿wn1WO三自测练习 2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349e = a Mod 10 个位d = (a 10) Mod 10 十位c = (a 100) Mod 10 百位b = a 1000 千位i = (e + 7) Mod 10个位h = (d + 7) Mod 10 十位g = (c + 7) Mod 10 百位f = (b

10、 + 7) Mod 10 千位j = ii = f 交换后的个位f = j 交换后的千位k = hh = g 交换后的十位g = k 交换后的百位l = f * 1000 + g * 100 + h * 10 + i Text1.Visible = FalsePrint 加密前的 4 位整数是 7439; (Chr(10); 加密后的结果是; lEnd Sub初始界面已 Fo rmlc:J I 回|单击窗体运行后的界面已 Fo rmlc:J 1 回加 密前的4位整数是7439 加密后的结果是 6104自测练习 1Private Sub Form_Click() Dim a%, b%, c%,

11、d%, e%, f!a = Val(InputBox(输入第一个数, 输入一个数, 8) b = Val(InputBox(输入第一个数, 输入一个数, 7) c = a + bd = a - b e = a * b f = a / bf = Fix(f * 100 + 0.5) / 100MsgBox x+y= & c & Chr(10) & x-y= & d & Chr(10) & x*y= & e & Chr(10) & x/y= & f, , 输出的结果End Sub自测练习 2Private Sub Form_Click() Dim a%, b%, c%, d%, e%, f!a =

12、 Val(InputBox(输入第一个数的值) b = Val(InputBox(输入第二个数的值) c = Val(InputBox(输入第三个数的值) d = Val(InputBox(输入第四个数的值) e = a + b + c + df = e / 4Print 和 =; e Print 平均值=; f End Sub自测练习 3Private Sub Form_Click() Dim h%, f%, x%, y%h = Val(InputBox(输入总头数) f = Val(InputBox(输入总脚数) x = (4 * h - f) / 2y = (f - 2 * h) / 2

13、Print 笼中鸡的头数为; x; 只 Print 笼中兔的头数为; y; 只End Sub自测练习 1：Private Sub Form_Click() Dim a%, b%, c%a = Val(InputBox(请输入第一条边, 边长) b = Val(InputBox(请输入第二条边, 边长) c = Val(InputBox(请输入第三条边, 边长)If a + b c And a + c b And b + c a ThenIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b = c * c = a * a ThenP

14、rint 直角ElseIf a = b And b = c Then Print 等边三角形ElseIf a = b Or a = c Or b = c Then Print 等腰三角形ElsePrint 一般三角形 End IfElsePrint 不是三角形 End IfEnd Sub不是三角形运行结果： 初始窗口：输入三条边：运行结果：3Ar-自测练习1工程1不是玉 形二三二l直角三角形运行结果：边长|诸鞘入第条边至边长|诸鞘入第二条边至边长|诸鞘入第三条边至自测结习1工程15该三角形是直角三角形二三二等边三角形运行结果如下：边长|诸鞘入第条边至边长|诸鞘入第二条边至边长|诸鞘入第三条边至

15、11自 测 结习 1 工 程1臣角形是等边三角形巨等腰三角形：边长|2诸鞘入第条边至边长|诸鞘入第二条边至21边长|诸鞘入第三条边至31自 测 结习 1 工 程1卢许忐诲腰三角形巨一般三角形边长|3诸鞘入第条边至边长|诸鞘入第二条边至71边长|诸鞘入第三条边至叫自 测 结习 1 工 程1芦角形是 形巨自测练习 2：Private Sub Form_Click() Dim a%, b!a = Val(InputBox(请输入)If a Mod 2 = 0 And a Mod 3 = 0 And a Mod 5 = 0 Then b = Sqr(a)Print a, b ElseEnd End I

16、fEnd Sub初始化窗口：输入一个数：运行结果：自测练习 3Private Sub Command1_Click() Dim a%, b%a = Val(Text1.Text) Select Case a 0 Case a = 20 And a = 50 And a = 1c = Chr(a Mod 10 + 48) & c a = a 10Wend Text2.Text = c End SubPrivate Sub Command1_Click()Dim a As Integera = Val(Text1.Text) Call itostr(a)End Sub运行初始界面：已 Fo rml

17、巨叶回I483转换|运行结果界面：已 Fo rml| = | 回I483.:.转换ll483验证其他数字：自测练习 2：Public Function area(n) As Double Dim c#, d#, e#, s#n = Val(Text2.Text) c = (1 - 0) / n While e a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd If Next jNext iFor i = 1 To 5 Print a(i); ; Next iFor i = 1 To 5If Y Combo1.ListCount - 1 Then Combo

18、1.AddItem Combo1.TextEnd If End SubPrivate Sub Command2_Click() If Combo1.ListIndex -1 ThenCombo1.RemoveItem Combo1.ListIndex For i = 0 To Combo1.ListCount - 1If Combo1.List(i) = Combo1.Text Then Combo1.RemoveItem iEnd If Exit For Next i End IfEnd SubPrivate Sub Command3_Click() Combo1.ClearEnd Sub运

19、行初始界面:己 组台 框的使用c:J I 回1mm添加amer1 can 吐 u ne 廷en斗1sh foj l 却h1JX1i tJ _1 江seol tl 釭 d zh 釭 郘 U.B删粽.有院己 组台框的使用c:i I 回1mm添加amer1 can吐u ne 廷垒B删粽尸有院己 组合框的 使用l = I 回 I添加|amer1 can.吐u ne 廷 en斗1shB Ifoj l 却删粽h1JX1,.i tJ _1 江seol tl 釭 dzh 釭 郘 U有院|ll有院|添加删粽l = I 回 I己 组台框的使用自测练习 7：Private Sub Command1_Click()

20、Timer1.Interval = 1 Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load() lbltemp1.FontSize = 20lbltishi.FontSize = 20Label1.FontSize = 20Label2.FontSize = 20End SubPrivate Sub Timer1_Timer()VSbwd.Value = VSbwd.Value + 10 lbltem = VSbwd.ValueIf VSbwd = 100 Then lbltishi = 水开了 Timer1.Enabled = False En

21、d IfEnd Sub运行初始界面：水温：二l开抬加执I兰水温：100水开了,.开抬加热0.:.J,.运行结果：1 0-%，自测练习 1：Private Sub myhelp_Click() frmAbout.ShowEnd SubPrivate Sub mymenu1_Click() Text1.Text = 百货大楼End SubPrivate Sub mymenu2_Click() Text1.Text = 利客隆End SubPrivate Sub mymenu3_Click() Text1.Text = 稻香村End Sub运行初始界面：F o m l1I 面销告业态蒂助己回卤运行结果界面：一销告业态蒂助百货大楼F o m l1I 面销告业态蒂助利客隆声因，F o m lI iiikj己罕销告业态蒂助稻香村自测练习 2：Private Sub Dis_Click() Text1.Text = 菜单程序设计 Text1.FontSize = 20 Text1.FontName = 黑 体 End SubPrivate Sub Hid_Click() Text1.Visible = False End Sub运行初始界面：3 菜单程序设计| | 回 I操 作3菜 单程序设计| 匡已忑三i操 作菜单程序设计运行结果界面：I