第2章
1. 新建工程,在窗体上创建两个命令按钮Command 1 Command2, 一个标签Label 1,界 面如
图2?5所示,程序运行要求如下:
1) 单击“改变颜色”按钮,标签上的文字内容改为“颜色已经改变”,文字颜色改为红 色。
“改变颜色”按钮代码:
Label 1.ForeColor = vbRed
Label 1 .Caption = ”颜色已经改变“
2) 单击“改变字体”按钮,标签上的字体改为“黑体”。
“改变字体”按钮代码:
Label 1 .FontName = 黑体“
M
图2-5程序运行界面
最后将工程文件、窗体文件分别以lx2?2.vbp、lx2-2.frm为文件名保存在D:\\EX文件夹
2. 设计一个留言薄。新建一个工程,在窗体上创建2个标签,2个文本框,1个命令按 钮,
属性设置如图2?6所示,。要求单击“提交”按钮后,上面的文本框内容复制到下面的 文本框中,且下面文本框中的内容不能修改。单击“清除”按钮则清除两个文本框中的内容。
“提交”按钮代码:
Text2.Text = Text 1.Text
“清除”按钮代码:
Textl.Text = ,,n
Text2.Text
Hl!
图2-6程序界而
最后将工程文件、窗体文件分别以lx2-4.vbp> lx2-4.frm为文件名保存在D:\\EX文件夹下。
3. 设计一个程序,程序界面如图2-7所示。当单击“显示”按钮吋,在文本框中显示“欢 迎使
用VB!”;当单击“清除”按钮吋,清除文本框内的文本;当单击“退出”按钮吋,结 束程序运行。
“显示”按钮代码:
Text 1.Text = ”欢迎使用 VB!”
“清除”按钮代码:
Textl.Text 二”“
“退出”按钮代码:
End
图2-7程序运行界面
最后将工程文件、窗体文件分别以lx2-5.vbp. Ix2-5.frm为文件名保存在D:\\EX文件夹 下。
第3章
4. 设计一个程序,在文本框屮输入一个3位整数,单击按钮后,在标签上输出该数的 百位数、十位数和个位数,运行界面如图3-3所示。最后将工程文件、窗体文件分别以 SL3?3.vbp、SL3-3.frm为文件名保存在D:\\EX文件夹下。
勢 For*.! 口回冈 图3-3程序运行界血
PrivaSub Commandl_C1i ck 0
Dim n%, a%, b篦 c% n = Vai (Textl. Text) a = n \\ 100 b = (n - a * 100) \\ 10 c = n Mod 10
Label2. Caption = “百位数:\a & \丿十位数:\b & 二个位数:\c End Sub
5.设计一个程序,实现简单计算的功能,运行界面如图3?7所示。最后将工程文件、窗 体
文件分别以lx3?3.vbp、lx3-3.frm为文件名保存在D:\\EX文件夹下。
图3-7程序运行界面
Private Sub Command3_Click()~~总灯按钮的代码
11
Labell .Caption = \
Text3.Text = Ual(Text1.Text) * Ual(Text2.Text) End Sub
Private Sub Command5_Click() 1 \钮的代码 Textl.Text = ?… - Text2.Text = ?… Text3.Text = ?… End Sub
提示:clear按钮的代码:textl.
’\是双引巧,空字符串的意思
6.设计一个程序(程序运行界面自定),使用inputbox函数输入某品牌电脑的单价和购 买的数量,计算并用msgbox函数输出需付款金额。最后将工程文件、窗体文件分别以 lx3-4.vbp、lx3-4.frm