国家计算机二级考试VB实例源码(内部资料)

1、判断素数Dim x%,i%x = Val(Text1.Text)For i = 2 To x - 1If x Mod i = 0 Then Exit ForNext iIf i = x ThenMsgBox x & "是素数"ElseMsgBox x & "不是素数"End If＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝勾股数For a = 1 to 100For b = a to 100c = sqr( a * a + b * b )if c = fix( c ) and c <= 100 then print a,b,cNext bNext a＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝3、求最大公约数，最小公倍数法一dor=m mod nm=nn=rloop until r=0print “最大公约数是：”；m法二Private Sub Command1_Click()Dim a As Integer, b As IntegerDim MaxDeno As IntegerDim MinComMulti As Integera = Text1.Textb = Text2.TextMaxDeno = gcd(a, b)MinComMulti = a * b / MaxDenoPrint MaxDeno; MinComMulti End SubPrivate Function gcd(ByVal x As Long, ByVal y As Long)Dim r As Longr = x Mod yIf r = 0 Thengcd = yElsex = yy = rgcd = gcd(x, y)End IfEnd Function＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝4、常用排序法（OP：>为升序；<为降序）选择排序法For i = 1 To N - 1For j = i + 1 To NIf Sort(i) OP Sort(j) Thentemp = Sort(i)Sort(i) = Sort(j)Sort(j) = tempEnd IfNext jNext i 直接排序法For i = 1 To N - 1pointer = iFor j = i + 1 To NIf Sort(pointer) OP Sort(j) Then pointer = j Next jIf i <> pointer Thentemp = Sort(i)Sort(i) = Sort(pointer)Sort(pointer) = tempEnd IfNext i冒泡排序法For i = 1 To N - 1For j = 1 To N - iIf S(j) OP S(j + 1) Thent = S(j)S(j) = S(j + 1)S(j + 1) = tEnd IfNext jNext i＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝5、常用的查找法顺序查找For i = 1 To UBound(search)If search(i) = x Then Exit For Next iIf i <= UBound(search) ThenPrint "找到了X"ElsePrint "没找到X"End If 二分查找flg = FalseLeft = 1Right = UBound(S)Do While Left <= RightMid = (Left + Right) / 2If x = S(Mid) Thenflag = TrueExit DoElseIf x > S(Mid) ThenLeft = Mid + 1ElseRight = Mid - 1 End IfLoop＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝6、有关数组的算法还有：1)求一维数组a（n）元素的和s = 0For i = 1 To ns = s + a(i)Next i2)求二维数组a（n，m）各元素的和s=0For i=1 to nfor j=1 to ms=s+a(I,j)next jNext I 3)求二维数组a(m,n)周边元素的和s = 0For i = 1 To ns = s + a(1, i) + a(m, i)Next iFor i = 2 To m - 1s = s + a(i, 1) + a(i, n)Next j4)求二维数组a（n，n）主对角线元素的和s = 0For i = 1 To ns = s + a(i, i)Next i5)求二维数组a（n，n）次对角线元素的和s = 0For i = 1 To ns = s + a(i, n + 1 - i)Next＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝7、求最大数，最小数Min = x(0)Max = x(0)For i = 1 To ubound（x）If x(i) < Min Then Min = x(i)If x(i) > Max Then Max = x(i)NextPrint "最大数="; Max & vbCrLf & "最小数 ="; Min＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝。

计算机二级VB语言程序设计考试题及答案计算机二级VB语言程序设计考试题及答案1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Ifn2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.7236B.10836C.726D.2732.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c="1234"Fori=1To4c1=Trim(Str())Printc1NextiEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2TonForj=2Tosqr(i)IfiModj=0ThenExitForNextjIfj>Sqr(i)ThenPrintiNextiEndSub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的'偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=1To5s=s+f(i)NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14C.13D.126.VisualBasic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

