vb模拟试题全套

1．下列关于程序设计的说法正确的是（ B ）A 、程序设计就是指示计算机如何去解决问题或完成一组可执行指令的过程B 、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程C 、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程，比较流行的高级语言是pascal 、fortran 、excel 、c++等。

D 、程序设计语言和计算机语言是同一概念的两个方面2 C ）A 、 算法的开始或结束B 、输入输出操作C 、 处理或运算的功能D 、用来判断条件是否满足需求3．Integer 类型的变量可存的最大整数为（ C ）。

A 、256B 、32768C 、32767D 、655364．代数表达式221gt 改成VB 表达式后，错误的是（ D ） A 、g*t^2/2 B 、g*t*t/2 C 、1/2*g*t^2 D 、gt^2/25．对于窗体，click （单击）是它的一个（ C ）A 、重要对象B 、重要方法C 、重要事件D 、重要属性6．下列变量名写法错误的是（ D ）A 、abcB 、abc123C 、abc_123D 、123abc7．在VB 中，下列（ B ）函数是求绝对值的。

A 、int （x ）B 、abs （x ）C 、sqr （x ）D 、gn （x ）8．在VB 中，设置控件的大小，可改变下列（ A ）属性A 、height 与widthB 、heigth 与topC 、 left 与topD 、left 与width9．以下是一段vb 程序：a=1b=a+1c=a+b它的基本结构属于（ A ）A 、 顺序结构B 、选择结构C 、循环结构D 、树型结构10、下列程序段运行后，V alue 的值为（ A ）x=20if x>=10 thenValue=5*xElseValue=4*xEnd ifA 、100B 、80C 、90D 、7011、下面是判断变量x 是不是能被5整除的偶数的程序，横线上的逻辑表达式应为（A 、B ） Private Sub Command1_Click()Dim x As Integerx = Val(text1.Text)If ________________ Thenlabel1.Caption = "这个数是能被5整除的偶数"label1.Caption = "这个数不是能被5整除的偶数"End IfEnd SubA、(x Mod 5) = 0 And (x Mod 2) = 0B、x Mod 10 = 0C、x Mod 5 = 0D、x Mod 2 = 012、阅读下面程序，单击窗体后，在窗体上输出的是（A ）Private Sub form_Click()Dim i As IntegerDim s As Integers = 0For i = 1 To 5s = s + iNext iPrint s, iEnd SubA、15 6B、s=15 i=6C、6 5D、s=6 i=513、阅读下面程序，单击窗体后，在文本框text1中显示的内容是（A ）Private Sub form_Click()Dim int1 As IntegerDim int2 As Integerint1 = 1int2 = 0Do While int1 < 20int2 = int1 + int2int1 = int1 * (int1 + 1)LoopText1.Text = int2End SubA、9B、8C、7D、614、下列程序段中，循环体执行的次数是（B ）y=2do while y<=8y=y+yloopA、2B、3C、4D、515、设计一个程序，打印下面所示的图案程序：Private Sub Form_click()Dim i As Integer '定义i为整型变量Dim j As Integer '定义j为整型变量For i = -3 To 3Print Tab(Abs(i) + 5) '确定每行的起始位置For j = 1 To (4 -Abs(i)) - 1Print "*";Next jPrintNext iEnd Sub16、编写程序，求⎪⎭⎪⎬⎫⎪⎩⎪⎨⎧>+-≤+=)0(1)0(122x x x x x y 的值。

（x 的值在程序中调用inputbox 函数，在弹出的标准输入对话框中输入）。

完成所有操作后，按“ctrl+s ”保存Private Sub Form_click()Dim x As Single '定义x 为单精度型变量，由标准输入对话框输入Dim y As Single '定义y 为单精度型变量，值由窗体显示x = Val (InputBox("请输入变量x"))If x <= 0 Theny = x * x + 1Elsey = x * x - x + 1End IfPrint "y="; yEnd Sub17、编程计算100199********-++-+-= s 。

Private Sub Form_click()Dim s As Single '定义s 为单精度型数Dim i As Integer '定义循环变量s = 0For i = 1 To 100If i Mod 2 = 1 Thens = s + 1 / iElses = s - 1 / iEnd IfNext iPrint "s="; sEnd Sub18、编程求：鸡与兔在一个笼里，共有100条腿，40个头，问鸡有几只？兔有几只？ Private Sub Form_click()Dim ji As IntegerDim tu As IntegerDim leg As IntegerDim head As IntegerFor ji = 1 To 50For tu = 1 To 25leg = ji * 2 + tu * 4head = ji + tuIf leg = 100 And head = 40 ThenPrint ji; tuEnd IfNext tuNext jiEnd Sub第二套1．下列说法错误的是（）A、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程B、程序设计语言的发展经历了机器语言、汇编语言、高级语言的过程C、计算机程序就是指计算机如何去解决问题或完成一组可执行指令的过程D、程序设计语言和计算机语言是同一概念的两个方面2”在算法流程图描述中表示（）A、处理或运算的功能B、输入输出操作C、用来判断条件是否满足需求D、算法的开始或结束3．下面（）不是字符串常量。

