6.在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮 Commandl Private Sub Command1 Click Dim x As string x=Left(TextI Text, 1)+ Right (Textl Text, 1) End Sub 第3章《编程及上机调试》 1.在窗体上建立一个文本框 TextI(输λn值)、三个标签 Labell(第一个随机数)、 Label2(第二个随机 数)和 Label3(第三个随机数),以及一个命令按钮 Commandl Private Sub Command1 Click n= Val(Textl. Text) Randomize Int(l+ n* Rnd) Labell. Caption="第一个随机数”+Str(x) x=Int(l +n *k Rnd) abe2. Caption="第二个随机数"+Str(x) Label3. Caption="第三个随机数”+Str(x) nd Sub 2.在窗体上建立了四个文本框 TextI、Text2、Text3和Text4,以及两个命令按钮 Command1(“交换”) (“合并”)。 Private Sub Command1 Click t Text text TextI. Text Text2 Text Text2 Text Text3 Text Text3 Text = t End Sub Private Sub Command2 Click “合并 t Text. Text Text2. Text Text3. Text Text4 Text =t 3.(1)Rnd*9000+1000(2)Str(x)(3)Mid(s,3,1)+Mid(s,2,1)+Left(s,1) 4. Private Sub Cmd1 click b1. Caption="您已下达显示命令 End Sub Private Sub Form Click md l visible true End Sub 5. Private Sub Form KeyPress KeyAscii As Integer) Print"输入字符:";Chr( KeyAscii)," ASCII码为;"; KeyAscii End sub Private Sub Form DblClick End sub 6.产生这三个消息框的相应语句是: 产生第1个消息框:x= MsgBox("在这里显示提示信息",4+0,"请确认") 产生第2个消息框:x= MsgBox("在这里显示″+Chr(13)+“提示信息",3+0,″请确认") 产生第3个消息框:x= MsgBox("在这里显示"tChr(13)+"提示信息",2+16+0,"请确认") 第4章《编程及上机调试 1.在窗体上建立两个文本框 TextI(输入数)及Text2(显示结果),一个命令按钮 Commandl(“判断”)。 22 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 Cmd1_Click() Lab1.Visible = True Lab1.Caption = "您已下达显示命令" End Sub Private Sub Form_Click() Cmd1.Visible = True End Sub 5. Private Sub Form_KeyPress(KeyAscii As Integer) Show Print "输入字符："; Chr(KeyAscii), "ASCII 码为;"; KeyAscii End Sub Private Sub Form_DblClick() Cls End Sub 6. 产生这三个消息框的相应语句是： 产生第 1 个消息框：x = MsgBox("在这里显示提示信息", 4 + 0, "请确认") 产生第 2 个消息框：x = MsgBox("在这里显示" + Chr(13) + "提示信息",3 + 0,"请确认") 产生第 3 个消息框：x = MsgBox("在这里显示"+Chr(13)+"提示信息",2 + 16 + 0,"请确认") 第 4 章《编程及上机调试》 1. 在窗体上建立两个文本框 Text1(输入数)及 Text2(显示结果)，一个命令按钮 Command1(“判断”)