9月计算机二级考试VB考试题2017年9月计算机二级考试VB考试题VB是计算机二级考试的科玛之一，你知道计算机二级考试VB科目都考哪些知识吗?为了方便考生备考计算机二级考试VB 科目。

下面是店铺为大家带来的计算机二级考试VB考试题，欢迎阅读。

考试题一：1. 在窗体上画一个命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click( )Dim a ( )a = Array ( 30 , 40 , 70 , 10 , 50 , 80 , 20 , 90 , 60 )s = 0k = 1While k – 10s = s + a ( k )k = k + 1WendAver = s / ( k – 1 )m = 0For i = 1 To k – 1If a ( i ) > Aver Then m = m +1Next iPrint mEnd Sub程序运行后，单击命令按钮，输出结果为( 【84】 )(A)4 (B)5 (C)6 (D)72. 有以下函数：Function Fun(ByVal a As Integer) As IntegerDim b As IntegerStatic c As Integerb=2 : c = 1b = b +2c = c + 2Fun = a + b + cEnd Function在窗体上画一个命令按钮，然后编写如下代码：Privat Sub Command1_Click ( )For i = 1 To 4Print Fun ( i ) ,Next iEnd Sub运行程序后，单击命令按钮，输出结果为( 【85】 )(A)8 8 8 8 (B)8 13 18 23(C)8 9 10 11 (D)8 11 14 173. 下列不能打开属性窗口的操作是( )(A)执行“视图”菜单中的【属性窗口】命令(B)按键(C)单击工具栏上的【属性窗口】按钮(D)按键4. 在使用Visual Basic的工具箱时，如果工具箱没有出现在窗口中，应在( )菜单中操作使它可见。

61、例题10.9 在图片框中画一个箭头，当在图片框中移动鼠标时，箭头会随着鼠标光标的移动而改变方向。

Private Sub Vane_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static LastX As IntegerStatic LastY As IntegerIf X > LastX Then xaxis = 1If X < LastX Then xaxis = -1If Y > LastY Then yaxis = 1If Y < LastY Then yaxis = -1Label1.Caption = Str$(xaxis) + " " + Str$(yaxis)Select Case TrueCase (xaxis = 1 And yaxis = 1)Vane.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\VB 练习用图\1.gif")Case (xaxis = 1 And yaxis = -1)Vane.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\VB 练习用图\2.gif")Case (xaxis = -1 And yaxis = 1)Vane.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\VB 练习用图\3.gif")Case (xaxis = -1 And yaxis = -1)Vane.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\VB 练习用图\4.gif")Case (xaxis = 1 And yaxis = 0)Vane.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\VB 练习用图\5.gif")Case (xaxis = -1 And yaxis = 0)Vane.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\VB 练习用图\6.gif")Case (xaxis = 0 And yaxis = 1)Vane.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\VB 练习用图\7.gif")Case (xaxis = 0 And yaxis = -1)Vane.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\VB 练习用图\8.gif")End SelectLastX = XLastY = YEnd Sub运行结果：62、例题10.10 编写程序，显示鼠标光标的形状。

高教版二级VB教材程序汇编第四章一、VB中常用数据类型整型integer %长整型long &单精度浮点数single ！双精度浮点数double #货币型currency @字符串型string $变体型variant第五章1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。

通过inputbox函数输入数据，在窗体上显示和及平均值。

Dim a as singleFor i=1 to 4a=inputbox（“请输入一个数：”，“数据输入”）sum=sum+an=n+1avg=sum/nnext iprint “和是：”,sumprint “平均值是：”，avg2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。

Dim a as variantFontsize=20a=inputbox（“请输入姓名：”，“数据输入”）print “姓名：”；aa=inputbox（“请输入年龄：”，“数据输入”）print “年龄：”；aa=inputbox（“请输入通信地址：”，“数据输入”）print “通信地址：”；aa=inputbox（“请输入邮政编码：”，“数据输入”）print “邮政编码：”；aa=inputbox（“请输入电话：”，“数据输入”）print “电话：”；a3、编写程序，求解鸡兔同笼问题。