A、”True”B、#false#C、” ”D、”你好”4．下面表达式的值是false的有（）A、str(2000)<”1997”B、int(4.99)<>len(“basic”)C、3>2D、”969”<”n97”5．使用VB编程，我们把工具箱中的工具称为（）A、工具B、控件C、事件D、窗体6．在声明一个变量时，可能用到的关键字是（）A、EndB、AsC、SubD、Exit7．下列函数中，返回值是字符串的是（）A、ValB、InStrC、LenD、Mid8．在VB中，设置控件的位置，可改变下列（）属性A、left与topB、heigth与topC、left与widthD、height与width9．以下是一段vb程序：if I=1 thenx=x+1elsex=x+2end if它的基本结构属于（）A、循环结构B、树型结构C、选择结构D、顺序结构10、分析下列程序：private sub form_click()s=11\3+11 MOD 3print send sub当单击窗体是s的值为（）A、3B、4C、5D、611、下列程序段运行后，A的值为（）s=10if A>=10 thenA=A+1ElseA=A-1End ifA、8B、9C、10D、1112、阅读下面程序，单击窗体后，在文本框text1和text2中显示的内容分别是（）private sub form_ click()dim x as integer:y as integerx=1:y=0do while x<3y=y+xx=x+1looptext1.text=xtext2.text=yend subA、3 3B、3 5C、5 3D、5 513、阅读下面程序，单击窗体后，在文本框显示的内容是（）private sub form_click()dim array(10,10) as integerdim I,j as integerfor I=1 to 3for j=2 to 4array1(I,j)=I+jnext jnext Itext1.text=array1(2,3)+array(3,4)end subA、12B、13C、14D、1514、下列程序段中，循环体执行的次数是（）x=0for y=1 to 10x=x+1next yA、10B、11C、12D、1315、设计一个程序，打印下面所示的图案程序：Private Sub Form_click()Dim i As Integer '定义i为整型变量Dim j As Integer '定义j为整型变量For i = -3 To 3Print Tab(Abs(i) + 5); '确定每行的起始位置For j = 1 To 2 * (3 -Abs(i)) - 1Print "*";Next jPrintNext iEnd Sub16、编写程序，求y=6x-5的值。

（x的值在程序中调用inputbox函数，在弹出的标准输入对话框中输入）。

完成所有操作后，按“ctrl+s”保存Private Sub Form_click()Dim x As Single '定义x为单精度型变量，由标准输入对话框输入Dim y As Single '定义y为单精度型变量，值由窗体显示x = val(inpubox("请输入变量x"))y = 6 * x - 5Print "y="; yEnd Sub17、编写程序，求1+2+3+……+n>=500中最小的n。

Private Sub Form_click()Dim s As Single '定义s存入和Dim n As Single '定义变量s =0n = 0Don = n + 1s = s + nLoop Until s >= 500Print "n="; nEnd Sub18、编写递归函数求5！的函数Public Function s(n As Integer) As LongIf n = 1 Thens =1Elses =n * s(n - 1)End IfEnd FunctionPrivate Sub form_click()Print "s(5)="; s(5)End Sub第三套1、下列关于算法的说法不正确的是（）A、其他三项都正确B、算法是程序设计的“灵魂”C、解决问题的过程就是实现算法的过程D、算法独立于任何具体的语言，BASIC算法只能用BASIC语言来实现）基本结构的算法2A、顺序结构B、选择结构C、循环结构D、其他三项都不是3、下列（）数据类型不是数值型A、DateB、DoubleC、SingleD、Integer4、表达式abs(-3.6)*sqr(100)的值是（）A、360B、-36C、-360D、365、在VB中，显示和编辑程序代码时，采用（）A、窗体设计器窗口B、工程资源管理器窗口C、代码编辑窗口D、属性窗口6、下列语句中定义了一个实型变量的是（）A、其他三项都不对B、dim name as stringC、dim sum as singleD、dim end as integer7、下列（）函数返回系统的当前时间A、time()B、date()C、day()D、year()8、能够改变复选框中背景颜色的属性是（）A、FONTB、BACKCOLORC、FONTCOLORD、V ALUE9、以下是一段VB程序：a=1b=0for I=1 to 5b=b+a*Inext I它的基本结构属于（）A、顺序结构B、选择结构C、循环结构D、树型结构10、下列程序段中，循环体执行的次数是（）x=0for y=1 to 10 step –1x=x+1next yA、1B、10C、0D、411、下列程序段运行后，m的值为（）a=2:b=1:c=5if a<b then m=a else m=bif c<m then m=cA、1B、2C、5D、提示错误，无答案12、阅读下面程序，当单击窗体之后，m的值是（）private sub form_click()dim m as integer:dim I as integerm=0for I=1 to 3m=m+2next Iprint mend subA、0B、4C、6D、813、阅读下面程序，单击窗体后，在文本框text1和text2中显示的内容分别是（）private sub form_click()dim x as integer,n as integerx=1n=0do while x<20n=n+1x=x*3looptext1.text=str(x)text2.text=str(n)end subA、27 3B、3 27C、20 3D、3 2114、阅读下面程序，单击窗体后，在文本框显示的内容是（）private sub form_click()dim a(8),b(8) as integerdim I,j as integerfor j=1 to 4a(j)=2*jb(j)=a(j)*3next jtext1.text=b(j\2)end subA、10B、12C、14D、1815、设计一个程序，打印下面所示的图案Private Sub Form_click()Dim i As IntegerDim j As IntegerFor i = 1 To6Print Tab(10);For j = 1 To iPrint "@";Next jPrintNext iEnd Sub16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个。