3. ABCF 三、填空题 1.$000,124 2. Labell Caption=akb= 3. Height, Width 5. Text1. set Focus 6. Multiline, Scroll Bars, 2 7.编程技术,程序设计 8. Private Sub Text2 Change o 当文本框Text2中的文本内容发生变动时,执行该事件过程 Labell Caption=Textl Text 把文本框 TextI中的文本内容作为标签 Labell的标题 End sub Private Sub Textl Got Focus o 当文本框 TextI获得焦点时,执行该事件过程 TextI Selstart =0 选定文本框 TextI中的所有文本内容 Textl. SelLength=Len(Textl. Text) End sub 编程及上机调试 1.在窗体上建立一个文本框 TextI(输入n值)、三个标签 Label1(第一个随机数)、 Label2(第二个随机 数)和 Label3(第三个随机数),以及一个命令按钮 Command l Private Sub Commandl Click Randomize x= Int(l + n Rnd) Labell. Caption="第一个随机数”+Str(x) Label2. Caption="第二个随机数”+Str(x) x= Int(1 + n *Rnd abe3. Caption="第三个随机数"+Str(x) End sub 2.在窗体上建立了四个文本框Text1、Text2、Text3和Text4,以及一个命令按钮 Commandl(“交换”) 和 Command2(“合并”)。 Private Sub Commandl 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 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 Commandl Click O 往左 Text. Left=0 End sub Private Sub Command2 Click o 往右 Textl Left Forml Width Textl Width Private Sub Command3 Click TextI Left =(Forml Width- Textl Width)/2 End sub Private sub Cmd I Labl Caption := 下达显示命令 End sub Private Sub Form Click O Cmdl Visible lrue 6. Private Sub Form KeyPress(KeyAscii As Integer) Show3 1．AC 2．AC 3．ABCF 三、填空题 1. $000,124 2．Label1.Caption="a*b=" 3．Height，Width 4．2 5．Text1.SetFocus 6．Multiline, ScrollBars, 2 7．编程技术，程序设计 8．Private Sub Text2_Change() ´当文本框 Text2 中的文本内容发生变动时，执行该事件过程 Label1.Caption=Text1.Text ´把文本框 Text1 中的文本内容作为标签 Label1 的标题 End Sub Private Sub Text1_GotFocus() ´当文本框 Text1 获得焦点时，执行该事件过程 Text1.SelStart = 0 ´选定文本框 Text1 中的所有文本内容 Text1.SelLength=Len(Text1.Text) End Sub 编程及上机调试 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 Private Sub Command2_Click() '往右 Text1.Left = Form1.Width - Text1.Width End Sub Private Sub Command3_Click() '居中 Text1.Left = (Form1.Width - Text1.Width) / 2 End Sub 5. Private Sub Cmd1_Click() Lab1.Visible = True Lab1.Caption = "您已下达显示命令" End Sub Private Sub Form_Click() Cmd1.Visible = True End Sub 6. Private Sub Form_KeyPress(KeyAscii As Integer) Show