VB设计习题含答案.docVIP

　 2012年6月8日 4 -1）设计一个计算购书价程序，界面如图所示。要求： 界面上的文字全部为宋体五号字 按图示给文本框取名。为“计算总价（C）”和“退出（X）”按钮设访问键 编写代码，使得运行时焦点定位在DJ文本框中，输入单价后，按Tab键可输入数量。在输入单价和数量后，点击“计算总价（C）”按钮，将计算出的总价钱，先是在文本框ZJ中，单击“退出（X）”按钮结束运行。运行时，计算出的总价为只读，用户不能在界面上修改计算出的总价，且焦点不能定位在ZJ文本框中。 提示：先将文本框中的内容使用Val函数转换后再进行计算。 将ZJ文本框改换成标签，将标签的BorderStyle属性设置为1-Fixed Single，用标签输出计算结果。 源程序： Private Sub Command1_Click() Dim a As Single, b As Single, d As Single a = Val(DJ.Text) b = Val(SJ.Text) d = a * b ZJ = Format(d, 0.00) End Sub Private Sub Command2_Click() End End Sub 截图： （4 -2）设计一个收款计算程序，界面如图所示。要求： 三个输入文本框依次取名为T1、T2、T3，应付款文本框取名为TRESULT。 运行时焦点在折扣一栏，输入折扣后，按Tab键可输入单价，再按Tab键可输入数量。 单击“计算”按钮计算应付款，应付款内容为只读。 单击“清除”按钮或“ESC”键清除应付款内容， 并将焦点定位在“折扣”一栏，选中“折扣”中的内容，以便修改。 提示：使用以下语句定位焦点并选中文本 T3.SetFocus T3.SelStart = 0 T3.SelLength = Len(T3.Text) 单击“退出”按钮结束执行。 源程序： Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, d As Single a = Val(T1.Text) b = Val(T2.Text) c = Val(T3.Text) d = a * b * (c / 10) TRESULT = Format(d, 0.00) End Sub Private Sub Command2_Click() T3.SetFocus T3.SelStart = 0 T3.SelLength = Len(T3.Text) T1.Text = T2.Text = T3.Text = TRESULT.Text = End Sub Private Sub Command3_Click() End End Sub 截图： （4-5）（3-2）设计见面如图所示，单击“出题”按钮，产生任意两个[1,100]之间的随机正数，单击“计算”按钮，求这两数的和。 源程序： Private Sub Command1_Click() Text1 = Int(100 * Rnd + 1) Text2 = Int(100 * Rnd + 1) End Sub Private Sub Command2_Click() Text3 = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Form_Load() End Sub 截图： （5-2）（5-1）从文本框中输入一个数，单击“判断