2015《Visual BASIC程序设计》期末考试编程题复习答案.doc

1 Private Sub Command1_Click() Label1.ForeColor = vbRed Label1.Caption = quot;颜色已经改变quot; End Sub Private Sub Command2_Click() Label1.FontName = quot;黑体quot; End Sub 4 Private Sub Command1_Click() Dim n%, a%, b%, c% n = Val(Text1.Text) a = n \ 100 b = (n - a * 100) \ 10 c = n Mod 10 Label1.Caption = quot;百位数:quot; amp; a amp; quot;,十位数:quot; amp; b amp; quot;,个位数quot; amp; c End Sub 5 Private Sub Command1_Click() Label1.Caption = quot;+quot; Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() Label1.Caption = quot;-quot; Text3.Text = Val(Text1.Text) - Val(Text2.Text) End Sub Private Sub Command3_Click() Label1.Caption = quot;*quot; Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub Command4_Click() Label1.Caption = quot;/quot; Text3.Text = Val(Text1.Text) / Val(Text2.Text) End Sub Private Sub Command5_Click() Text1.Text = quot;quot; Text2.Text = quot;quot; Text3.Text = quot;quot; End Sub Private Sub Command6_Click() End End Sub 6 Private Sub Form_Load() Dim djamp;, shL%, jeamp; dj = Val(InputBox(quot;输入某品牌电脑的单价;quot;)) shL = Val(InputBox(quot;输入某品牌电脑的的购买的数量;quot;)) je = dj * shL MsgBox quot;需付款金额;quot; amp; je End Sub 7 Private Sub Form_Click() Dim zh% Randomize zh = Int(90 * Rnd) + 10 MsgBox quot;两位的随机整数是:quot; amp; zh End Sub 8 Private Sub Command1_Click() Dim hh%, mm%, ss%, totals! Dim outstr$ hh = Val(Text1) mm = Val(Text2) ss = Val(Text3) totals = hh * 3600 + mm * 60 + ss outstr = hh amp; quot;小时quot; amp; mm amp; quot;分 quot; amp; ss amp; quot;秒quot; outstr = outstr amp; vbCrLf amp; quot;总计:quot; amp; totals amp; quot;秒quot; MsgBox outstr, , quot;输出结果quot; End Sub Private Sub Command2_Click() End End Sub 9 Private Sub Command1_Click() Dim r!, k!, s! r = Val(InputBox(quot;请输入圆的半径quot;, quot;计算圆的周长和面积quot;)) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s msgbox quot;计算已完成！quot;, , quot;计算圆的周长和面积quot; End Sub Private Sub Command2_Click() end End Sub 10 Dim x%, a% Dim b%, c% x