《Visual Bsic程序设计教程(第2版)》课后部分编程题参考答案.docVIP

第1章 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = 你单击了窗体 End Sub Private Sub Form_DblClick() Label1.Caption = 你双击了窗体 End Sub 3． 在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章 1～3题：按要求完成操作练习。 4． Private Sub Command1_Click() 最大化按钮 Form1.WindowState = 2 最大化 End Sub Private Sub Command2_Click() 还原按钮 Form1.WindowState = 0 还原 End Sub Private Sub Command3_Click() 最小化按钮 Form1.WindowState = 1 最小化 End Sub 5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。 Private Sub Command1_Click() Dim x As Single Dim y As Single x = Val(Text1.Text) y = Val(Text2.Text) Text3.Text = x * x + y * y End Sub 6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。 Private Sub Command1_Click() Dim x As String x = Left(Text1.Text, 1) + Right(Text1.Text, 1) Text2.Text = x End Sub 第3章 1．在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数)，以及一个命令按钮Command1。 Private Sub Command1_Click() n = Val(Text1.Text) Randomize x = Int(1 + n * Rnd) Label1.Caption = 第一个随机数 + Str(x) x = Int(1 + n * Rnd) Label2.Caption = 第二个随机数 + Str(x) x = Int(1 + n * Rnd) Label3.Caption = 第三个随机数 + Str(x) End Sub 2．在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及一个命令按钮Command1(“交换”)和Command2(“合并”)。 Private Sub Command1_Click() “交换” t = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = t End Sub Private Sub Command2_Click() “合并” t = Text1.Text + Text2.Text + Text3.Text Text4.Text = t End Sub 3. (1) Rnd * 9000 + 1000 (2) Str(x) (3) Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1) 4. Private Sub Command1_Click() 往左 Text1.Left = 0 End Sub Pri