1、下面是一些 VB 习题的个人解答，分享给大家做些参考，希望对大家能有所帮助。好好学习，天天向上。祝大家学习进步。注：1. 黑色题号是第一版教材的，红色题号是第二版教材的，只有一个题号的是第一、二版教材的2. 将运行结果的截图粘贴到题下，并将程序代码也复制到题下。3期末打印出来交上来。（4 -1）设计一个计算购书价程序，界面如图所示。要求：1） 界面上的文字全部为宋体五号字2） 按图示给文本框取名。为“计算总价（C） ”和“退出（X） ”按钮设访问键3） 编写代码，使得运行时焦点定位在 DJ 文本框中，输入单价后，按 Tab 键可输入数量。在输入单价和数量后，点击“计算总价（C） ”按钮，将计算
2、出的总价钱，先是在文本框 ZJ 中，单击“退出（X） ”按钮结束运行。运行时，计算出的总价为只读，用户不能在界面上修改计算出的总价，且焦点不能定位在 ZJ 文本框中。提示：先将文本框中的内容使用 Val 函数转换后再进行计算。4） 将 ZJ 文本框改换成标签，将标签的 BorderStyle 属性设置为 1-Fixed Single，用标签输出计算结果。Private Sub Command1_Click()Dim A As Single, B As Single, C As SingleA = Val(文本框 DJ.Text)B = Val(文本框 SL.Text)C = A * B文本框
3、ZJ.Text = Format(C)End SubPrivate Sub Command2_Click() End End Sub Private Sub Form_Load() End Sub （4 -2）设计一个收款计算程序，界面如图所示。要求：文本框 DJ文本框 SJ文本框 ZJ1） 三个输入文本框依次取名为 T1、T2、T3，应付款文本框取名为 TRESULT。2） 运行时焦点在折扣一栏，输入折扣后，按 Tab 键可输入单价，再按 Tab 键可输入数量。3） 单击“计算”按钮计算应付款，应付款内容为只读。4） 单击“清除”按钮或“ESC”键清除应付款内容，并将焦点定位在“折扣”一栏，
4、选中“折扣”中的内容，以便修改。提示：使用以下语句定位焦点并选中文本T3.SetFocusT3.SelStart = 0T3.SelLength = Len(T3.Text)5） 单击“退出”按钮结束执行。Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, d As Singlea = Val(T1.Text)b = Val(T2.Text)c = Val(T3.Text)d = a * b * (c / 10)TRESULT = Format(d, “0.00“)End SubPrivate Sub T
5、ext1_Change()End SubPrivate Sub Command2_Click()T3.SetFocusT3.SelStart = 0T3.SelLength = Len(T3.Text)T1.Text = “T2.Text = “T3.Text = “End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()End Sub（4 -3） （2-10）设计如图所示界面。运行时按下某命令按钮对文本框中的文字完成相应的设置。其中每按一次“增大”或“缩小”按钮将是文本框中的文字增大或缩小 5 磅。文本框各属性如
6、下：字号：.FontSize 下划线： FontUnderline. 删除线：FontStrikethru 粗体：FontBold 斜体：FontItalicPrivate Sub Command1_Click()Text1.FontSize = Text1.FontSize + 5End SubPrivate Sub Command2_Click()Text1.FontSize = Text1.FontSize - 5End SubPrivate Sub Command3_Click()Text1.FontUnderline = TrueEnd SubPrivate Sub Command4
7、_Click()Text1.FontStrikethru = TrueEnd SubPrivate Sub Command5_Click()Text1.FontBold = TrueEnd SubPrivate Sub Command6_Click()Text1.FontItalic = TrueEnd SubPrivate Sub Form_Load()End Sub（4-5） （3-2 ）设计见面如图所示，单击“出题”按钮，产生任意两个 1,100之间的随机正数，单击“计算”按钮，求这两数的和。Private Sub Command1_Click()Text1 = Int(100 * Rn
8、d + 1)Text2 = Int(100 * Rnd + 1)End SubPrivate Sub Command2_Click()Text3 = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Form_Load()End Sub（5-2） （5-1 ）从文本框中输入一个数，单击“判断”按钮判断它能否同时被 3、5、7 整除，若能整除，则在窗体上显示“能同时被 3、5、7 整除” ，否则显示“不能整除”Private Sub Command1_Click()x = Val(Text1.Text)a = x Mod 3If a 0 Th
9、enLabel22.Caption = “结果：此数不能被 3、5、7 整除“c = x Mod 7ElseIf c Max Then Max = bIf b Max Then Max = cIf c = Form1.ScaleWidth ThenLabel1.Left = -Label1.WidthElseLabel1.Left = Label1.Left + 200End IfEnd Sub（7-9） （9-9 ）设计一个滚动条及两个文本框，滚动条代表温度，最小值是摄氏零度（或华氏 32 度） ，最大值是摄氏 100 度（或华氏 212 度） ，如图所示。运行时，当移动滚动条时，摄氏及华氏
10、文本框能正确显示相应的温度值Private Sub Form_Load()VScroll1.Min = 0VScroll1.Max = 10000VScroll1.SmallChange = 1VScroll1.LargeChange = 100VScroll1.Value = 10000Call AEnd SubPrivate Sub A()Dim X As Single, Y As Single, Z As SingleX = 10000 - VScroll1.ValueY = X / 100Z = Y * 9 / 5 + 32Text1.Text = Y c; “正数的和“; all1CurrentX = 1200Print “负数的个数“; b; “ 负数的和“; all2End Sub
