VB期中复习资料.doc

上机2 基础 建立一个登陆窗口，用户在文本框中输入密码（不可见，出现*），单击“确定”按钮后，输入的密码在标签中出现，单击“退出”按钮结束运行。如图：（字体：黑体小四） Private Sub Command1_Click() Label2 = 输入的口令是 Text1 End Sub Private Sub Command2_Click() End End Sub （注：“*”更改text1的PasswordChar属性） 2、建立应用程序对两个文本框中输入的内容进行交换（如a、b两变量交换通过下面三条语句完成? t=a:a=b:b=t）,单击“交换”按钮实现交换，单击“清空”按钮，清空文本框的内容，单击“结束”按钮结束运行。 Private Sub Command1_Click() Dim t% t = Val(Text1) : Text1 = Text2 : Text2 = t End Sub Private Sub Command2_Click() Text1 = : Text2 = End Sub Private Sub Command3_Click() End End Sub 3、窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序怎么样书写？ Private Sub Command1_Click() Command3.Visible = False End Sub 4、自动选择第3个字符起的6个字符。 Private Sub Form_Click() Text1.SelStart = 2 Text1.SelLength = 6 Text2 = Text1.SelText End Sub 5、实现两数相乘 Private Sub Text1_LostFocus( ) If Not IsNumeric (Text1) Then Text1=”” Text1.SetFocus End if End Sub Private Sub Text2_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric(Text2) Then Text2 = ”” End if End Sub Private Sub Text3_GotFcous() Text3 = Val(Text1) + Val(Text2) End Sub 6、设计程序完成下列操作 （1）剪切、复制和粘贴的编辑操作 （2）字体、大小的格式设置 Dim st As String Private Sub Commond1_Click() st = Text1.SelText ‘将选中的内容存放在st变量中’ Text1.SelText = “” ‘将选中的内容清除，实现剪切’ End Sub Private Sub Commond2_Click() st = Text1.SelText ‘将选中的内容存放在st变量中’ End Sub Private Sub Commond3_Click() Text1.SelTxet = st ‘将st变量中的内容插入到光标所在的位置，实现粘贴’ End Sub Private Sub Commond4_Click() Text1.FontName = “黑体” End Sub Private Sub Commond5_Click() Text1.FontSize = 20 End Sub Private Sub Commond6_Click() End End Sub 7、建立一个学生情况登记表（要求：在文本框输入相应的内容，点击“确定”按钮，在窗体右边的标签输出四个文本框的内容，程序运行界面如图） Private Sub Command1_Click() （第7题） Label2 = Text1 vbCrLf Text2 vbCrLf Text3 vbCrLf Text4 vbCrLf End Sub Private Sub Command2_Click() Text1 = :Text2