国内石油大学华东VB练习学习题10至15周程序题总括.doc

| 1、 （1） Private Sub Command1_Click() Text3.Text = 2 * (Val(Text1.Text) + Val(Text2.Text)) Text4.Text = Val(Text1.Text) * Val(Text2.Text) End Sub （2） Private Sub Command1_Click() Text3.Text = Str(2 * (Val(Text1.Text) + Val(Text2.Text))) Text4.Text = Str(Val(Text1.Text) * Val(Text2.Text)) End Sub （3） Private Sub Command1_Click() Dim c As Double, k As Double, z As Double, m As Double c = Val(Text1.Text) k = Val(Text2.Text) z = 2 * (c + k) m = c * k Text3.Text = Str(z) Text4.Text = Str(m) End Sub 2、 （1） Private Sub Command1_Click() Text2.Text = 2 * 3.1415926 * Val(Text1.Text) Text3.Text = 3.1415926 * Val(Text1.Text) ^ 2 End Sub （2） Private Sub Command1_Click() Text2.Text = Str(2 * 3.1415926 * Val(Text1.Text)) Text3.Text = Str(3.1415926 * Val(Text1.Text) ^ 2) End Sub （3） Private Sub Command1_Click() r = Val(Text1.Text) p = 2 * 3.1415926 * r s = 3.1415926 * r ^ 2 Text2 = p Text3 = s End Sub 3、 （1） Private Sub Command1_Click() Text3.Text = Val(Text1.Text) / Val(Text2.Text) End Sub （2） Private Sub Command1_Click() Text3.Text = Str(Val(Text1.Text) / Val(Text2.Text)) End Sub （3） Private Sub Command1_Click() Dim rmb As Double, bl As Double, my As Double rmb = Val(Text1.Text) bl = Val(Text2.Text) my = rmb / bl Text3.Text = Str(my) End Sub 1、在上方文本框Text1中输入任意2位数，单击“处理”按钮Command1，将这个两位数逆序输出到下方文本框Text2中。 Private Sub Command1_Click() ys = Val(Text1.Text) ns = (ys Mod 10) * 10 + (ys \ 10) Text2.Text = ns End Sub Private Sub Command1_Click() ys = Text1.Text ns = Right(ys, 1) Left(ys, 1) Text2.Text = ns End Sub Private Sub Command1_Click() ys = Text1.Text ns = Mid(ys, 2, 1) Mid(ys, 1, 1) Text2.Text = ns End Sub 2、在上方文本框Text1中写入普通手机号码，点击转换按钮Command1，将普通手机号码转为加横线的手机号码写入Text2文本框中。相反，在下方文本框Text2中写入加横线的手机号码，点击反转按钮Command2，将加横线的手机号码转为普通手机号码写入Text1文本框中。 Private Sub Command1_Click() yhm = Text1.Text xhm = Mid(yhm, 1, 3) - Mid(yhm, 4, 4) - Mid(yhm, 8, 4) Text2.Text = xhm End Sub Private Sub Command2_Click() yhm = Text2.Text xhm = Mid