vb期中复习资料.docxVIP

上机2基础 1、建立一个登陆窗口，用户在文本框中输入密码（不可见，出现 *）,单击“确定”按钮 * l irtiirxi后，输入的密码在标签中出现，单击“退 出”按钮结束运行。如图：（字体：黑体 * l irtiirxi 小四） 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% 交换输人b：t = Val(Text1) : Text1 = Text2 交换 输人b： 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() Comma nd3.Visible = False End Sub 4、 自动选择第3个字符起的6个字符。 Private Sub Form_Click() Text1.SelStart = 2 Text1.SelLe ngth = 6 Text2 = Text1.SelText End Sub 5、 实现两数相乘 Private Sub Text1_LostFocus() If Not IsNumeric (Text1) Then Text1.SetFocus End if End Sub Private Sub Text2_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then If Not lsNumeric(Text2) Then Text2 = ”” End if End Sub Private Sub Text3_GotFcous() Text3 = Val(Text1) + Val(Text2) End Sub 6、 设计程序完成下列操作 剪切、复制和粘贴的编辑操作 字体、大小的格式设置 Dim st As String Private Sub Commond1_Click() st= Text1.SelText Text1.SelText = “” End Sub Private Sub Com mon d2_Click() st= Text1.SelText End Sub Private Sub Com mon d3_Click() Text1.SelTxet = st 贴， End Sub Private Sub Com mon d4_Click()Text1.Fo ntName = 黑体” End Sub Private Sub Com mon d5_Click() Text1.Fo ntSize = 20 End Sub Private Sub Com mon d6_Click() End End Sub 7、 建立一个学生情况登记表(要求： 在文本框输入相应的内容，点击“确 定”按钮，在窗体右边的标签输出四 个文本框的内容，程序运行界面如图) 将选中的内容存放在 st变量中’将选中的内容清除，实现剪切 ’ 将选中的内容存放在 st变量中 将st变量中的内容插入到光标所在的位置，实现粘 ? fix：* Private Sub Command1_Click() 免出 (第 7 题) 学号乂 11 *jgr 4- 嘔砥社」HE 电于ca Label2 = Text1 vbCrLf Text2 vbCrLf Text3 vbCrLf Text4 vbCrLf End Sub Private Sub Command2_Click() Text1 = :Text2 = :Text3 = :Text4 = :Label2 = End Sub Private Sub Command3_Click() End End Sub 上机3顺序结构 1、动态显示Shape形状； Private Sub Command1_Click() Timer1.E nable