一个笼子中有鸡x只，兔y只，每只鸡有2条腿，每只兔有4只脚。

今知鸡和兔的总头数为h，总脚数为f。

问笼中鸡和兔各若干？算法：h=x+yf=2x+4y计算出：x=（4h-f）/2y=（f-2h）/2程序：Dim h as integer，f as integerh=inputbox（“请输入鸡和兔的总头数：”，“数据输入”）f=inputbox（“请输入鸡和兔的总脚数：”，“数据输入”）x=（4*h-f）/2y=（f-2*h）/2print “鸡的数量为：”；xprint “兔的数量为：”；y4、设a=5，b=2.5，c=7.8，编程序计算：y=（πab）/（a+bc）程序：Dim a as single，b as single，c as singlea=5b=2.5c=7.8pi=3.14y=（pi*a*b）/（a+b*c）print “结果是：”;y5、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。

41、例题8.5 在窗体上建立一个命令按钮、两个单选按钮和一个图片框。

每单击一次命令按钮，增加一个新的单选按钮。

如果单击某个单选按钮，则在图片框中画出具有不同填充图案的圆。

Private Sub Command1_Click()Static MaxIdxIf MaxIdx = 0 Then MaxIdx = 1MaxIdx = MaxIdx + 1If MaxIdx > 7 Then Exit SubLoad OptButton(MaxIdx)OptButton(MaxIdx).Top = OptButton(MaxIdx - 1).Top + 360OptButton(MaxIdx).Visible = TrueEnd SubPrivate Sub OptButton_Click(Index As Integer)Dim H, WPicture1.ClsPicture1.FillStyle = IndexW = Picture1.ScaleWidth / 2H = Picture1.ScaleHeight / 2Picture1.Circle (W, H), W / 2End Sub运行结果：42、例题9.1 编写一个计算矩形面积的Sub过程，然后调用该过程计算矩形面积。

Sub RecArea(Rlen, Rwid)Dim AreaArea = Rlen * RwidMsgBox "Total Area is" & AreaEnd SubPrivate Sub Form_Load()Dim A, BA = InputBox("What is the length ?")A = Val(A)B = InputBox("What is the width ?")B = Val(B)RecArea A, BEnd Sub运行结果：43、例题9.2编写一个用来延迟制定时间（秒）的Sub过程。

（1）在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click()MsgBox f(24,18)End SubPublic Function f(m As Integer,n As Integer) As IntegerDo while m<>nDo while m>nm=m-nLoopDo While m<nn=n-mLoopLoopf=m*nEnd Function窗体打开并运行后，单击命令按扭，则消息框的输出结果是______。

（2）在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：Private Sub Command1_Click()For I =1 To 4x = 3For j = 1 To 3For k = 1 To 2x = x + 3Next kNext jNext IText1.value = Str(x)End Sub打开窗体运行后，单击命令按钮，文本框Text1输出的结果是______。

（3）在窗体上有一个命令按钮Command1，编写事件代码如下：Private Sub Command1_Click()Dim y As Integery = 0Doy = InputBox("y=")If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y;Loop Until y = 0End Sub打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是______。

（4）在窗体上有一个命令按钮Command1，编写事件代码如下：Private Sub Command1_Click()Dim x As Integer, y As Integerx = 12: y = 32Call Proc(x, y)Debug.Print x; yEnd SubPublic Sub Proc(n As Integer, ByVal m As Integer)n = n Mod 10m = m Mod 10End Sub打开窗体运行后，单击命令按钮，立即窗口上输出的结果是______。

