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

实验A VB环境和可视化编程基础 1 Private Sub Command1_Click() Label3 = Text1 End Sub 2． Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() 手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Command2_Click() 自动 Timer1.Interval = 200 End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50, Label1.Top If Label1.Left 0 Then Label1.Left = Form1.Width End Sub 3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub 5 Sub Command1_Click() Text1.FontName = 隶书 Text1.FontSize = 25 End Sub Sub Command2_Click() Text2.Text = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub 实验B：顺序结构 ①目的 掌握常用函数的用法以及顺序结构程序的编制； 掌握关系表达式和逻辑表达式的用法； 掌握选择结构的基本用法。 ②内容 教材中P263 实验 4、5、6、7、8 程序代码： 实验4 Private Sub Command1_Click() Text2 = UCase(Text1.Text) Print 长度; Len(Text1.Text) End Sub Private Sub Form_Load() Text1.Text = Text2.Text = End Sub 实验5 Private Sub Command1_Click() Randomize Text1 = Int(Rnd * 901 + 100) End Sub Private Sub Command2_Click() Dim x%, x1%, x2%, x3% x = Val(Text1) x1 = x Mod 10 x2 = (x Mod 100) \ 10 x3 = x \ 100 Label1 = x1 * 100 + x2 * 10 + x3 End Sub 实验 6 Private Sub Form_Load() Label1 = Left(Text1, 11) Label2 = Mid(Text1, 12, 6) Label3 = Right(Text1, 5) End Sub 实验 7 Private Sub Command1_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() Cls End Sub 另一种 Private Sub Command1_Click() Print For i = 1 To 5 Print Tab(15 - i * 2); String(2 * i - 1, ★); String(11 - 2 * i, ☆); String(2 * i - 1, ★) Next i End Sub Private Sub Command2_Click() Cls End Sub 实验 8 Private Sub Form_Click() Dim a As Single a = InputBox(请输入一个正实数) Print a 的平方是; Int(a * a * 1000 + 0.5) / 1000; Print a 的平方根是; Int(Sqr(a) * 1000 +