1、大学计算机VB必考操作题汇总全Private Sub Command1_Click() Dim x As Integer, y As Integer Text1.Text = InputBox(请输入年份) x = Val(Text1.Text) Text3.Text = (x Mod 4) = 0 And (x Mod 100 0) _ Or (x Mod 4) = 0 And (x Mod 400 = 0) End SubPrivate Sub Command2_Click()Dim x As Integer, y As Integer Text2.Text = InputBox(请输入月
2、份) y = Val(Text2.Text) Select Case y Case 3 To 5 Text4.Text = 春季 Case 6 To 8 Text4.Text = 夏季 Case 9 To 11 Text4.Text = 秋季 Case 1, 2, 12 Text4.Text = 冬季 End SelectEnd SubPrivate Sub Command3_Click()Dim x As Integer, y As Integer Text1.Text = InputBox(请输入年份) x = Val(Text1.Text) Text3.Text = (x Mod 4)
3、= 0 And (x Mod 100 0) _ Or (x Mod 4) = 0 And (x Mod 400 = 0) Text2.Text = InputBox(请输入月份) y = Val(Text2.Text) Select Case y Case 1, 3, 5, 7, 8, 10, 11 Text5.Text = 31天 Case 4, 6, 9, 12 Text5.Text = 30天 Case 2 If Text1.Text = 0 Then Text5.Text = 29天 Else Text5.Text = 28天 End If End SelectEnd Sub (判闰年
4、)Private Sub Command1_Click()Dim m%, n%, d%, sun%, no$, name$no = InputBox(输入学号)name = InputBox(输入姓名)m = Val(Text1.Text)n = Val(Text2.Text)d = Val(Text3.Text)sun = m + n + dIf m 95 And n 95 And d 95 ThenLabel5.Caption = name & 获一等奖学金ElseIf m = 90 And n = 90 And d = 90 ThenLabel5.Caption = name & 获二等
5、奖学金ElseIf m = 88 And n = 88 And d = 88 ThenLabel5.Caption = name & 获三等奖学金ElseLabel5.Caption = name & 没有奖学金End IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Label5.Caption = End SubPrivate Sub Command3_Click()EndEnd Sub (判奖学金)Private Sub Command1_Click()Dim x!, f!x = Val
6、(InputBox(请输入x的值)If (x 0 And x -3) Thenf = x 2 + x - 6ElseIf (x = 0 And x 10 And x 2 And x 3) Thenf = x 2 - 5 * x + 6Elsef = x 2 - x - 1End IfMsgBox f(x)的值是 & fEnd Sub (求f(x))Private Sub Command1_Click()Dim m!, n%, d!m = Val(Text1.Text)n = Val(Text2.Text)d = n - 110Label5.Caption = 按你的身高,标准体重为: & d
7、& 公斤If m - d 5 ThenLabel6.Caption = 你比较胖,请注意瘦身ElseIf m = d ThenLabel6.Caption = 你是标准体重ElseLabel6.Caption = 你比较瘦,请注意锻炼End IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Label5.Caption = Label6.Caption = End SubPrivate Sub Command3_Click()EndEnd Sub (胖瘦)Private Sub Command1_Click()Dim
8、m$, n%, d!m = Text1.Textn = Val(Text2.Text)d = Val(Text3.Text)If m = 男 And n = 18 And n 1.63 ThenLabel5.Caption = 符合征兵条件ElseIf m = 女 And n = 16 And n 1.6 ThenLabel5.Caption = 符合征兵条件ElseLabel5.Caption = 不符合征兵条件End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub (征兵)Private Sub Command1_Click()Dim m!,
9、 n, r%, dj!m = Val(Text1.Text)n = Val(Text2.Text)dj = Val(Text3.Text)Select Case mCase 9 To 12 r = 90Case 12 To 16 r = 80Case 16 To 21r = 70End SelectLabel5.Caption = 打折率为: & Str(r) & %Label6.Caption = 共收款 & r * dj * n / 100 & 元End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text
10、1.Text = Time()End Sub (买水果)Private Sub Command1_Click()Dim m%, n%, r%, dj!m = Val(Text1.Text)n = Val(Text2.Text)dj = Val(Text3.Text)Select Case mCase 1 To 5If n = 20 Then r = 20 Else r = 30Case 7 To 9If n = 20 Then r = 5 Else r = 15Case Elser = 20End SelectLabel4.Caption = 所订机票的优惠率为: & Str(r) & %La
11、bel6.Caption = 单张票价为 & (100 - r) * dj / 100 & 元 & ,共收款 & (100 - r) * dj * n / 100 & 元End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text1.Text = Month(Date)End Sub (机票优惠)Private Sub Command1_Click()i = Val(Text1.Text)j = Val(Text2.Text)k = Val(Text3.Text)m = Val(Text4.Text)If (i
12、 j) Then c = i: i = j: j = cIf (i k) Then c = i: i = k: k = cIf (i m) Then c = i: i = m: m = cIf (j k) Then c = j: j = k: k = cIf (j m) Then c = j: j = m: m = cIf (k m) Then c = k: k = m: m = cText5.Text = iText6.Text = jText7.Text = kText8.Text = mEnd SubPrivate Sub Command2_Click()Text1.Text = Tex
13、t2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = End SubPrivate Sub Command3_Click()EndEnd Sub (四个数排序)Private Sub Command1_Click()i = Val(Text1.Text)j = Val(Text2.Text)k = Val(Text3.Text)m = iIf (i j) Then m = jIf (m k) Then m = kText4.Text = mEnd Sub Private S
14、ub Command3_Click()EndEnd Sub (三个数的大数)Private Sub Command1_Click()i = Val(Text1.Text)j = Val(Text2.Text)k = Val(Text3.Text)m = Abs(i)If (m Abs(j) Then m = Abs(j)If (m 5000r = 4: n = (m - 1500) * r / 100: dj = m - nCase Elser = 0: n = 0: dj = mEnd SelectText2.Text = n & 元Text3.Text = dj & 元End SubPri
15、vate Sub Command2_Click()EndEnd Sub (税金)Private Sub Command1_Click()End SubPrivate Sub Form_Click()Dim a As Single, b As Single, c As Single Dim D As Single, x1 As Single, x2 As Single a = Val(InputBox(请输入一元二次方程的系数a) b = Val(InputBox(请输入一元二次方程的系数b) c = Val(InputBox(请输入一元二次方程的系数c) If a = 0 Then a = I
16、nputBox(请重新输入系数a) End If D = b * b - 4 * a * c If D = 0 Then x1 = (-b + Sqr(D) / (2 * a) x2 = (-b - Sqr(D) / (2 * a) Print x1=; Format(x1, 0. #) Print x2=; Format(x2, 0. #) Else Print 此方程在实数范围内无解 End IfEnd Sub (求根)Private Sub Command1_Click()Dim str As String, s!, n%n = 0Print Tab(5); 成绩; Tab(20); 等
17、级PrintFor i = 1 To 5Text1.Text = InputBox(请输入学生的成绩)If Val(Text1) 100 Thenstr = 数据不合法n = n + 1ElseIf Val(Text1) = 60 Thenstr = 合格Elsestr = 不合格End Ifs = s + Val(Text1.Text)End IfPrint Tab(5); Val(Text1); Tab(20); strNext iPrintPrint Tab(10); 平均成绩为: & s / (5 - n)End Sub (计算成绩)Private Sub Command2_Click
18、()Dim i%, n%, sum! sum = 0: n = 0 For i = 101 To 500 Step 2 sum = sum + i n = n + 1 Next i Text1.Text = sum Text2.Text = nEnd SubPrivate Sub Command1_Click() Dim i%, n%, sum! i = 101: sum = 0: n = 0 Do Until i 500 sum = sum + i n = n + 1 i = i + 2 Loop Text1.Text = sum Text2.Text = n End Sub ( 所有奇数和
19、他们的和)Private Sub Form_Click() n1 = InputBox(输入n) m1 = InputBox(输入m) If m1 n1 Then mn m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Print Print Tab(5); m1; , ; n1; 的最大公约数为: ; nEnd Sub (最大公约数)Private Sub Command1_Click()Dim s!, f!, n%n = InputBox(请输入n的
20、值)s = 0: f = 1For i = 1 To nf = i * i / (i + 1)s = s + fNext iMsgBox s=1*1/(1+1)+2*2/(2+1)+.= & sEnd Sub (求和)Private Sub Command1_Click()Dim i%, n#, t#, e#, x!, t1# e = 0 存放累加和结果 i = 0 计数器 n = 1 存放阶乘的值 t = 1 级数第i项值 t1 = 1 存放x的幂 x = InputBox(输入x的值:) Do While t 0.00001 e = e + t i = i + 1 n = n * i t1
21、 = t1 * x t = t1 / n Loop Print 计算了 ; i; 项; e的x的值是 ; eEnd Sub (求e的值)Private Sub Command2_Click() Dim x%, y%, z% For x = 1 To 33 For y = 1 To 20 z = 100 - x - y If 9 * x + 15 * y + z = 300 Then Picture2.Print x, y, z End If Next y Next x End SubPrivate Sub Command1_Click() Dim x%, y%, z% For x = 1 To
22、 33 For y = 1 To 20 For z = 3 To 99 Step 3 If (3 * x + 5 * y + z 3 = 100) And (x + y + z = 100) Then Picture1.Print x, y, z End If Next z Next y Next x End Sub ( 白鸡问题)Private Sub Command1_Click() Dim i!, n!, sum! i = 1: sum = 1: n = 1 Do Until sum 20000 sum = sum * i n = n + 1 i = i + n Loop Text1.T
23、ext = sum Text2.Text = n - 1 End Sub (求和)Private Sub Command1_Click()s = 0For i = 300 To 400If i Mod 3 = 0 Thennum7 = num7 + 1s = s + iEnd IfNext iPrint 100-400之间能被3整除的数字和为:; sEnd Sub (求3的倍数和)Private Sub Command1_Click()Dim s!, f!, n%n = InputBox(请输入n的值)s = 0: f = 1For i = 1 To ns = s + 1 / ff = f *
24、 iNext iPrint s=1+1/2!+1/3!+.=; sEnd Sub (求s的值)Private Sub Command1_Click()num = 0num7 = 0For i = 1 To 100If i Mod 7 = 0 Thennum7 = num7 + 1num = num + iEnd IfNext iText1.Text = Str(num)Text2.Text = Str(num7) & 个End Sub (求7的倍数)Private Sub Command1_Click()Dim s!, f!, n%n = InputBox(请输入n的值)s = 0: f =
25、1For i = 1 To nf = f * is = s + f / (i + 1)Next iPrint s=1!/2+2!/3+3!/4+.=; sEnd Sub (求s的值)Private Sub Command1_Click() Dim i!, n!, sum!, f! i = 1: sum = 1: n = 1: f = 1 Do Until f 30000 Print n; 年后, 产值=; p; 是原来的两倍以上End Sub (求产量翻番)Option Base 1Private Sub max1(ByVal m1%, ByVal m2%, ByVal m3%, ByVal
26、m4%) Max = m1 If m2 Max Then Max = m2 If m3 Max Then Max = m3 If m4 Max Then Max = m4 Text5.Text = MaxEnd SubPrivate Sub Command1_Click() m1 = Val(Text1.Text) m2 = Val(Text2.Text) m3 = Val(Text3.Text) m4 = Val(Text4.Text) Call max1(m1, m2, m3, m4) End Sub (求最大数)Option Base 1Private Function min(ByVal m1%, ByV
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1