程序代码
Private Sub Command1_Click()
End Sub
Private Sub Command2_Click() = True
End Sub
Private Sub Command3_Click() = True
End Sub
Private Sub Command4_Click() = 10 = False = False
End Sub
初始窗口:单机放大之后窗口:单机下划线之后窗口:单击加粗之后窗口:
自测2
单击还原之后窗口:
Private Sub Command1_Click()
Label1 = "visual basic"
Text1 = " 程序设计题"
End Sub
Private Sub Command2_Click()
Text1 = "visual basic"
Label1 = " 程序设计题"
End Sub
初始窗口:单击显示之后窗口:单击交换之后的窗口:自测题3
Private Sub Command1_Click()
End Sub
Private Sub Command2_Click() = + 30
End Sub
= + 20
= 1
初始窗口:
单击缩小两倍之后的窗口:单击向右下角移动之后的窗口:自测题4
程序代码
Private Sub Command1_Click() = "VB 学习"
Print"简单的VB程序设计"
End Sub
Private Sub Command2_Click()
Cls
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command3_Click()
End
End Sub
初始化窗口:单击显示之后的窗口:单击清除之后的窗口:
自测题5
单击退出之后的窗口:
Private Sub Comma nd1_Click()
HH
End Sub
Private Sub Comma nd2_Click() =Val + Val End Sub
Private Sub Comma nd3_Click() End End Sub
初始化窗口: 单击运算之后窗口: 单击清除之后的窗口:
也 I 绘I lirr-:
輕 g
砖屮 ZBP
L H J ^E 霸赴 BAy 噹晔了 ZILT. 相0 ■tap
乜=1 业 '-JS-J Q -?ST F
■ I
” _l ■■ B 事电r 兴/
涉审叭暂背巧応科1
I gMd I T B ' A bJ El -; F 」 )-1 a □瓷 a QB a
itr 硕八— y -I Su
日 r>M| PLi.l Cnh
w
J x> 蚀-
7 -
■nJ
肝 k4?
Jii.— Tr?
:h^.L 33 -:呻p Ju IpL*
口- i-JN h —vid.
]
F TM IH
FLlMv ■ -UKncnm-
'|LUIPI> r
■41?成 &.■ B WOQULL,
:■—
PMd P G
Private Sub Command1_Click()
Dim a$
= Left(a, 2)
End Sub
Private Sub Command2_Click()
= Right(a, 2)
End Sub
Private Sub Command3_Click()
End Sub
初始窗口界面输入字符串截取前两个字符截取后两个字符字符串连接自测练习2 Private Sub Form_Click()
Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349
e = a Mod 10 ' 个位
d = (a \ 10) Mod 10 ' 十位
c = (a \ 100) Mo
d 10 ' 百位
b = a \ 1000 ' 千位
i = (e + 7) Mod 10 ' 个位
h = (d + 7) Mod 10 ' 十位
g = (c + 7) Mod 10 ' 百位
f = (b + 7) Mod 10 ' 千位
交换后的个位交换后的千位
交换后的十位交换后的百位
l = f * 1000 + g * 100 + h * 10 + i = False
Print " 加密前的4位整数是7439"; (Chr(10)); " 加密后的结果是"; l End Sub
初始界面单击窗体运行后的界面自测练习1
Private Sub Form_Click()
Dim a%, b%, c%, d%, e%, f!
a = Val(InputBox(" 输入第一个数", "
b = Val(InputBox(" 输入第一个数", "
f = Fix(f * 100 + / 100
& "x/y=" & f, , " 输出的结果"
End Sub
自测练习2
Private Sub Form_Click()
Dim a%, b%, c%, d%, e%, f!
Print " 和="; e
Print " 平均值="; f 输入一个数", 8)) 输入一个数", 7))
MsgBox"x+y=" & c & Chr(10) & "x-y=" & d & Chr(10) & "x*y=" & e & Chr(10)
a = Val(InputBox(" 输入第一个数的值"))
b = Val(InputBox(" 输入第二个数的值"))
c = Val(InputBox(" 输入第三个数的值"))
d = Val(InputBox(" 输入第四个数的值"))