VB实例源码（完整资料）.doc【最新整理，下载后即可编辑】课前体验Private Sub Form_Click()For i = 1 To 10For j = 1 To iPrint "* ";Next jPrintNext iEnd Sub【例3-1】Private Sub Form_Click()c1$ = Chr$(13) + Chr$(10)msg1$ = "请输入您的名字: "msg2$ = "输入后按回车键"msg3$ = "或单击“确定”按钮"msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$ name$ = InputBox(msg$, "InputBox 函数示例", "张三") Print name$End Sub【例3-2】Private Sub Form_Click()Msg1$=”Are you Continue to?”msg2$=”Operation Dialog Box”r=MsgBox(msg1$,34,msg2$)Print rEnd Sub【例3-3】编写程序，用MsgBox函数判断是否继续执行。

Private Sub Form_Click()msg$ = "请确认此数据是否正确"Title$ = "数据检查对话框"x = MsgBox(msg$, 19, Title$)If x = 6 ThenPrint x * xElseIf x = 7 ThenPrint "请重新输入"End IfEnd Sub【例3-5】Private Sub Form_Click()Print: PrintFontName = "隶书"FontSize = 16Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务";Print Tab(24); "单位"; Tab(32); "籍贯"PrintPrint "吴大明"; Tab(8); 25; Tab(16); "职员"; Tab(24); "人事科"; Tab(32); "北京"End Sub【例3-6】Private Sub Form_Click()X = InputBox("请输入成绩", "学生成绩录入", "00")Print xEnd Sub【例3-7】Private Sub Form_Click()Dim x As Single, y As Singlex=InputBox(“请输入x的值”)If x>0 Then y=1 ElseIf x=0 Then y=0 Else y=-1Print “x=”; x ,”y=” ; yEnd Sub【例3-8】Private Sub Form_Click()Dim msg, UserInputmsg = "请输入一个字母或0～9之间的数字."UserInput = InputBox(msg) ‘输入一个字母或数字If Not IsNumeric(UserInput) Then ‘判断是否是数字If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1Select Case Asc(UserInput) ‘判断输入字母的ASCII 码值Case 60 To 90 '在60-90之间为大写字母msg = "你输入的是一个大写字母'"msg = msg & Chr(Asc(UserInput)) & "'。

常用算法经典题型代码1．求100－200的偶数的个数及和。

Private sub form_click()Dim n%,s&,i%n=0s=0for i=100 to 200 step 2n=n+1s=s+inext iprint “个数是：”;n,“和是:”;send sub2.从键盘输入2个正整数，求他们的最大公约数和最小公倍数Private sub form_click()Dim m%,n%,a&,r%,t%m=val(inputbox(“请输入第一个数”)n= val(inputbox(“请输入第二个数”)a=m*nr=m mod ndo while r<>0m=nn=rr= m mod nloopprint “最大公约数是：”;n,“最小公倍数是:”;a/nend sub3.产生10个0－100的随机整数，从高到低排序。

（三种方法掌握一种即可）比较法：private sub form_click()Dim a%(1 to 10), i%,t%For i=1 to 10a(i)=int(rnd*(101))next ifor i=1 to 9for j=i+1 to 10if a(i)<a(j) thent=a(i)a(i)=(j)a(j)=tnext jnext iFor i=1 to 10Print a(i);next iend sub选择法：private sub form_click()Dim a%(1 to 10), i%,t%For i=1 to 10a(i)=int(rnd*(101))next ifor i=1 to 9k=ifor j=i+1 to 10if a(k)<a(j) then k=jnext jt=a(i)a(i)=a(k)a(k)=tnext iFor i=1 to 10Print a(i);next iend sub冒泡法：private sub form_click()Dim a%(1 to 10), i%,t%For i=1 to 10a(i)=int(rnd*(101))next ifor i=1 to 9for j= 10 to i+1 step -1if a(j-1)<a(j) thent=a(j-1)a(j-1)=a(j)a(j)=tnext jnext iFor i=1 to 10Print a(i);next iend sub4.产生10个0－100间的随机整数，求最大最小值。