VB期中复习资料.doc

上机2 基础1、 建立一个登陆窗口，用户在文本框中输入密码（不可见，出现*），单击“确定”按钮后，输入的密码在标签中出现，单击“退出”按钮结束运行。如图：（字体：黑体小四）Private Sub Command1_Click()Label2 = 输入的口令是 Text1End SubPrivate Sub Command2_Click()EndEnd Sub（注：“*”更改text1的PasswordChar属性）2、建立应用程序对两个文本框中输入的内容进行交换（如a、b两变量交换通过下面三条语句完成 t=a:a=b:b=t）,单击“交换”按钮实现交换，单击“清空”按钮，清空文本框的内容，单击“结束”按钮结束运行。Private Sub Command1_Click()Dim t%t = Val(Text1) : Text1 = Text2 : Text2 = tEnd SubPrivate Sub Command2_Click()Text1 = : Text2 = End SubPrivate Sub Command3_Click()EndEnd Sub3、窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序怎么样书写？Private Sub Command1_Click()Command3.Visible = FalseEnd Sub4、自动选择第3个字符起的6个字符。Private Sub Form_Click()Text1.SelStart = 2Text1.SelLength = 6Text2 = Text1.SelTextEnd Sub5、实现两数相乘 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 Sub6、设计程序完成下列操作 （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 Sub7、建立一个学生情况登记表（要求：在文本框输入相应的内容，点击“确定”按钮，在窗体右边的标签输出四个文本框的内容，程序运行界面如图）Private Sub Command1_Click() （第7题）Label2 = Text1 vbCrLf Text2 vbCrLf Text3 vbCrLf Text4 vbCrLfEnd SubPrivate Sub Command2_Click()Text1 = :Text2 = :Text3 = :Text4 = :Label2 = End SubPrivate Sub Command3_Click()EndEnd Sub上机3 顺序结构1、 动态显示Shape形状；Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Shape1.Shape = Int(Rnd * 6 + 0)End Sub2、 根据用户输入的半径，求对应的直径、圆周长、圆面积、球表面积、球体积，要求保留3位小数显示结果；Private Sub Command1_Click() Const pi = 3.1415 Dim r!, d!, s! r = Val(Text1): d = 2 * r: s = pi * r 2:Text2 = d: Text3 = sEnd SubPrivate Sub Command2_Click() Text1 = : Text2 = : Text3 = End SubPrivate Sub Command3_Click()Text2 = Val(Text1) * 2Text3 = 3.1415 * Val(Text1) 2End Sub3、 实现对于用户输入数字进行加密显示，加密方法：数字循环左移二位（提示：类似循环问题，常借助于Mod运算符来解决：密文数字=（明文数字n+循环偏移量d+10）Mod 10; Private Sub Command1_Click() Text2 = (Val(Text1) + (-2) + 10) Mod 10End Sub4、 请根据插入点位置和待插入字符串，单击“插入”按钮实现字符串的插入。（提示：将字符串插入点左边和右边的字符串使用Left和Right函数分离，使用字符串连接符按照左边字符串、插入字符串和右边字符串的顺序连接起来，即可完成插入操作。）Private Sub Command1_Click()Text1 = Left(Text1, Val(Text2) Text3 Right(Text1, Len(Text1) - Val(Text2)End Sub5、将输入的字符串前半部分和后半部分对称交换位置。 （提示：首先根据字符串的长度将字符串分为前、中、后三个部分，使用字符串函数进行截取三个部分字符串，并将其进行重新排放，最后将结果显示在新文本框中）Private Sub Command1_Click() Dim s1$, s2$, s3$, s$, n% s = Text1 n = Len(s) 2 If Len(s) Mod 2 = 0 Then s2 = s3 = Right(s, Len(s) - n) Else s2 = Mid(s, n + 1, 1) s3 = Right(s, Len(s) - 1 - n) End If s1 = Left(s, n) Text2 = s3 s2 s1End Sub6、编一个华氏温度与摄氏温度之间转换的程序，转换公式如下： Private Sub Commond1_Click() Dim f! , c! f = Val(Text1) c = 5/9 * ( f 32 ) Text2 = Format( c, “0.00” ) 保留两位小数 End Sub Private Sub Commond2_Click() Text1 = Format( 9/5 * Val(Text2) + 32 , “0.00” ) End Sub7、输入半径，计算圆周长和圆面积，如图所示。 要求：检查输入数据的合法性，利用Msgbox显示出错信息，定位出错文本框，计算结果保留两位小数。Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then k = MsgBox(输入有非数字字符，请重新输入, vbOKOnly, 提示) Text1 = Text1.SetFocus End IfEnd SubPrivate Sub Command1_Click() Text2 = Format(3.1416 * Val(Text1) 2, 0.00)End SubPrivate Sub Command2_Click() Text3 = Format(2 * 3.1416 * Val(Text1), 0.00)End Sub8、输入一字符串，分别调用UCase、Len函数将其转换成大写字母并显示其字符串长度。 Private Sub Command1_Click() Text2 = UCase(Text1) Text3 = Len(Text1)End Sub9、随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。 Private Sub Command1_Click() x = Int(Rnd * 900 + 100) a = x Mod 10 b = x 100 c = x 10 - 10 * b Print x vbCrLf a c bEnd Sub10、Print方法练习，显示字符图形。 要求窗体不可改变大小，当单击“清屏”按钮后，清除窗体所显示的图形。 Private Sub Command1_Click()Dim i% For i = 1 To 5 Print Tab(2 * (5 - i) + 4); String(2 * i - 1, ); Spc(4 * (5 - i) + 2); String(2 * i - 1, ) Next iEnd SubPrivate Sub Command2_Click() ClsEnd SubPrivate Sub Command1_Click() Dim i% For i = 1 To 5 Print Tab(2 * (5 - i) + 4); String(2 * i - 1, ); String(2 * (5 - i) + 1, ); String(2 * i - 1, ) Next iEnd SubPrivate Sub Command2_Click() ClsEnd Sub（注：使窗体不可改变大小，设置窗体属性：首先BoaderStyle = 1 Fixed Single，然后MinButton = False )上机4 选择结构1、 编一程序输入上网的时间并计算上网费用，计算方法如下： 同时为了鼓励多上网，每月收费最多不超过150元。 Private Sub Command1_Click() Dim t%, cost% t = Val(Text1)