信息技术学业水平测试VB套操作题复习及答案

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,Private Sub Command1_Click(),Dim h, m, s,ss,As Integer,ss,= Val(,Text1.Text,),h =,ss, 3600,m = (,ss,- h * 3600) 60,s = (,ss,- h * 3600) Mod,60,Label1.Caption =,CStr,(h),Label2.Caption =,CStr,(m),Label3.Caption =,CStr,(s),End Sub,VB,操作一,Private Sub Command1_Click(),Dim x As String, y As String,Dim i As Integer,Dim temp1 As String, temp2 As String,x = Text1.Text,y = ,For i = 1 To,Len,(Text1.Text),temp1 = Mid(x, i, 1),temp2 =,9 - temp1,y = y + temp2,Next i,Text2.Text =,y,End Sub,VB,操作一,Private Sub Command1_Click(),Dim i As Integer, a As Integer, b As Integer, c As Integer,For i = 100 To 999,a = i ,100,b = (i - a *,100,) 10,c = i Mod 10,If a 3 + b 3 + c 3 = i Then Print i,Next i,End sub,VB,操作一,Private Sub Command1_Click(),Dim s(9) As Single,For i = 0 To 9,s(i),= Val(,InputBox,(,请输入一个数),Next i,For i = 9 To 0 Step,-1,Print,s(i),Next i,End Sub,VB,操作一,Private Sub Command1_Click(),Dim a, b, c, max As Integer,a = Val(Text1.Text),b = Val(Text2.Text),c = Val(Text3.Text),If a b Then max = a,Else,max = b,If c max Then,max = c,Label3.Caption =,CStr,(max,),End Sub,VB,操作一,VB,操作二打不开,Private Sub Command1_Click(),Dim s As Single,Dim q As Single,Dim a As Single,Dim b As Single,Dim c As Single,a,= Val(,InputBox,(,请输入边长,a,的值：),b = Val(,InputBox,(,请输入边长,b,的值：),c = Val(,InputBox,(,请输入边长,c,的值：),q = (a + b + c) / 2,s =,Sqr,(,q * (q - a) * (q - b) * (q - c),),Print,s,End Sub,VB,操作三,Private Sub Command1_Click(),Dim year As Integer,year = Val(InputBox(,请输入年号:),If (year Mod 4 = 0) And (year Mod 100 0),Or,(year Mod 400 = 0) Then,Print,是闰年,Else,Print,不是闰年,End If,End Sub,VB,操作三,Private Sub Command1_Click(),Dim a As Integer, b As Integer,Dim,bai,As Integer, shi As Integer,Dim g As Integer,a = Val(,Text1.Text,),bai,= a 100,shi = (a -,bai,* 100) 10,g = a Mod 10,b,= g * 100 + shi * 10 +,bai,Text2.Text,=,CStr,(b),End Sub,VB,操作三,Private Sub Command1_Click(),Dim x As Single, y As Single,a = 3: b = -5,x,= Val(InputBox(,请输入,x,的值),If x = 0,Then,X1 = (-b +,Sqr,(p) / (2 * a),X2 = (-b -,Sqr,(p) / (2 * a),Print X1=; X1,Print X2=; X2,Else,Print ,该方程无实数根,End If,End Sub,VB,操作三,Private Sub Command1_Click(),Dim,Wuyuan,As Integer,Dim,Yiyuan,As Integer,Dim,Wujiao,As Integer,For,Wuyuan,= 1 To 20,For,Yiyuan,= 1 To,100,Wujiao,= 100 -,Wuyuan,-,Yiyuan,If,Wuyuan,* 5 +,Yiyuan,* 1 +,Wujiao,* 0.5 = 100 Then,Print ,Wuyuan,= &,Wuyuan,& ,Yiyuan,= &,Yiyuan,& ,Wujiao,= &,Wujiao,End If,Next,Yiyuan,Next,Wuyuan,End Sub,VB,操作四,Private Sub Command1_Click(),Dim x As Single,Dim cost As Single,x = Val(InputBox(,请输入苹果公斤数：),If x c) And (a + c b) And (b + c a) Then,Let Text4.Text = OK,Else,Let Text4.Text = NO,End If,End Sub,VB,操作四,Private Sub Command1_Click(),Dim i, a, b As Integer,For i = 100 To,999,a = i 100,b = (i - a * 100) 10,c =,i Mod 10,If a * a * a + b * b * b + c * c * c = i Then,Print,CStr,(i),End If,Next i,End Sub,VB,操作五,Private Sub Command1_Click(),Dim h, x, y,As,Single,Let x = Val(Text1.Text),Let,h,= Val(Text2.Text),Let y = x - (h / 100) * 0.5,Let Text3.Text =,y,End Sub,VB,操作五,Private Sub Command1_Click(),Dim a As Integer,Dim b As Integer,Dim t As Integer,a = Val(Text1.Text),b = Val(Text2.Text),t = a,a =,b,b =,t,Text1.Text =,a,Text2.Text =,b,End Sub,VB,操作五,Private Sub Command1_Click(),Dim n, i As Long,Dim yes As,Boolean,Let n = Val(Text1.Text),Let yes = True,For i = 2 To n 2,If n Mod i = 0 Then,Let yes =,False,End If,Next i,If yes Then,Let Text2.Text = yes,Else,Let Text2.Text = no,End If,End Sub,VB,操作五,Private Sub Command1_Click(),Const pi = 3.14,Dim,r, s As Single,r = Val(,T1.Text,),s = pi * r * r,T2.Text =,s,End Sub,VB,操作五,Private Sub Command1_Click(),Form1.Caption,= Text1.Text,End Sub,VB,操作六,Private Sub Command1_Click(),Dim a As Integer,a = Val(,Text1.Text,),If,a Mod 2,= 0 Then,Label1,.Caption,= ,偶数,Else,Label1.Caption = ,奇数,End If,End Sub,VB,操作六,Private Sub Form_Click(),Dim i As Integer,Dim j As Integer,Print,For i = -3 To,3,Print Tab(3);,For j = 1 To 3 -,Abs(i),Print,*;,Next,Print *,Next,End Sub,VB,操作六,Private Sub Command1_Click(),Dim s As Single s,计算存款,Dim y As Integer y,计算年份,Dim r As Single r,是年利率,s =,1000,y = 0,r = Val(InputBox(,输入年利率, 数据输入框),Do While s,= 2000,y =,y + 1,s = s *,(1 + r),Loop,Print y; ,年以后，存款可以达到2000元,End Sub,VB,操作六,Private Sub Command1_Click(),Dim,tz,As Integer ,tz,是桃子数,Dim,ts,As Integer ,ts,是天数,tz,=,1,For,ts,= 1 To,9,tz,=,(,tz,+1),* 2,Next,ts,Print ,最初共有桃子 &,tz,End Sub,倒推：,第10天：1个,第9天：4个,第8天：10个,第7天：22个,。,。,第1天：？,设今天,X,个，剩下为,Y,个（明天）,那么,Y=X-（1/2*X+1)=1/2*X-1,则,X=（Y+1）*2,VB,操作六,Private Sub Form_Load(),Timer1.Interval = 1000,Label1.Caption = ,End Sub,Private Sub Timer1_timer(),Label1.Caption = Time,End Sub,VB,操作七,Private Sub Command1_Click(),Dim x As Integer,Dim s As Integer,Dim i As Integer,For i = 1,To 10,x = Val(InputBox(NO. & i),s = s + x,Print,CStr,(x),Next i,Print total: &,s,End Sub,VB,操作七,Private Sub Command1_Click(),Dim w As Integer w,是行李重量,Dim,pj,As Integer ,pj,是机票价格,Dim,fy,As Single,w = Val(Text1.Text),pj,= Val(Text2.Text),If w = 20 Then,fy,= 0,Else,fy,= (w - 20) *,pj,* 0.015,End If,Text3.Text =,fy,End Sub,VB,操作七,Private Sub Command1_Click(),Dim x As Single,x = Val(InputBox(,请输入,x,的值！),If x 50 Then,y = 0.8 * x,Else,If x 16.67,Label1.Caption = ,飞船挣脱太阳引力飞出太阳系,case,is =11.19,Label1.Caption = ,飞船离开地球的控制,围绕太阳转,case,is =7.91,Label1.Caption = ,飞船绕地球似做匀速圆周运动,Case Else,Label1.Caption = ,输入数据错误！,End select,End Sub,Private Sub Command1_Click(),Dim a(10) As Integer,For i = 1 To 10,a(i) =,Int,(,Rnd,* 1000),Next i,For i = 1,to 9,For j =,i+1 to 10,If a(i),a(j) Then,a(0) = a(i),a(i) = a(j),a(j) =a(0),End If,Next j,Next i,For i = 1 To 10,Print,CStr,(a(i),Next i,End Sub,Private Sub Command1_Click(),Dim x As Integer, y As Integer,x = Val(InputBox(,请输入,x,的值：),If,x=0,Then,y = x,Else,y= -x,End If,Text1.Text =,y,End Sub,Private Sub Command1_Click(),Dim x As Long,For x =,67008,To 67998 Step 10,If (x Mod 67 = 0) Or (x Mod 78 = 0) Then,Print,x,End If,next x,End Sub,Private Sub Form1_Click(),Dim,tz,As Single,sg,As Single,Dim,bz,As Single,tz,= Val(InputBox(,请输入您的体重：),sg,= Val(InputBox(,请输入您的体重：),bz,=,tz,/,sg, 2,If,bz, 25 Then,MsgBox,(,您的身材偏胖，需要加强锻炼！),Else,If,bz,18.5,Then,MsgBox,(,您的身材偏瘦，需要补充营养！),Else,MsgBox,(,您的身材真棒！),End If,End If,End Sub,VB,操作九,Private Sub Command1_Click(),x = Val(Text1.Text),If x Mod 3 = 2 Then,If = 3 Then,If Then,Print ,End If,End If,End If,End Sub, x mod 5, x mod 7=4, x,Private Sub Form_Click(),Dim p As Integer ,变量,p,保存人口,Dim n As Long,n = 0,Do While ,p = p * ,n = ,Loop,Print n= &,CStr,(n),End Sub, p=14, p=20, (1+0.04), n+1,Private Sub Command1_Click(),Dim s As Integer,Dim a As Integer,Dim b As Integer,Dim k As Integer,s = 0,a = 1,b = 1,For k = 1 To 10,s = s + a / b,a = ,s = ,b = ,Next k,Print s,End Sub,a =,a+b,s =,s+b/a, b =,a+b,Private Sub Command1_Click(),Dim i As Integer,Dim s As Integer,i = 1,s = 0,Do While i 1500,Print N= &,CStr,(),End Sub, n, n+20, n-20,VB,操作十,Private Sub Command1_Click(),Dim S1 As Single, S2 As Single,Dim V1 As Single, V2 As Single,Dim T As Single,S1 = Val(InputBox(,请输入王晓珊家离学校的距离：),V1 = Val(InputBox(,请输入王晓珊步行速度：),V2 = Val(InputBox(,请输入李明步行速度：),T = ,S2 = * T,Print ,End Sub, s1/v1, v2, s2,Public Function,Fac,(a As Integer) As Integer,If a = 1 Then,Fac,= ,Else,Fac,= a * (a - 1),End If,End Function,Private Sub Command1_Click(),Dim S As Integer,S =,Fac,(3) +,Fac,() +,Fac,(7),Print S= &,CStr,(S),End Sub, 1,Fac, 5,Public Function S(n As Integer) As Integer,If n = 1 Then,S = ,Else,S = + S(n - 1),End If,End Function,Private Sub Command1_Click(),Dim Sum As Integer,Sum = S(),Print Sum= &,CStr,(Sum),End Sub, 1, n, 100,Private Sub Command1_Click(),Dim L As Integer,Dim chang As Integer,Dim kuai As Integer,Dim s As Integer,Dim smax As Integer,smax = 0,L = InputBox(,请输入一条铁丝的长度：),For chang = 1 To L 2,For kuai = 1 To L 2 - chang,s = ,If Then,smax = s,End If,Next kuai,Next chang,Print ,End Sub, chang*kuai, ssmax, smax,Private Sub Command1_Click(),Dim H As Single, L As Single,Dim S As Single, Home As Single,Home = Val(InputBox(,请输入一个起始高度：),H = Home,S = 0,Do,L = 0.7 * ,S = S + H + L,H = ,Loop While L = Home / 1000,Print ,End Sub, H, L, S,第11套不做，打不开,VB,操作十二,Private Sub Command1_Click(),Dim t As Single ,定义变量,t，,值由文本框,Text1,读入,t = Val(),If Then,Label1.Caption = ,超重！不能参赛！,Else,Label1.Caption = ,合格，可以参赛！,End Sub, text1.text, t60,Endif,Private Sub Command1_Click(),Dim,Cj,As Single ,定义变量,Cj,，,值由文本框,Text1,读入,Cj,= Val(),If,Cj, 60 Then,Label1.Caption = ,不及格,End If,If,Cj,= 60 Then,Label1.Caption = ,良好,End If,If,Cj,= 85 Then,Label1.Caption = ,优秀,End If,End Sub, text1.text, , And,Cj,85,Private Sub Form_Click(),Dim s As Single s,变量用于存放计算结果,Dim p As Single,Dim i As Integer ,定义一个循环变量,给,s,赋初值,s = ,给,p,赋初值,p = ,For i = 1 To 8,p = p * i,s = ,Next i,Print s=;,CStr,(s),End Sub, 0, 1, s+p,Private Sub Form_Click(),Dim s As Integer ,变量,s,存放和,Dim n As Integer,n = ,为,n,赋初值,s = ,为,s,赋初值,Do While s 500,n = n + 1,s = ,Loop,Text1.Text =,CStr,(n - 1),End Sub, 0, 0, s+n, 0, 0, =500,Private Sub Form_Click(),Dim s As Integer ,变量,s,存放和,Dim n As Integer,s = ,为,s,赋初值,n = ,为,n,赋初值,Do,n = n + 1,s = s + n,Loop While s 500,Text1.Text =,CStr,(n),End Sub,VB,操作十三,Private Sub Command1_Click(),Dim a As Integer,Dim i As Integer,a = ,For i = 1 To Step 1,a = ,Next i,Text1.Text =,CStr,(),End Sub, 0, 100,a+i, a,Private Sub Command1_Click(),Dim a As Integer,Dim i As Integer,a = 1,For i = 1 To Step 1,a = ,Next i,Text1.Text =,CStr,(),End Sub, 7, a*i, a,Private Sub Form_Click(),Dim s As Single ,定义变量,s,为单精度型,Dim i As Integer ,定义循环变量,s = ,For i = 1 To Step 1,s = s + ,Next i,Print s=;,CStr,(s),End Sub, 0, 100, 1/i,Private Sub Form_Click(),Dim p As Single ,变量,p,保存年产值,Dim n As Integer ,整型变量,n,为所求年数,n = 0,Do While p 4000,p = p * ,n = ,Loop,Print n=;,CStr,(n),End Sub, p=2000, (1+0.05), n+1,Private Sub Form_Click(),Dim s As Single,Dim i As Integer,s = ,For i = 1 To Step 1,If i Mod 2 0 Then,s = s + 1 / i,Else,s = ,End If,Next i,Print s=;,CStr,(s),End Sub, 0, 100, s = s - 1 / i,VB,操作十四,Private Sub Command1_Click(),Dim i As Integer ,定义,i,为整型变量,Dim j As Integer ,定义,j,为整型变量,For i = 1 To 6 Step 1,For j = 1 To Step 1,Print ,Next ,Print,Next i,End Sub, i, “”,;, j,Private Sub Command1_Click(),Dim a(9) As Integer,Dim s As Single,Dim i As Integer,Me.,Cls,s = 0,Randomize,For i = 0 To Step 1,a(i) =,Int,(,Rnd,* 100),Print a(i),Next i,For i = 0 To 9,s = ,Print ,这10个自然数的平均值=;,s / 10,End Sub, 9, s+a(i), Next i,Private Sub Form_Click(),Dim,Ji,As Integer ,Ji,变量表示鸡的个数,Dim,Tu,As Integer ,Tu,变量表示兔的个数,Dim Leg As Integer Leg,变量表示腿数,For,Ji,= 1 To 40,Tu,= ,计算腿数,Leg = +,Tu,* 4 ,如果腿正好100只，则打印。,If Leg = Then,Print ,鸡=;,Ji,; ,只, 兔=;,Tu,; ,只,End If,Next,Ji,End Sub, 40-,ji,ji,*2, 100,Private Sub Form_Click(),Dim i As Integer,Dim j As Integer,For i = To 1 Step -1,For j = 1 To i Step 1,Next j,Print,End Sub, 4, Print ”*”,;, Next i,Private Sub Command1_Click(),Dim x, y As Integer,x = 10,y = 100,If x y Then,以下三条语句交换,x,y,的值,t = ,x = y,y = ,End If,Text1.Text = ,Text2.Text =,CStr,(y),End Sub, x, t,CStr,(x),VB,操作十五,Private Sub Command1_Click(),Dim i As Integer,Dim j As Integer,For i = 1 To Step 1,Print ;,For j = 1 To 9,Print ,Print,vbTab,;,Next j,Print,End Sub, 9, i*j,;, Next i,Private Sub Command1_Click(),Dim a(9) As Integer,Dim max As Integer,Dim i As Integer,Me.,Cls,Print,Randomize,For i = 0 To Step 1,a(i) =,Int,(,Rnd,* 100),Print a(i),Next i,max = a(0),For i = 1 To 9,If max a(i) Then,max = ,End If,Next i,Print ,这10个自然数中的最大值=;,CStr,(),End Sub, 9, a(i), max,Private Sub Command1_Click(),Dim a As Single,Dim b As Single,从,Text1,中读入这个数,并保存在变量,a,中,a = Val(),b = a Mod ,If b = 0 Then,Label1.Caption = ,偶数,Else,Label1.Caption = ,奇数,End Sub, Text1.text, 2,Endif,