VB期中复习资料.docx

《VB期中复习资料.docx》由会员分享，可在线阅读，更多相关《VB期中复习资料.docx（8页珍藏版）》请在第一文库网上搜索。

1、上机2基础国登陆（3回区）1、建立一个登陆窗口，用户在文本框中输入密码（不可见，出现*）,单击“确定”按钮后,输入的密码在标签中出现，单击“退出”按钮结束运行。如图：（字体：黑体小四）输入口令：*愉人的口令是：abcde；确定退出Private Sub Command 1 _Click（）Label2 = 输入的口令是“ & TextlEnd SubPrivate Sub Command2_Click（）EndEnd Sub（注：更改 textl 的 PasswordChar 属性）2、建立应用程序对两个文本框中输入的内容进行交换（如a、b两变量交换通过下面三条语句完成t=a：a=b:b=t）

2、,单击“交换”按钮实现交换，单击“清空”按钮,清空文本框的内容,单击“结束”按钮结束运行。Private Sub Command l_Click()Dim t%t = Val(Textl): Textl = Text2 : Text2 = tEnd SubPrivate Sub Command2_Click()Textl 二 ”“：Text2 二”End SubPrivate Sub Command3_Click()EndEnd Sub3、窗体中有3个按钮Commandl、Command2和Command3,该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序怎么样

3、书写？Private Sub Command 1 _Click（）Command3. Visible = FalseEnd Sub4、自动选择第3个字符起的6个字符。Private Sub Form_Click()Textl.SelStart = 2Textl.SelLength = 6Text2 = Textl.SelTextEnd Sub5、实现两数相乘Private Sub Text 1 _LostFocus()If Not IsNumeric (Textl) ThenTextl=Textl.SetFocusEnd ifEnd SubPrivate Sub Text2_KeyPress

4、(KeyAsc As Integer)If KeyAscii = 13 ThenIf Not IsNumeric(Text2) Then Text2 =End ifEnd SubPrivate Sub Text3_GotFcous()Text3 = Val(Tex + Val(Text2)End Sub6、设计程序完成下.列操作(1)剪切、复制和粘贴的编辑操作(2)字体、大小的格式设置Dim st As StringPrivate Sub CommondI_Click()st = Textl.SelTextTextl.SelText = 9End Sub将选中的内容存放在st变量中，将选中的内

5、容清除，实现剪切Private Sub Commond2_Click()st = Textl.SelTextEnd SubPrivate Sub Commond3_Click()Textl .SelTxet = st，将选中的内容存放在st变量中，将st变量中的内容插入到光标所在的位置，实现粘贴，End SubPrivate Sub Commond4_Click()Textl.FontName = 黑体”End SubPrivate Sub Commond5_Click()Text 1.FontSize = 20我匕寰字号:姓名:S1A 1A三脑11 m 一 mtit号名级子学姓班电C QEn

6、d SubPrivate Sub Commond6_Click()EndEnd Sub7、建立一个学生情况登记表(要求：在文本框输入相应的内容，点击“确定”按钮，在窗体右边的标签输出四个文本框的内容，程序运行界面如图)Private Sub Command 1 _Click()电子能,清科 退出(第7题)Label2 = Textl & vbCrLf & Text2 & vbCrLf & Text3 & vbCrLf & Text4 & vbCrLfEnd SubPrivate Sub Command2_Click()Text1 = ,n,:Text2 = ,n:Text3 = ,Text4

7、= uLabel2 = ,rEnd SubPrivate Sub Command3_Click()EndEnd Sub上机3顺序结构1、动态显示Shape形状；Private Sub Command 1 _Click()Timer 1.Enabled = TrueEnd SubPrivate Sub Form_Load()Timerl.Enabled = FalseEnd SubPrivate Sub Timer 1-Timer()Shape 1.Shape = Int(Rnd *6 + 0)End Sub2、根据用户输入的半径，求对应的直径、圆周长、圆面积、球表面积、球体积，要求保留3位小数

8、显示结果；Private Sub Command 1 _Click()Const pi = 3.1415Dim r!, d!, s!r = Val(Textl): d = 2*r:s = pi*rA 2:Text2 = d: Text3 = sEnd SubPrivate Sub Command2_Click()Textl =: Text2 = : Text3 = End SubPrivate Sub Command3_Click()Text2 = Val(Textl) * 2Text3 = 3.1415 * Val(Textl) 2End Sub3、实现对于用户输入数字进行加密显示，加密方法

9、：数字循环左移二位(提示：类似循环问题，常借助于Mod运算符来解决：密文数字二(明文数字n+循环偏移量Ad+10) Mod10；Private Sub Command 1 _Click()Text2 = (Val(Textl) + (-2) + 10) Mod 1()End Sub4、请根据插入点位置和待插入字符串，单击“插入”按钮实现字符串的插入。(提示：将字符串插入点左边和右边的字符串使用Left和Right函数分离，使用字符串连接符按照左边字符串、插入字符串和右边字符串的顺序连接起来，即可完成插入操*箍入字符串-ll l字符串We studying VB.插入 |在位置F后插入字符串际P

10、rivate Sub Command l_Click()Textl = Left(Textl, Val(Text2) & Text3 & Right(Textl, Len(Textl) - Val(Text2)End Sub5、将输入的字符串前半部分和后半部分对称交换位置。（提示：首先根据字符串的长度将字符串分为前、中、后三个部分，使用字符串函数进行截取三个部分字符串，并将其进行重新排放，最后将结果显示在新文本框中）Private Sub Command 1 _C1 ick()Dim sl$, s2$, s3$, s$, n%s = Textln = Len(s) 2If Len(s) Mod

11、 2 = 0 Thens2 = ns3 = Right(s, Len(s) - n)Elses2 = Mid(s, n 1, 1)s3 = Right(s, Len(s) - 1 - n)End Ifsi = Left(s, n)Text2 = s3 & s2 & siEnd Sub6、编一个华氏温度与摄氏温度之间转换的程序，转换公式如下:95F = -C + 32 C = -(F-32)59Private Sub Commond 1 _Click()Dim f! , c!f = Vai (Textl)c = 59*(f-32)Text2 = Format( c, “0.00”)，保留两位小数

12、，End SubPrivate Sub Commond2_Click()Textl = Format( 9/5 * Val(Text2) + 32 , “0.00”)End Sub7、输入半径，计算圆周长和圆面积，如图所示。求：检查输入娄Msebox显示宫息，定位出错匡.计算结Text3 = Format(2 * 3.1416 * Val(Textl), 0.0()End Sub8、输入一字符串，分别调用UCase、Len函数将其转换成大写字母并显示其字符串长度。Private Sub Command 1 _Click()Text2 = UCase(Textl)Text3 = Len(Text

13、l)End Sub9、随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。Private Sub Command 1 _Click()x = Int(Rnd * 900 + 100)a = x Mod 1()b = x 100c = x 10- 10*bPrint x & vbCrLf & a & c & bEnd Sub10、Print方法练习，显示字符图形。要求窗体不可改变大小，当单击“清屏”按钮后，清除窗体所显示的图形。 Private Sub Command l_Click()Dim i%For i = 1 To 5Print Tab(2 * (5 - i) + 4); String(2 * iNext iEnd SubPrivate Sub Command2_Click()CisEnd SubPrivate Sub Command l_Click()Dim i%-1, *); Spc(4 * (5 - i) + 2); String(2 * i 1, ”)O Forml显示For i = 1 To 5Print Tab(2 * (5 - i) + 4); String(2 * i 1, *); String(2 * (5 i) + 1, String(2 * i 1, *)Next End Sub耳 Forml