VB程序设计教程 第三版 泷沛曾等著 实验B答案.docVIP

VB程序设计教程 第三版 泷沛曾等著 实验B 答案 第一题Private Sub Command1_Click()Dim f!, c!f = Val(Text1)c = 5 / 9 * (f - 32)Text2 = Format(c, 0.00)End Sub Private Sub Command2_Click()Dim c!, f!c = Val(Text2)f = 9 / 5 * c + 32Text1 = Format(f, 0.00)End Sub ? 第二题Private Sub Command1_Click()Dim r!, s!r = Val(Text1)s = 3.14 * r ^ 2Label2 = Format(s, 0.00) End Sub Private Sub Command2_Click()Dim r!, d!r = Val(Text1)d = 2 * r * 3.14Label3 = Format(d, 0.00) End Sub Private Sub Text1_lostfocus()If Not IsNumeric(Text1) ThenText1 = MsgBox(输入有非数字字符，请重新输入)Text1.SetFocusEnd IfEnd Sub 第四题?? Private Sub Command1_Click()Text1.Text = UCase(Text1)Label1 = Len(Text1)End Sub ? Private Sub Text1_lostfocus()If IsNumeric(Text1) ThenText1 = MsgBox(输入有非字母字符，请重新输入)Text1.SetFocusEnd IfEnd Sub第五题??? ? Private Sub Form_Click()RandomizeDim a As Integer, b As Integer, c As Integer, d As Integerd = Int(Rnd * 900 + 100)Print da = d \ 100b = (d / 10) Mod 10c = d Mod 10 Print c b aEnd Sub ? 第6题 Private Sub Form_click()label1=left(text1,3) label2=mid(text1,4,4) label3=right(text1,3) end sub第8 题?Private Sub Form_click()Dim a!, b!, c!, d!, e!a = Val(InputBox(输入实数))b = a ^ 2c = Sqr(a)d = a ^ 3e = a ^ (1 / 3)Print 平方; Format(b, 0.000); 平方根; Format(c, 0.000); 立方; Format(d, 0.000); 立方根; Format(e, 0.000) End Sub