常见问题的VB代码.docx

1、常见问题的VB代码2到6的偶数阶乘的和Private Sub Command1_Click()For x = 2 To 6 Step 2s = s + jc(x)Next xPrint s=; sEnd SubPublic Function jc(n)j = 1For i = 1 To nj = j * iNext ijc = jEnd FunctionPrivate Sub Form_Load()End Sub99乘法表Private Sub Form_Click()Dim se As StringPrint Tab(35); 九九乘法表Print Tab(35); -For i = 1 T

2、o 9For j = i To 9se = i & * & j & = & i * jPrint Tab(j - 1) * 9 + 1); se;Next jPrintNext iEnd Sub求1000以内的素数Private Sub Command1_Click()List1.AddItem 2List1.AddItem 3For x = 2 To 1000For i = 2 To Sqr(x)t = 1If x Mod i = 0 Then x/i=int(x/i)t = 0Exit ForEnd IfNext iIf t = 1 ThenList1.AddItem xEnd IfNex

3、t xEnd SubPrivate Sub Form_Load()End Sub成绩评定Private Sub Command1_Click()Dim g As Singleg = InputBox(输入成绩)If g = 90 Then grade = 优ElseIf g = 80 Then grade = 良ElseIf g = 70 Then grade = 中ElseIf g = 60 Then grade = 及格Else grade = 不及格End IfMsgBox (成绩为： & g & 评定为： & grade)End SubPrivate Sub Form_Load()En

4、d Sub求二元一次方程组的解Private Sub IntSqr(A As Long, Zs As Long, Gh As String)Dim I As Long, J As Long, B As LongB = AJ = 1For I = 2 To B - 1If B Mod I = 0 And Int(Sqr(B / I) = Sqr(B / I) Then Zs = Sqr(B / I) Gh = ( & I & ) Exit SubEnd IfNext IEnd SubPrivate Sub Command1_Click()Dim A As Long, B As Long, c A

5、s LongA = Text1.TextB = Text2.Textc = Text3.TextYyecfc A, B, cEnd SubPrivate Sub Yyecfc(A As Long, B As Long, c As Long)Dim PbsZs As Long, PbsXs As String, Pbs As LongPbs = B 2 - 4 * A * cIf Pbs n1 Then m = m1: n = n1Else m = n1: n = m1End Ifr = m Mod nDo While r 0 m = n n = r r = m Mod nLoopPrint m

6、1; ,; n1; 的最大公约数; nPrint 最小公倍数=, m1 * n1 nEnd Sub计算二元一次方程的解Private Sub Command1_Click()Dim a As Single, b As Single, c As SingleDim d As Single, x1 As Single, x2 As Singlea = InputBox(一元二次方程的系数a)b = InputBox(一元二次方程的系数b)c = InputBox(一元二次方程的系数c)If a = 0 Thena = InputBox(二次项系数不能为0，请重新输入系数a)End Ifd = b

7、* b - 4 * a * cIf d = 0 Then x1 = (-b + Sqr(d) / (2 * a) x2 = (-b - Sqr(d) / (2 * a) Print 方程的解x1=; x1 Print 方程的解x2=; x2 Else Print 此方程在实数范围内无解 End IfEnd SubPrivate Sub Form_Load()End Sub交换两个数的位置Private Sub command1_click()Dim a(10) As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90 + 10)Print a(i);Next i

8、For j = 1 To 10 / 2t = a(j): a(j) = a(11 - j): a(11 - j) = tNext jPrintPrint 交换后For i = 1 To 10Print a(i);Next iEnd SubPrivate Sub Form_Load()End Sub控制文字变化（大小 字体 粗体）Private Sub Check1_Click()Text1.Font.Bold = Not Text1.Font.BoldEnd SubPrivate Sub Check2_Click()Text1.Font.Italic = Not Text1.Font.Ital

9、icEnd SubPrivate Sub Check3_Click()Text1.Font.Strikethrough = Not Text1.Font.StrikethroughEnd SubPrivate Sub Check4_Click()Text1.Font.Underline = Not Text1.Font.UnderlineEnd SubPrivate Sub Form_Load()End SubPrivate Sub Option1_Click()Text1.Font.Name = 宋体End SubPrivate Sub Option2_Click()Text1.Font.N

10、ame = 黑体End Sub冒泡排序法Private Sub Command1_Click()Dim a(), n%, i%, j%, t%a = Array(8, 6, 9, 3, 2, 7)n = UBound(a)For i = 0 To n - 1For j = 0 To n - 1 - iIf a(j) a(j + 1) Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iFor i = 0 To n: Print a(i);:Next iEnd SubPrivate Sub Form_Load()End Sub

11、猴子吃桃的问题Private Sub Form_Click()Dim n%, i% x = 1Print 第7天的桃子数为:1只For i = 6 To 1 Step -1 x = (x + 1) * 2Print 第; i; 天的桃子数为:; x; 只 Next iEnd Sub调节字体变化Dim red As Long, green As Long, blue As LongPrivate Sub Command1_Click()Text2.ForeColor = Text1.BackColorEnd SubPrivate Sub Command2_Click()Text2.BackCol

12、or = Text1.BackColorEnd SubPrivate Sub Form_Load()End SubPrivate Sub HScroll1_Change()red = HScroll1.Valuegreen = HScroll2.Valueblue = HScroll3.ValueText1.BackColor = RGB(red, green, blue)End SubPrivate Sub HScroll2_Change()red = HScroll1.Valuegreen = HScroll2.Valueblue = HScroll3.ValueText1.BackCol

13、or = RGB(red, green, blue)End SubPrivate Sub HScroll3_Change()red = HScroll1.Valuegreen = HScroll2.Valueblue = HScroll3.ValueText1.BackColor = RGB(red, green, blue)End Sub子函数问题Private Sub Command1_Click()For x = 2 To 6 Step 2s = s + jc(x)Next xPrint s=; sEnd SubPublic Function jc(n)j = 1For i = 1 To nj = j * iNext ijc = jEnd FunctionPrivate Sub Form_Load()End Sub最大公约数 最小公倍数Private Sub Form_Click()n1 = InputBox(输入n)m1 = InputBox(输入m)If m1 n1 Thenm = m1: n = n1Elsem = n1: n = m1End Ifr = m Mod nDo While r 0m = nn = rr = m Mod nLoopPrint m1; ,; n1; 的最大公约数为; nPrint 最小公倍数=, m1 * n1 / nEnd Sub