VB
程序设计作业 姓名：学号：班级：经管院
1
杨家辉 20093018 09管信1班 2010年6月27日
注：1. 黑色题号是第一版教材的，红色题号是第二版教材的，只有一个题号的是第一、二版教材的
2. 将运行结果的截图粘贴到题下，并将程序代码也复制到题下。 3．期末打印出来交上来。
（4 -1）设计一个计算购书价程序，界面如图所示。要求：
1） 界面上的文字全部为宋体五号字
2） 按图示给文本框取名。为“计算总价（C）”和“退出（X）”按钮设访问键
3） 编写代码，使得运行时焦点定位在DJ文本框中，输入单价后，按Tab键可输入数量。在输入单价
和数量后，点击“计算总价（C）”按钮，将计算出的总价钱，先是在文本框ZJ中，单击“退出（X）”按钮结束运行。运行时，计算出的总价为只读，用户不能在界面上修改计算出的总价，且焦点不能定位在ZJ文本框中。
提示：先将文本框中的内容使用Val函数转换后再进行计算。
4） 将ZJ文本框改换成标签，将标签的BorderStyle属性设置为1-Fixed Single，用标签输出计算结果。
(代码一)
Private Sub Command1_Click()
ZJ.Text = Val(DJ.Text) * Val(SJ.Text) DJ.SetFocus End Sub
Private Sub Command2_Click() End End Sub
Private Sub DJ_Change() ZJ.Text = \End Sub
Private Sub DJ_GotFocus() DJ.SelStart = 0
DJ.SelLength = Len(DJ.Text) End Sub
Private Sub SJ_Change() ZJ.Text = \End Sub
Private Sub SJ_GotFocus() SJ.SelStart = 0
SJ.SelLength = Len(SJ.Text) End Sub
(代码二)
Private Sub Command1_Click()
Label4.Caption = Val(DJ.Text) * Val(SJ.Text)
2
DJ.SetFocus End Sub
Private Sub Command2_Click() End End Sub
Private Sub DJ_GotFocus() DJ.SelStart = 0
DJ.SelLength = Len(DJ.Text) End Sub
Private Sub SJ_GotFocus() SJ.SelStart = 0
SJ.SelLength = Len(SJ.Text) End Sub
（4 -2）设计一个收款计算程序，界面如图所示。要求：
1） 三个输入文本框依次取名为T1、T2、T3，应付款文本框取名为TRESULT。
2） 运行时焦点在折扣一栏，输入折扣后，按Tab键可输入单价，再按Tab键可输入数量。 3） 单击“计算”按钮计算应付款，应付款内容为只读。 4） 单击“清除”按钮或“ESC”键清除应付款内容，
并将焦点定位在“折扣”一栏，选中“折扣”中的内容，以便修改。 提示：使用以下语句定位焦点并选中文本
T3.SetFocus T3.SelStart = 0
T3.SelLength = Len(T3.Text)
5） 单击“退出”按钮结束执行。
Private Sub Command1_Click()
TRESULT.Text = Val(T1.Text) * Val(T2.Text) * Val(T3.Text) * 0.1 End Sub
Private Sub Command2_Click() TRESULT.Text = \ T3.SetFocus T3.SelStart = 0
T3.SelLength = Len(T3.Text) End Sub
Private Sub Command3_Click() End End Sub
3
（4 -3）（2-10）设计如图所示界面。运行时按下某命令按钮对文本框中的文字完成相应的设置。其中每按一次“增大”或“缩小”按钮将是文本框中的文字增大或缩小5磅。文本框各属性如下：
字号：.FontSize 下划线： FontUnderline. 删除线：FontStrikethru 粗体：FontBold 斜体：FontItalic
Private Sub Command1_Click()
Text1.FontSize = Text1.FontSize + 5 End Sub
Private Sub Command2_Click()
Text1.FontSize = Text1.FontSize - 5 End Sub
Private Sub Command3_Click() Text1.FontUnderline = True End Sub
Private Sub Command4_Click() Text1.FontStrikethru = True End Sub
Private Sub Command5_Click() Text1.FontBold = True End Sub
Private Sub Command6_Click() Text1.FontItalic = True End Sub
（4-5）（3-2）设计见面如图所示，单击“出题”按钮，产生任意两个[1,100]之间的随机正数，单击“计算”按钮，求这两数的和。
Private Sub Command1_Click() Randomize
Text1.Text = Int(100 * Rnd + 1) Text2.Text = Int(100 * Rnd + 1) Text3.Text = \End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub
4
