vb模拟试题全套

1、第一套1下列关于程序设计的说法正确的是（ B ）A、程序设计就是指示计算机如何去解决问题或完成一组可执行指令的过程B、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程C、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程，比较流行的高级语言是pascal、fortran、excel、c+等。D、程序设计语言和计算机语言是同一概念的两个方面2图形符号“ ”在算法流程图描述中表示（ C ）A、算法的开始或结束B、输入输出操作C、处理或运算的功能D、用来判断条件是否满足需求3Integer类型的变量可存的最大整数为（ C ）。A、256B、32768C、3276

2、7D、655364代数表达式改成VB表达式后，错误的是（ D ）A、g*t2/2B、g*t*t/2C、1/2*g*t2D、gt2/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程序：

3、 a=1 b=a+1 c=a+b 它的基本结构属于（ A ）A、顺序结构B、选择结构C、循环结构D、树型结构10、下列程序段运行后，Value的值为（ A ）x=20if x=10 then Value=5*xElse Value=4*xEnd ifA、100B、80C、90D、7011、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为（A、B）Private Sub Command1_Click()Dim x As Integerx = Val(text1.Text)If _ Then label1.Caption = 这个数是能被5整除的偶数Else label1.Ca

4、ption = 这个数不是能被5整除的偶数End IfEnd SubA、(x Mod 5) = 0 And (x Mod 2) = 0B、x Mod 10 = 0 C、x Mod 5 = 0 D、x Mod 2 = 012、阅读下面程序，单击窗体后，在窗体上输出的是（ A ）Private Sub form_Click() Dim i As Integer Dim s As Integer s = 0 For i = 1 To 5 s = s + i Next i Print s, iEnd SubA、15 6B、s=15 i=6C、6 5D、s=6 i=513、阅读下面程序，单击窗体后，在文

5、本框text1中显示的内容是（ A ）Private Sub form_Click() Dim int1 As Integer Dim int2 As Integer int1 = 1 int2 = 0 Do While int1 20 int2 = int1 + int2 int1 = int1 * (int1 + 1) Loop Text1.Text = int2End SubA、9B、8C、7D、614、下列程序段中，循环体执行的次数是（ B ）y=2do while y=8 y=y+yloopA、2B、3C、4 D、515、设计一个程序，打印下面所示的图案* * * * *程序：Pri

