VB实验代码

WHGW-V26P-6QXM-CIJ6 WHGW-V26P-HURZ-95EY

实验二、顺序结构程序设计

二、平均成绩

Private Sub Command1_Click() Dim a!, b!, c!, d! a = Text1.Text b = Text2.Text c = Text3.Text d = (a + b + c) / 3 Text4.Text = d End Sub

一、圆球体积

Private Sub Command1_Click() Dim r As Single, v As Single

Const pi As Single = 3.141592653 r = Text1.Text

v = (1 / 3) * pi * r ^ 3

Label2.Caption = Format(v, "0.000") End Sub

三、文本编辑 编辑按钮

Private Sub Command1_Click() Command2.Enabled = True Text1.Locked = False End Sub 保存按钮

Private Sub Command2_Click() Text1.Locked = True

Command2.Enabled = False End Sub

四、登录界面 登录

Private Sub Command1_Click() Text1.Text = "欢迎光临" End Sub 退出

Private Sub Command2_Click() Text1.Text = "谢谢再见" End Sub

五、文本复制 选择

Private Sub Command1_Click() Text1.SetFocus Text1.SelStart = 7 Text1.SelLength = 9 End Sub 复制

Private Sub Command2_Click() Label1.Caption = Text1.SelText End Sub

提示：圆球体积（V=（4/3）*pi*r ） 通过format( )实现数值型数据转换成字符串，并控制小数位数。 提示：文本框locked 属性，控制文本框是否可以编辑。 命令按钮enabled 属性控制程序运行时命令按钮是否可用。

1、设置文本框TabIndex 为0，可是运行时焦点在文本框中。

2、设置命令按钮Default 属性为true ，用户按enter 键会触发该命令按钮的click 事件。

3、设置命令按钮Cancel 为true 用户按esc 键会触发该命令按钮的click 事件。

4、通过设置文本框的SelStart 和SelLength 属性可以实现自动选择字符的功能。

5、通过引用文本框SelText 属性可以选定文本框内容。

实验三、选择结构程序设计

一、整除运算

Private Sub Command1_Click()

Dim n As Long, r As String

n = Val(Text1.Text)

If (n Mod 3) = 0 And (n Mod 7) = 0 Then

r = "Yes"

Else: r = "No"

End If

Label2.Caption = r

End Sub 二、坐标象限

Private Sub Command1_Click()

Dim x As Single, y As Single, r As String

x = Val(Text1.Text)

y = Val(Text2.Text)

If x > 0 And y > 0 Then

r = "第一象限"

ElseIf x < 0 And y > 0 Then

r = "第二象限"

ElseIf x < 0 And y < 0 Then

r = "第三象限"

ElseIf x > 0 And y < 0 Then

r = "第四象限"

End If

Text3.Text = r

三、竞赛获奖

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single, d As Single, r As String

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

d = a + b + c

If d >= 285 And d <= 300 Then

r = "Gold Medal"

ElseIf d >= 270 And d <= 284 Then

r = "Silver Medal"

ElseIf d >= 240 And d <= 269 Then

r = "Bronze Medal"

ElseIf d < 240 Then

If a >= 95 Or b >= 95 Or c >= 95 Then r = "Honor Medal"

Else: r = "No Medal"

End If

End If

Text4.Text = r

End Sub 四、学历认证

Private Sub Option1_Click() Text1.Text = "我是博士生" End Sub

Private Sub Option2_Click() Text1.Text = "我是硕士生" End Sub

Private Sub Option3_Click() Text1.Text = "我是本科生" End Sub

五、效果设置

Private Sub Check1_Click()

If Check1.Value = 1 Then

Label1.FontUnderline = True Else: Label1.FontUnderline = False End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

Label1.FontStrikethru = True Else: Label1.FontStrikethru = False End If

End Sub 提示：

1、n能整除3和7条件表达式（n mod 3 =0) and (n mod 7=0)

2、若x>0且y>0，则坐标点位于第一象限……

3、以复选框的Value 值为条件，用if 语句实现。

4、设置标签FontUnderline和FontStrikethru 属性来实现下画线和删除线的效果。