VB第三版实验B答案.docVIP

第一题 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 f!, c! c = Val(Text2) f = 9 / 5 * c + 32 Text1 = Format(f, 0.00) End Sub Private Sub Label2_Click() End Sub 第二题 Private sub command1_click() Dim r!,c! r=val(text1) s=3.14159*r^2 label2=format(s, 0.00) End up Private sub command2_click() Dim r!,c! c=3.14159*r*2 label3=format(c, 0.00) end sub private sub text1_lostfocus if not isnumeric(text1)then text1= msgbox输入有非数字字符，请重新输入 text1.setfocus end if end sub 第三题 Private sub form_load a=13 b =0 do while not a26 a=a+a*0.8 b=b+1 loop msgbox(b) end sub 第四题 Private sub command1_click() Text1=ucase(abcdefg) End sub Private sub command2_click() Text1=len(abcdefg) End sub 第五题 Private Sub Form_click() Randomize Dim a%, b%, c%, d% d = Int(Rnd * 900 + 100) Print d a = d \ 100 b = (d / 10) Mod 10 c = d Mod 10 Print c b a End Sub 第六题 Private Sub Label1_Click() Label1 = Left(VisualBasic 程序设计教程（第三版）, 11) End Sub Private Sub Label2_Click() Label2 = Mid(VisualBasic程序设计教程（第三版）, 12, 6) End Sub Private Sub Label3_Click() Label3 = Right(VisualBasic 程序设计教程（第三版）, 5) End Sub 第七题 Private Sub Command1_Click() Print For i = 1 To 5 Print Tab(15 - i * 2); String(2 * i - 1, ★); Spc(22 - 4 * i); String(2 * i - 1, ★) Next i End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command1_Click() Print For i = 1 To 5 Print Tab(15 - i * 2); String(2 * i - 1, ★); String(10- 2 * i, ☆ ); String(2 * i - 1, ★) Next i End Sub Private Sub Command2_Click() Cls End Sub 第八题 Private sub form_click() Dim a!,b!,c!,d!,e! a=val(inputbox(输正实数)) b=a^2 c=sqr(a) e=a^(1/3) print平方;format(b,0.00); 平方根 ;format(c,0.00); 立方;format(d, 0.00);立方根;format(e,0.00) end sub