6、vate Sub Form_click()Dim i As Integer 定义i为整型变量Dim j As Integer 定义j为整型变量For i = -3 To 3 Print Tab(Abs(i) + 5) 确定每行的起始位置 For j = 1 To (4 - Abs(i) - 1 Print *; Next j PrintNext iEnd Sub16、编写程序，求的值。（x的值在程序中调用inputbox函数，在弹出的标准输入对话框中输入）。完成所有操作后，按“ctrl+s”保存Private Sub Form_click()Dim x As Single 定义x为单精度型变量

7、，由标准输入对话框输入Dim y As Single 定义y为单精度型变量，值由窗体显示x = Val(InputBox(请输入变量x)If x = 0 Then y = x * x + 1Else y = x * x - x + 1End IfPrint y=; yEnd Sub17、编程计算。Private Sub Form_click()Dim s As Single 定义s为单精度型数Dim i As Integer 定义循环变量s = 0For i = 1 To 100 If i Mod 2 = 1 Then s = s + 1 / i Else s = s - 1 / i End

8、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 50 For tu = 1 To 25 leg = ji * 2 + tu * 4 head = ji + tu If leg = 100 And head = 40 Then Print ji; tu End If Next tuNext jiEn

9、d 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

10、.99)len(“basic”)C、32D、”969”=10 then A=A+1Else A=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=500中最小的n。Private Sub Form_click()Dim s As Single 定义s存入和Dim n As Single 定义变量s = 0n = 0Do n = n + 1 s = s + nLoop Un

11、til s = 500Print n=; nEnd Sub18、编写递归函数求5！的函数Public Function s(n As Integer) As Long If n = 1 Then s = 1 Else s = n * s(n - 1) End IfEnd FunctionPrivate Sub form_click()Print s(5)=; s(5) End Sub第三套1、下列关于算法的说法不正确的是（ ）A、其他三项都正确B、算法是程序设计的“灵魂”C、解决问题的过程就是实现算法的过程D、算法独立于任何具体的语言，BASIC算法只能用BASIC语言来实现2、下列流程图表示

12、的是程序的（ ）基本结构的算法语句块选 择noyes A、顺序结构B、选择结构C、循环结构D、其他三项都不是3、下列（ ）数据类型不是数值型A、Date B、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、下

13、列（ ）函数返回系统的当前时间A、time()B、date()C、day()D、year()8、能够改变复选框中背景颜色的属性是（ ）A、FONTB、BACKCOLORC、FONTCOLORD、VALUE9、以下是一段VB程序：a=1b=0for I=1 to 5 b=b+a*Inext I它的基本结构属于（ ）A、顺序结构B、选择结构C、循环结构D、树型结构10、下列程序段中，循环体执行的次数是（ ）x=0for y=1 to 10 step 1 x=x+1next yA、1B、10C、0D、411、下列程序段运行后，m的值为（ ）a=2:b=1:c=5if ab then m=a else

14、 m=bif cm then m=cA、1B、2C、5D、提示错误，无答案12、阅读下面程序，当单击窗体之后，m的值是（ ）private sub form_click()dim m as integer:dim I as integerm=0for I=1 to 3 m=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 x20 n=n+1 x=x*3lo

15、optext1.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 4 a(j)=2*j b(j)=a(j)*3next jtext1.text=b(j2)end subA、10B、12C、14D、1815、设计一个程序，打印下面所示的图案Private Sub Form_click()Dim i As IntegerD

16、im j As IntegerFor i = 1 To 6 Print Tab(10); For j = 1 To i Print ; Next j PrintNext iEnd Sub16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了。编程计算猴子最初共有多少个桃子？Private Sub Form_click()Dim i As IntegerDim s As Integers = 1For i = 1 To 9 s = (s + 1) * 2Next iPrint s=; sEnd Sub17、编程计算s=1*2+2*3+3*4

17、+n*(n+1)的值，其中n=10Private Sub Form_click()Dim s As SingleDim i As Integers = 0For i = 1 To 10 s = s + i * (i + 1)Next iPrint s=; sEnd Sub18、编写递归函数求10！的值。Public Function s(n As Integer) As Long If n = 1 Then s = 1 Else s = n * s(n - 1) End IfEnd FunctionPrivate Sub form_click()Print s(10)=; s(10) End

18、Sub第四套1、以下哪个是算法的描述方法？A、顺序法B、列表法C、集合法D、自然语言描述法2、VB中数据类型Integer表示整型数，存储为（ ）位？A、32B、64C、16D、83、在VB中，以下哪个是正确表示十六进制整型数常量？无A、&32FB、h32FC、H32FD、32F4、在VB中，表达式23的结果是（ ）A、2B、3C、6D、85、判断x是否在区间（a，b）上，在VB中以哪个逻辑表达式是正确的？ A、ax and xbB、axx and x=bD、ax and x=b6、数学式子在VB中的正确写法是：A、（2*a+b）/4*a*bB、(2*a+b)/(4ab)C、(2a+b)/(4

19、ab)D、(2*a+b)/(4*a*b)7、在VB中，假定有以下程序段：for I=1 to 3 step 2 print “VB”next I则语句print “VB”的执行次数是（ ）A、3B、4C、2D、18、在VB中，以下程序段：a=6if a7 then x=6执行后，x的值是（ ）A、5B、6C、0D、-19、在VB中，要设置窗口的标题文本，应使用属性：（ ）A、CaptionB、NameC、FontD、Text10、在VB中，要设置某个对象的属性时，应进入：（ ）A、设计模式B、运行模式C、中断模式D、任意模式11、如要完成：从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显

20、示。比较好的算法是（ ）A、输入的数存入变量n f=（n/2=int（n/2）如果f的值是true就显示n的值B、输入的数存入变量n f=（n/2=int（n/2）如果f的值是false就显示n的值C、输入的数存入变量n 如果n/2=int（n/2）成立，就显示n的值D、输入的数存入变量n 如果n/2=int（n/2）不成立，就显示n的值12、a、b、c三个变量中存放不同的整数，让计算机处理一下，使：a中值最大，b中值第二。能实现此要求，并比较好的算法是（ ）A、定义一个max（x，y）函数 （值为x、y中大的值）a=max（max（a，b），c）b=max（b，c）B、如ab就a=b 如ac

21、就a=c如bb就a=b 如ac就a=c 如bc就b=cD、如ab两变量值交换 如ac两变量值交换 如b1时，返回函数值为age（n-1），当n=1时候返回函数值为38B、定义age（n）函数 函数中当n1时，返回函数值为age（n-1）-3，当n=1时候返回函数值为38C、定义age（n）函数 函数中不断地调用age（n-1）-3D、定义age（n）函数 函数中不断地调用age（n）函数自己15、完善“显示”按钮的click程序，将代码段中“变量1”、“变量2”、“变量3”处换成正确的变量名，使当单击该按钮时，label1、label2分别显示30、10。Private sub command

22、1_click() X=10 Y=30 If xb or b=3的值是（ ）A、falseB、trueC、-1D、16、数字式子2a(7+b)在VB中的正确写法是（ ）A、2*a(7+b)B、2*a*(7+b)C、2a*(7+b)D、2*a*7+b7、在VB中，假定有以下程序段：for I=3 to 1 print “VB”next I则语句print “VB”的执行次数是（ ）A、1B、2C、0D、出错8、在VB中，以下程序段：x=0do while x50 x=(x+2)*(x+3)loop执行后，x的值是（ ）A、50B、72C、168D、09、在VB中，要设置文本框的缺省文字，应使用属

23、性：（ ）A、nameB、caption C、textD、font10、下列VB程序运行后，变量x的值为（ ）x=2print x+1print x+2A、5B、8C、3D、211、如要完成：从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好的算法是（ ）A、输入的数存入变量n f=（n/2=int（n/2）如果f的值是true就显示n的值B、输入的数存入变量n f=（n/2=int（n/2）如果f的值是false就显示n的值C、输入的数存入变量n 如果n/2=int（n/2）成立，就显示n的值D、输入的数存入变量n 如果n/2=int（n/2）不成立，就显示n的值12、求2！+

24、3！+4！+10！的值，能完成此运算，并且比较好的算法是（ ）A、定义求阶乘的函数用jc（n）主程序中用一个循环9次调用jc（n）函数进行累加B、用一个程序完成：每一项阶乘用一个for/next循环完成，整个程序包括9个循环C、用解析法：s=1*2+1*2*3+1*2*3*4*5*6*7*8*9*10D、不必定义函数，只要用一个单重循环就能完成13、向x变量中输入任意一个小写字母，再将x变量中的小写字母转成大写字母。正确的算法是（ ）A、输入字母到x x=asc（x）-32 x=chr（x）print xB、输入字母到x x=asc（x）+32 x=chr（x）print x C、输入字母到x x=val（x）