VB程序设计实课后习题代码.docxVIP

实验A VB环境和可视化编程基础 1 Private Sub Commandl_Click() Label3 = Textl End Sub 2. Private Sub Form_Load() Timerl.Interval = 0 End Sub Private Sub Commandl_Click()，手动 Timerl.Interval = 0 Call MyMove End Sub Private Sub Command2_Click() * 自动 Timerl.Interval = 200 End Sub Private Sub Timerl_Timer() Call MyMove End Sub Sub MyMove() Labell.Move Labell.Left ? 50, Labell.Top If Labell.Left 0 Then Labell.Left = Forml.Width End Sub 3 Private Sub Form_Click() Textl = Val(Textl) + 1 End Sub Private Sub Forin_Load() Textl = 0 End Sub 5 Sub Command l_Click() Textl.FontName =隶书 Textl.FontSize = 25 End Sub Sub Command2_Click() Text2.Text = Textl.SelText Text2.FontName = Textl.FontName Text2.FontSize = Textl.FontSize End Sub 实验B：顺序结构 目的 掌握常用函数的用法以及顺序结构程序的编制； 掌握关系表达式和逻辑表达式的用法； 掌握选择结构的基本用法。 内容 教材中P263实验4、5、6、7、8 程序代码： 实验4 Private Sub Commandl_Click() Text2 = UCase (Textl.Text) Print 〃长度〃；Len(Textl. Text) End Sub Private Sub Form_Load() Textl.Text = Text2. Text = End Sub 实验5 Private Sub Commandl_Click() Randomize Textl 二 Int(Rnd * 901 + 100) End Sub Private Sub Command2_Click() Dim x%, xl%, x2%, x3% x = Vai(Textl) xl 二 x Mod 10 x2 = (x Mod 100) \ 10 x3 = x \ 100 Label1 二 xl * 100 + x2 * 10 + x3 End Sub 实验6 Private Sub Form_Load() Label1 = Left (Textl, 11) Label2 = Mid(Textl, 12, 6) Labe13 = Right(Textl, 5) End Sub 实验7 Private Sub Commandl_Click() Print For i = 1 To 5 Print Tab(15 - i * 2) ; String(2 * i - 1, 〃★〃)； Spc(18 - 4 * (i - 1)); String(2 * i - 1, 〃★“) Next i End Sub Private Sub Command2 Click() Cis End Sub 另一种 Private Sub Command1_C1ick () Print For i = 1 To 5 Print Tab(15 - i * 2) ; String(2 * i - 1, 〃★‘)； String(ll - 2 * i, 〃☆“)； String(2 * i - 1, 〃 Next i End Sub Private Sub Command2_Click() Cis End Sub 实验8 Private Sub FormClick() Dim a As Single a = lnputBox(/，请输入一个正实数〃) Print 的平方是〃；Int(a * a * 1000 + 0. 5) / 1000; Print z，a 的平方根是〃;Int (Sqr (a) * 1000 + 0. 5) / 1000; Print 的立方是〃；Tnt(a * a * a * 1000 + 0.5) / 1000; Print z，a 的立方根是〃；Int (a 八(1 / 3) * 1000 + 0.5) / 1000 End Sub 实验三：