《东北石油大学VB部分答案》由会员分享，可在线阅读，更多相关《东北石油大学VB部分答案（7页珍藏版）》请在金锄头文库上搜索。
1、1-3Private Sub Command1_Click()Label1.Top = Label1.Top - 50End SubPrivate Sub Command2_Click()Label1.Left = Label1.Left + 50End SubPrivate Sub Command3_Click()Label1.Left = Label1.Left - 50End SubPrivate Sub Command4_Click()Label1.Top = Label1.Top + 50End Sub1-4Dim n As IntegerPrivate Sub Command1_C
2、lick()Text1.FontSize = Text1.FontSize * 2End SubPrivate Sub Command2_Click()Text1.FontSize = Text1.FontSize / 2End SubPrivate Sub Command3_Click()Text1.FontSize = nEnd SubPrivate Sub Form_Load()n = Text1.FontSizeEnd Sub1-5Dim size As IntegerPrivate Sub Command1_Click()RandomizeText1.FontSize = Text1
3、.FontSize * Int(Rnd * 3 + 1)Command1.Enabled = FalseCommand2.Enabled = TrueCommand3.Enabled = True End SubRandomizeText1.FontSize = Text1.FontSize / Int(Rnd * 3 + 1)Command1.Enabled = TrueCommand2.Enabled = FalseCommand3.Enabled = True End SubPrivate Sub Command3_Click()RandomizeText1.FontSize = siz
4、eCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = True End SubPrivate Sub Form_Load()Randomizesize = Text1.FontSizeCommand1.Enabled = True3-1已知 x，根据以下分段函数求出相应的 y 值。Y= 其他Private Sub Form_click() Dim x As Singlex = InputBox( 请输入 x)If x 4 Then y = Sqr(x - 4) ElseIf x y Then c = x: x = y
5、: y = c If x z Then c = x: x = z: z = c If y z Then c = y: y = z: z = c Text4.Text = x& & y & & z End Sub3-3ElseIf d = 0 And c 0 Theni = MsgBox(a & 年是闰年 , vbOKOnly vbInformation, 测试结果 )Elsei = MsgBox(a & 年不是闰年 , vbOKOnlyvbInformation, 测试结果 )利用 inputbox 函数输入三角形三条边的长 度 a,b,c,判断是否能构成三角形，则计算并End IfEnd S
6、ub3-5显示三角形的面积。Dim a!, b!, c!Private Sub Form_click()a = InputBox( 请输入 a)b = InputBox( 请输入 b)c = InputBox( 请输入 c)If a + b c And b + c a And a + c b Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c)Print 三角形面积是 & sElsePrint 不能构成三角形End IfEnd Sub3-4Private Sub Command1_Click() a = Text1.Tex
7、t b = a Mod 400 c = a Mod 100d = a Mod 4If b = 0 Then i = MsgBox(a & 年是闰年 , vbOKOnly + vbInformation, 测试结果 )Private Sub Form_Click() Dim a!, b!, c!a = InputBox( 请输入 a) b = InputBox( 请输入 b)c = InputBox( 请输入 c)If a = b And a = c ThenMsgBox 等边三角形 ElseIf a = b Or b = c Or a = c ThenMsgBox 等腰三角形 ElseIf a
8、 * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a ThenMsgBox 直角三角形 ElseMsgBox 一般三角形 End IfEnd Sub4-1Private Sub Form_Click()a = Text1Select Case aCase Is 100Text2 = 成绩不能大于 100Case Is 0Text2 = 数据错误 Case 90 To 100Text2 = 优秀 Case 80 To 89Text2 = 良好 Case 70 To 79Text2 = 中等 Case 60 T
9、o 69Text2 = 及格 Case ElseText2 = 不及格 End SelectEnd Sub4-2Private Sub Form_Click()a = Int(Rnd * 9) + 1: n = Int(Rnd * 6) + 5 Print a= & a, n= & ni = 0: s = 0: t = a Do Print a;i = i + 1 s = s + a a = a * 10 + t Loop Until i = n Print Print sPrivate Sub Command1_Click() Dim m As Integer m = Text1Select
10、 Case mCase 3, 4, 5Text2 = springCase 6, 7, 8Text2 = summerCase 9, 10, 11Text2 = autumnCase 1, 2, 12Text2 = winterCase ElseEnd Sub5-4Private Sub Form_Click()Dim m As Integer, n As Integerm = InputBox(input m): n = InputBox(input n)s = m * nIf m n Then i = m: m = n: n = iDoi = m Mod n m = n: n = i Lo
11、op Until n = 0 s = s / mText2 = 一年只有 12 个月 End SelectEnd SubPrivate Sub Form_Load()Print 最大公约数是 & m, 最小公倍数是 & sEnd Sub6-4Private Sub Form_click()For i = 1 To 9For j = 1 To im = i * jPrint Tab(j * 8 - 8); i & & j & = & m;Next j PrintNext iEnd Sub6-4 (九九乘法表)Private Sub Form_click()For i = 1 To 9For j
12、= 1 To im = i * jPrint Tab(j * 8 - 8); i & Next jPrintNext iEnd Sub11-1Private Sub Option12_Click()Text1.FontBold = False Text1.FontItalic = TrueEnd SubPrivate Sub Option13_Click()Text1.FontBold = True & j & = &T emx;t 1.FontItalic = TrueEnd SubPrivate Sub Option2_Click()Text1.FontName = 隶书 End SubP
13、rivate Sub Check1_Click()Not Private Sub Option3_Click()Text1.FontStrikethruText1.FontName = 幼圆 Text1.FontStrikethruEnd SubEnd SubPrivate Sub Check2_Click()Text1.FontUnderlineText1.FontUnderlineEnd SubPrivate Sub Command1_Click()EndEnd SubNot Private Sub Option4_Click()Text1.FontSize = 18End SubPrivate Sub Option5_Click()Text1.FontSize = 20End SubPrivate Sub Option6_Click()Text1.FontSize = 22Private Sub Option1_Click()Text1.FontName = 宋体 End SubPrivate Sub Option10_Click()Text1.FontBold = FalseText1.FontItalic = FalseEnd SubPrivate Sub Option11_Click()
