VB期中复习资料剖析

上机2 基础

1、建立一个登陆窗口，用户在文本框中输入密码（不可见，出现*），单击“确定”按钮后，

输入的密码在标签中出现，单击“退出”按

钮结束运行。如图：（字体：黑体小四）

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 = "":Text3 = "":Text4 = "":Label2 = ""

End Sub

Private Sub Command3_Click()

End

End Sub

上机3 顺序结构

1、动态显示Shape形状；

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Shape1.Shape = Int(Rnd * 6 + 0)

End Sub

2、根据用户输入的半径，求对应的直径、圆周长、圆面积、球表面积、球体积，要求保留

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 = s

End Sub

Private Sub Command2_Click()

Text1 = "" : Text2 = "" : Text3 = ""

End Sub

Private Sub Command3_Click()

Text2 = Val(Text1) * 2

Text3 = 3.1415 * Val(Text1) ^ 2

End Sub

3、实现对于用户输入数字进行加密显示，加密方法：数字循环左移二位（提示：类似循环

问题，常借助于Mod运算符来解决：密文数字=（明文数字n+循环偏移量Δd+10）Mod 10;

Private Sub Command1_Click()

Text2 = (Val(Text1) + (-2) + 10) Mod 10

End Sub

4、请根据插入点位置和待插入字符串，单击

“插入”按钮实现字符串的插入。

（提示：将字符串插入点左边和右边的字符串使用Left和Right函数分离，使用字符串连接符按照左边字符串、插入字符串和右边字符串的顺序连接起来，即可完成插入操作。）

Private Sub

Command1_Click()

Text1 = Left(Text1, Val(Text2)) & Text3 & Right(Text1, Len(Text1) - Val(Text2))

End Sub

5、将输入的字符串前半部分和后半部分对称交换位置。

（提示：首先根据字符串的长度将字符串分为前、中、后三个部分，使用字符串函数进行截取三个部分字符串，并将其进行重新排放，最后将结果显示在新文本框中）

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 & s1

End Sub

6、编一个华氏温度与摄氏温度之间转换的程序，转换公式如下：

3259F +=C ）（32-F 9

5C = 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 Sub

7、输入半径，计算圆周长和圆面积，如图所示。

要求：检查输入数据的合法性，利用Msgbox 显示出错信息，定位出错文本框，计算结果保留两位小数。

Private Sub Text1_LostFocus()

If Not IsNumeric(Text1) Then

k = MsgBox("输入有非数字字符，请重新输入", vbOKOnly, "提示")

Text1 = ""

Text1.SetFocus

End If

End Sub

Private Sub Command1_Click()

Text2 = Format(3.1416 * Val(Text1) ^ 2, "0.00")

End Sub Private Sub Command2_Click()

Text3 = Format(2 * 3.1416 * Val(Text1), "0.00")

End Sub

8、输入一字符串，分别调用UCase、Len函数将其转换成大写字母并显示其字符串长度。

Private Sub Command1_Click()

Text2 = UCase(Text1)

Text3 = Len(Text1)

End Sub

9、随机产生一个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 & b

End Sub

10、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 i

End Sub

Private Sub Command2_Click()

Cls

End Sub

②Private 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 i

End Sub

Private Sub Command2_Click()

Cls

End Sub

（注：使窗体不可改变大小，设置窗体属性：

首先BoaderStyle = 1 – Fixed Single，然后MinButton = False )

上机4 选择结构

1、 编一程序输入上网的时间并计算上网费用，计算方法如下：

??

???≥<=小时上网时间小时上网时间

小时上网时间元，每小时元，每小时元，基数费用5050~101025.230 同时为了鼓励多上网，每月收费最多不超过150元。 Private Sub Command1_Click()

Dim t%, cost%

t = Val(Text1)

If t < 10 Then

cost = 30

ElseIf t < 50 Then

cost = 2.5 * t

Else

cost = 2 * t

End If

If cost > 150 Then cost = 150

Text2 = cost

End Sub

Private Sub Command2_Click()

Text1 = "" : Text2 = "" : Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

2、