vb考试试题及答案

我在郑州上学，这是我们的试卷，中原工学院经管院大一的试题希望对你有用！一、单项选择题（共10分）1．在代码中引用一个控件时，应使用控件的（ ）属性。 A．Caption B．Name C．Text D．Index2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b)3．表达式Int(Rnd*71)+10产生的随机整数范围是（ ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81]4．函数Sgn()的返回值是（ ）。 A．-1 B．0 C．1 D．以上都不对5．67890属于（ ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型6．下列变量名中正确的是（ ）。 A．3S B．Print C．Select My Name D．Select_17．下列赋值语句（ ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 08．以下的控件或方法具有输入和输出双重功能的为（ ）。 A．Print B．Textbox C．Optionbutton D．Checkbox9．若要获得列表框中被选中的列表项的内容，可以通过访问（ ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text10．下列代码的运行结果为（ ）。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))End Sub A．2 B．3 C．4 D．5 二、填空题（10分）1．写出整数n能同时被13和17整除的Basic表达式 。2．代码窗口中有两个下拉列表框：左侧是 列表框，右侧是过程列表框。3．写出在字符串 ”Visual Basic ” 中截取 ”Visual” 的Basic表达式 。4．函数Len(“abcdef”)的返回值是 。5．设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d的值为 。6．要使标签的大小自动与所显示的文本相适应，可以通过设置 属性为True来实现。7．若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic的语句分隔符为 。8．要强制显式声明变量，使用__________语句完成。9．在VB中，用户定义常量使用 语句，声明变量使用 语句。三、将下列数学表达式转换为VB表达式。（6分）1．a2+2ab+b2 __________________________2． __________________________3．8exln10 __________________________4．2sin(450)cos(450) _______________________________5． ___________________________________________6． ___________________________________________四、判断题，正确打“√”，错误打“×”（10分）1．在VB中，控件的事件只能通过用户的操作触发。（ ）2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。（ ）3．保存工程时，窗体文件和工程文件的文件名不能相同。（ ）4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。（ ）5．同一过程中，数组和简单变量可以同名。（ ）6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。（ ）7．代码Const Number1=15：Number1=10合法。（ ）8．允许将块If-Then语句结构中的所有语句都写在一行上（ ）9．定义数组语句Dim a(b) As Integer 是正确的（ ）10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。（ ）五、根据题意，将下列程序补充完整。（16分）1． 产生20个[10，100] 之间的随机整数，每行输出10个数据。Private Sub command1_click() Dim a(1 To 20) As Integer Randomize i = 0 Do While i < 20 i = i + 1 a(i) = ( ) If （ ）Then Print a(i); End If If i = 10 Then Print a(i) If i > 10 Then Print a(i); LoopEnd Sub2．打印九九乘法表Private Sub command1_click() For i = 1 To 9 For j = 1 To 9 Print （ ） Next j Print （ ）End Sub3．判断一个数是否素数Private Sub command1_click() x = InputBox("请输入一个整数") flag = 1 For i = 2 To （ ) If x Mod i = 0 Then flag = 0 End If Next i If （ ）Then Print x; "是素数" Else Print x; "不是素数"End Sub4．利用数组输出Fibonacci数列的前15项。 该数列的第1项和第2项为1，其余各项均为其前两项之和。Private Sub Command1_Click() （ ） f(1) = 1 : f(2) = 1 f(1) : f(2) For i = 3 To 15f(i) = （ ) f(i) Next iEnd Sub六、写出下面程序的输出结果。（每题3分，共18分）1． Private Sub command1_click() x = InputBox("enter x") ' x 的输入值为-8 Select Case Sgn(x) + 2 Case 1 Print "y="; x ^ 2 + 1 Case 2 Print "y="; x - 4 Case 3 Print "y="; x ^ 3 + 100 End SelectEnd Sub2． Private Sub command1_click() Dim a, b, c, d, e As String a = "Zheng Zhou" b = "Zhong Yuan Gong Xue Yuan" c = a + " " + b d = Left(a, 1) + Mid(a, 7, 1) e = Left(b, 1) + Mid(b, 12, 1) Print c Print d; e End Sub3．设有Sub过程：Private Sub p1(x As Integer, ByVal y As Integer) x = 4 ：y = 5 ：z = 6End Sub则如下程序段的运行结果是:Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 2: z = 3 Print x, y, z Call p1(x, y) Print x, y, zEnd Sub4． Private Sub command1_click() k = 0 For i = 1 To 3 k = k + 1 a = i * i * k Print a; Next iEnd Sub5． Private Sub command1_click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = i * 2 + j Print a(i, j); Next j Print Next iEnd Sub6．设有Function过程:Private Function f1(b, a) a = a * a: b = b * b f1 = a - bEnd Function 则如下程序段的运行结果是什么？Private Sub command1_click() a = 4: b = 3 a = f1(a, b) Print aEnd Sub七．编程题（共30分）注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题； 其他学生做 第1、2、3、4 小题。1．给出一个百分制的成绩，要求输出成绩的相应等级。（7分） 90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。2．求n!,n由键盘输入。（7分）3．产生20个 [0，99] 之间的随机整数，并按从小到大的顺序输出。（8分）4．产生并输出一个6×6的二维数组A：（8分）（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。5．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分）6．从键盘输入10个数，求出其中的最大数，最小数和平均值。（8分）VB试题答案及评分标准一、 单项选择题（每题1分，共10分）1．B 2．A 3．C 4．C 5．D6．D 7．A 8．B 9．D 10．B二、 填空题（每空1分，共10分）1．n Mod 13=0 And n Mod 17=01、 对象3．LEFT(“Visual Basic ”,6)4．65．False6．Autosize7． ： 8．Option Explict 9．Const Dim三、 将下列数学表达式转换成VB表达式（每题1分，共6分）1、 a^2+2*a*b+b^22、 x^(1/3)*y^(1/4)3、 8*exp(x)*log(10)4、 2*sin()*cos()5、 (x+y+z)/sqr(x^2+y^2+z^2)6、 log(1+abs((a+b)/(a-b)))四、 判断题（每题1分，共10分）1．× 2．√ 3．× 4．√ 5．×6．√ 7．× 8．× 9．× 10．√五、 根据题意，将下列程序补充完整（每空1分，共10分）1．（1） int(rnd*91)+10 （2） I<102．（1） i*j （2） next i3．（1）int(sqr(x))或者x-1 （2） flag=1 4．（1）dim f(15) as integer （2）f(I-1)+f(I-2)六、 写出下面程序的输出结果（每题4分，共24分）1、 y=652、 Zheng Zhou Zhong Yuan Gong Xue Yuan 2分ZZZG 2分3．1 2 3 4 2 34．1 8 275．3 4 5 6 7 5 6 7 8 9 7 8 9 10 119 10 11 12 1311 12 13 14 156．-7七、 编写程序1. private sub command1_click() dim x as integer,grade as string 1分 x= 1分 select case x 4分 case 90 to 100 grade=”A” case 80 to 89 grade=”B” case 70 to 79 grade=”C” case 60 to 69 grade=”D” case is<60 grade=”E” case else msgbox “请重新输入”end selectprint “该学生成绩为”+grade 1分 end sub2．Private Sub command1_click() Dim n as integer,f as long 1分 n= 1分 f=1 for I=1 to n 3分 f=f*I next I 2分 end sub3． Private Sub Command1_Click() Dim a(1 To 20) As Integer ' 1分 Randomize For i = 1 To 20 2分 a(i) = Int(Rnd * 100) Print a(i); Next Print For i = 1 To 19 3分 For j = i + 1 To 20 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i For i = 1 To 20 2分 Print a(i); Next iEnd Sub4． Private Sub Command1_Click() Dim a(1 To 6, 1 To 6) As Integer ' 1分 Dim aver As Single Randomize For i = 1 To 6 3分 For j = 1 To 6 If i = j Or i + j = 7 Then a(i, j) = 1 Else a(i, j) = Int(Rnd * 30) End If Print a(i, j); Next j Print Next i Print Max = 0: Min = 30 4分 For i = 1 To 6 s = 0 For j = 1 To 6 s = s + a(i, j) Next j aver = s / 6 If aver > Max Then Max = aver: row_max = I If aver < Min Then Min = aver: row_min = i Next i Print row_max, row_minEnd Sub5． Private Sub Command1_Click() Dim i As Integer, c As Integer Dim s As Integer For i = 1 To 100 4分 s = s + i If i Mod 17 = 0 Then c = c + 1 Next i Print "1+2+...+100="; s 2分 Print "能被17整数的数据有"; c; "个" 2分End Sub6． Private Sub Command1_Click() Dim x As Integer x = InputBox("x=") 1分 Print x; Max = x: Min = x: s = x 2分 For i = 2 To 10 3分 x = InputBox("x=") ：Print x; s = s + x If x > Max Then Max = x If x < Min Then Min = x Next i Print s / 10 1分 Print Max, Min 1分End Sub

16.下面软件中，是常用课件制作工具的是( ) -------答案------：A,B,D 17.以下哪几种文件格式属于音频文件() -------答案------：A, B, C 18.进行声音采集的时候，为了提高录音的效果下列那些做法是正确的() a.录音环境要安静，避免录制过多的噪音 b.录音时，距离话筒不能太远，否则可能录制的声音音量太小 c.录音时，尽可能的贴近话筒获得更好的音质，以能清晰听到呼吸声为最佳 d.在录制开始后，应先录制一段空白，用于降噪时的噪音采样 -------答案------：A,B,D 19.音频辅助教学具有的'教学功能包括( ) a.再现声场 b.渲染气氛 c.创设情境 d.提高学习兴趣 -------答案------：A,B,C,D Edit Pro的特点包括( ) a.支持音频的播放 b.支持音频的转换 c.支持多种格式的音频文件 d.支持音频的录制、编辑 -------答案------：A,B,C,D 21.以下哪些软件是用来进行数字音频编辑的() Edit Pro -------答案------：A, D 22.常见的图像文件格式包括( ) -------答案------：A,B,C,D 23.下列说法中正确的是( ) 是Photoshop的源图像文件格式，能够保存图像数据的每一个细小部分，包括层、附加的蒙板通道等内容，但文件所占空间大。对于正在制作和以后需要继续编辑的图像，要采用PSD格式。 是一种常用的矢量图像文件格式。其特点是无损失压缩，能使用户节省磁盘空间，而不牺牲任何图像质量。 c.使用JPEG格式保存的图像经过压缩，可使图像文件变小，但会损失数据信息，故在印刷时不宜使用此格式。而对于作品存档或发送给他人以及用于网页的最终图像，JPEG则是一种完善的格式。 是一种常用的有损压缩格式，可以极大地节省存储空间，可用于存储真彩色的图像文件。支持透明背景，可以较好地与网页背景融合在一起。但是GIF格式最多只能处理256种色彩。 -------答案------：A,C 24.下列关于图层说法错误的是( ) a.修改某一图层内容时，会影响其它图层 b.可以将图像中不同内容放置在不同的图层上 c.利用图层可以创建出形式多样的图像效果 d.无法利用图层对图像进行后期处理 -------答案------：A,D 25.下面几个软件中，是图形图像处理工具的是( ) b.暴风影音 See d.画图 -------答案------：A,C,D 26.下列陈述中，哪几项是Photoshop作为工具软件应用于教学过程的理由? a.为了给学生提供形象直观的教学内容 b.多媒体视频教材能帮助学生理解问题 c.采用图像辅助教学 d.帮助学生形成感性认识 -------答案------：A,C,D 27.假如你是一名学科教师需要从网络搜索相关教学资源，你会从以下哪几个角度对搜索到的资源进行评价。( ) a.教育性 b.科学性 c.精简性 d.艺术性 -------答案------：A, B, D 28.资源管理是对资源进行( )的操作。 a.检索 b.存储 c.归类 d.维护 -------答案------：A,B,C,D 29.与使用浏览器下载资源相比较，使用下载工具软件进行资源下载有许多优点，下列选项中，其优点包括( ) a.实现多点传输 b.提高下载速度 c.可批量下载 d.实现断点续传 -------答案------：A,B,C,D 30.以下哪项搜索关键词可以更加方便快捷的找到文本资源( ) a.山海关 wps b.故宫 txt c.大海 rtf d.清西陵 doc -------答案------：A,B,C,D 31.利用搜索引擎检索相关教学资源，所得搜索结果通常由以下哪几部分构成( )： a.网站站名 b.查询路径 c.包含关键词的内容提要 d.网址链接 -------答案------：A,B,C,D 32.下列哪几项提供搜索引擎的功能( ) a.谷歌 b.河北教师教育网 c.百度 d.雅虎 -------答案------：A,C,D 33.信息技术对教育产生了巨大的影响，下列说法正确的是( ) a.信息技术对教育的影响基本上都是正面的 b.信息技术可以为学生的学习和发展提供丰富多彩的教育环境和有力的学习工具 c.信息技术与课程整合可以建构有效的教学方式，促进教与学的最优化 d.信息技术为学校管理自动化的实现提供了可能，能够有效地提高教育管理绩效 -------答案------：B,C,D 34.关于信息技术与课程整合的说法中，错误的是( ) a.信息技术与课程整合就是在课堂教学中使用高、精、尖的媒体 b.在课堂教学中使用了课件就实现了信息技术与课程整合

一、打开VBTEST子目录下的窗体文件，修改其中的程序，使能输出如下图形：** ** * ** * * ** * * * ** * * * * *程序如下：Private Sub Command1_Click()For i=1 to ____For j=1 to ____Print_____Next jPrintNext iEnd Sub二、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，并输出判断结果。程序中有三处错误，请打开VBTEST子目录下的窗体文件，调试更正。程序如下：Private Sub Command1_Click()Dim a As SingleDim py As Stringa=Val(Text1)If a>0 Then py="正数"If a=0 Then py="零"If a<=0 Then py="负数" Sub三、打开VBTEST子目录下的窗体文件，修改程序，使能输出：1-2+3-4+5-6+...+99-100的值程序如下：Private Sub Command1_Click()s=_____For i=1 To _____s=s+(-1)^(______)*iNext iPrint sEnd Sub四、打开VBTEST子目录下的窗体文件。已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。修改程序，求方程的根。要求：如果方程无实数根，则输出“无实数根”，否则输出两个实数根。Private Sub Command1_Click()Dim a,b,c,d As SingleDim x1,x2 As Singlea=Val()b=Val()c=Val()d=b^2-4*a*cIf d________ Thenx1=(-b+Sqr(d))/(2*a)x2=(-b-Sqr(d))/(2*a) IfEnd Sub五、下面的程序是求当r=2,JI=，x=-3，y=时代数式r*r*JI+[(64-6y)+3x]/5的值，程序中有三处错误，请打开VBTEXT子目录下的窗体文件，调试更正。Private Sub Command1_Click()Dim a As Singler=2:pi=*r*JIa2=(64-6y)+3*xa3=a2/5Print a1+a2+a3End Sub六、下面的程序是求7!（7!=1*2*3...*6*7)的值，并在默认窗口输出这个值。程序中有三处错误，请打开VBTEST子目录下的窗体文件，调试更正。Private Sub Command1_Click()Dim a As Singlea=0For i=1 to na=a*iNext iPrint iEnd Sub七、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。程序中有三处错误，请打开VBTEST子目录下的窗体文件，调试更正。Private Sub Command1_Click()Dim s As SingleDim i As Singles=1For i=1 to 100 Step 1s=s*iNext iPrint s End Sub八、下面的程序是当输入的考试成绩不低于60分时输出“及格”，否则输出“不及格”。程序中有二处错误，请打开VBTEST子目录下的窗体文件，调试更正。Private Sub Command1_Click()Dim cj As IntegerDim py As Stringcj=Val()If cj>60 Thenpy="及格"Elsepy="不及格"End Sub九、打开VBTEST子目录下的窗体文件，完善其中的程序，使能输出如下图形。--* * * * * *----* * * * * *------* * * * * *--------* * * * * *----------* * * * * *------------* * * * * *---表示空格程序如下：Private Sub Command1_Click()For i=1 To 6Print Tab(______);For j=1 To_______Print_______Next jPrintNext iEnd Sub十、打开VBTEST子目录下的窗体文件，修改下面的程序，使运行后输出如下结果：张大富 男 39岁Private Sub Command1_Click()Dim xm,xb,nl As Stringxm=张大富 xb="男":nl="39岁"Print xmPrint xbPrint nlPrint "岁"End Sub十一、打开VBTEST子目录下的窗体文件，完善已写在“计算”按钮的Click事件下的程序代码，将代码段中的“常量”、“变量1”、“变量2”处分别换成正确的常量值、变量名（其他不动），使得当鼠标单击命令按钮“计算”时，窗体上显示1+2+3+...+99+100的值。命令代码如下：Private Sub Command1_Click()s=常量For i=1 To 100 Step 1s=s+变量1Next iPrint 变量2End Sub十二、打开VBTEST子目录下的窗体文件，完善已写在“计算”按钮的Click事件下的程序代码，将代码段中的“常量”、“运算符”、“变量”处分别换成正确的常量值、运算符、变量名，使得当鼠标单击命令按钮“计算”时，窗体上显示10!(10!=1*2*3*...*10)的值。命令代码如下：Private Sub Command1_Click()s=常量For i=1 To 10s=s 运算符 iNext iPrint 变量End Sub十三、打开VBTEST子目录下的窗体文件，完善已写在“执行”按钮的Click事件下的程序代码，将代码段中的“常量”、“变量”、“表达式”处分别换成正确的常量值、变量名和具体的表达式，使得当鼠标单击命令按钮“执行”时，显示出满足条件2+4+6+...+x<80中最大的x的值。命令代码如下：Private Sub Command1_Click()s=0x=0Dox=x+常量s=s+变量Loop Until s>=80Print 表达式End Sub十四、打开VBTEST子目录下的窗体文件，在窗体适当的位置建立一个Command1按钮，然后编写代码，使得当鼠标单击命令按钮Command1时，窗体上的标签文字“Lable1”变为“江苏省信息技术等级考试”。十五、打开VBTEST子目录下的窗体文件，完善程序，将代码中的“常量”、“关系运算符”、“语句”、“变量”处分别换成正确的常量值、关系运算符、语句、变量名，使当点击“输出”按钮时，屏幕显示程序运行结果为：20-10=10程序代码如下：Private Sub Command1_Click()a=10b=常量if a 关系运算符 b ThenPrint a;"-";b;"=";a-b语句Print 变量;"-";a;"=";10End IfEnd Sub答案：1、6 i "*";2、Val(Text1)改为Val() a < =0改为a < 0 =a改为 = py3、0 100 i + 14、> 0 Else "无实数根"5、JI改为pi 6y改为6 * y a1 + a2+ a3改为a1+a36、a = 0改为a = 1 n改为7 Print i改为Print a7、s = 1改为s = 0 Step 1改为Step 2 s = s * i改为s = s + i8、cj > 60改为cj >= 60 另一错误请同学们自己找 9、2 + i 6 "*";10、Private Sub Command1_Click()Dim xm, xb, nl As Stringxm = "张大富": xb = "男": nl = "39岁"Print xm,Print xb,Print nlEnd Sub11、Private Sub Command1_Click()s = 0For i = 1 To 100 Step 1s = s + iNext iPrint sEnd Sub12、Private Sub Command1_Click()s = 1For i = 1 To 10s = s * iNext iPrint sEnd Sub13、Private Sub Command1_Click()s = 0x = 0Dox = x + 2s = s + xLoop Until s >= 80Print "x="; x - 2End Sub15、Private Sub Command1_Click()a = 10b = 20If a > b ThenPrint a; "-"; b; "="; a - bElsePrint b; "-"; a; "="; 10End IfEnd Sub 一、选择题1、 某一VB工程含F1、F2两个窗体，执行“F1．Show:F2．Hide”语句后，F1、F2窗体显示的结果为（ ）。A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示F2窗体2、 在VB中，执行“Text1．Text= “” “Tel=”这行语句时，“，”后面的部分为（ ）。A、注释部分，不是可执行代码 B、注释部分，但是可以执行代码C、程序代码的一部分 D、程序代码的另一种写法3、 VB的数据类型分为（ ）A、 数值型、字符型、布尔型、日期型 B、数值型、字符型、对象型、日期型C、基本类型、扩展类型 D、整型、实型、字符型、日期型、布尔型4、VB中的变量如果没有显示声明其数据类型，则默认为（ ）A、日期型 B、数据型 C、字符型 D、变体型 5在VB中，通过改变表框（ ）属性的值 ，可以为列表框添加项目。A、List B、（名称） C、Caption D 、Text 6、在VB中，执行“A=5：A=A+5”语句后，变量A的值为（ ）A、0 B、5 C、10 D、不一定7、VB中运算符被分为四类，分别是（ ）A、算术运算符、连接运算符、关系运算符、逻辑运算符 B、算术运算符、比较运算符、关系运算符、逻辑运算符C、算术运算符、连接运算符、布尔运算符、逻辑运算符D、连接运算符、比较运算符、逻辑运算符、关系运算符8、在VB中，执行“A=18MOD4”语句后，A的值为（ ）。A、2 B、4 C、6 D、89、A为True,B为False, 则 “AandB”和 “AOrB”的值分别是（ ）。 A、True,True B、True False C 、False,True D 、False,False10、在VB中，执行 “DimA,B As String” 语句后，A，B的数据结构为（ ）。 A、整型数 B、实型数 C、字符型 D、字节型11、在VB中，执行 “A=123：B=Str$(A)”语句后，B的数据结构为（ ）。A、整型数、 B、字节型 C、实型数 D、字符型12、在VB中，复写框（Check）的Value值有三种，分别是（ ）。A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，013、在VB中，如要创建“年级”和“班级”两组单选按钮，具体的做法是（ ）A、先创建“单选按钮”，然后用“框架”分别框住B、先分别创建“单选按钮”和“框架”，然后将“单选按钮”拖到相应的框架中C、先创建“框架”，然后在“框架”中创建“单选按钮”D、以上方法均可14、数学关系3〈= x〈10表示成正确的VB表达式为（ ）A、3〈=x〈10 B、3〈=xANDx〈10 C、x〉=3ORx〈10 D、3〈=xAND〈1015、Int（*100+）/100的值为（ ）A、198 B、 C、 D、20016、下面正确的赋值语句是（ ）A、x+y=30 B、y= *r*r C、y=x+30 D、3y=x17、为了给三个变量赋初值1，下面正确的赋值语句是（ ）A、x=1：y=1：z=1 B、x=1，y=1，z=1 C、x=y=z=1 D、xyz=118、分支结构的程序在进行判断后可分别控制程序有（ ）个以上的走向。A、1 B、2 C、3 D、819、语句If x=1 Then y=1,下列说法正确的是（ ）。A、x=1和 y=1 均为赋值语句 B、x=1和 y=1均为关系表达式C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=1为关系表达20、可用于设置系统当前时间的语句是（ ）。A、Date B、Date$ C、Time D、Timer21、若要退出For循环，可使用的语句为（ ）。A、Exit B、Exit Do C、Time D、Exit For22、利用VB设计程序的基本步骤可分四步：（1） 设计用户界；（2）（ ）；（3）运行调试程序；（4）生成执行文件。A、编写代码 B、设计算法 C、信息反馈 D、系统集成23、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是( )A aption“时钟” B “时钟”C Caption=“时钟” D ( “时钟”)24 下列操作不能打开代码窗口的是( )A选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令B 选中对象,双击鼠标左键 C 按F7键 D按F4键25 保存文件时,窗体的所有数据存储格式为( )A *．PRG B *．FRM C.*．VBP D *．EXE26窗体初始化程序应写在( )事件中.A Load B Unload C Activate D GotFocus 27 在一个语句内写多条语句时,每个语句之间分隔符号是( )A ， B ： C 、 D ；28 一句语句要在下一行继续写,所用的续行符号为( ).A ＋ B － C ＼―― D．．．X29 下面是合法的变量名为( )A x＿yz B 123abc C integer D X-Y30 下面是合法的字符串常数为( )A ABC $ B “ABC” C ‘ABC' D ABC二 判断题 1、 VB 中的控件都是用来设计用户界面的。（ ）2、在VB程序时,选中Form (窗体)上的某个控件,如果控件周围出现8个白色小方块,则表示该控件未被锁定。（ ）4、 设计VB程序时，选中窗体上的“Text1”文本框控件，将其“BackColor”属性值设置为淡绿色，将“ForeColor”属性值设置为红色，则“Text1”文字为红色。（ ）5、 在VB中，“方法”是指在对象上起作用的过程，也就是说用来控制对象的功能及操作的内部程序。（ ）6、 在编写VB程序代码时，对象属性的表示方法为：方法名.对象名称。（ ）7、 Click事件，就是鼠标单击事件。（ ）8、 在程序执行的过程中，变量的值始终保持不变，常量的值随时改变。（ ）程序代码的基本结构有三种，分别是顺序结构、选择结构（分支结构）、循环结构。（ ）9、 在VB中，有一名称为LIST1的列表框，那麽执行““方周工作室””语句后，即在LIST1列表框中添加“方周工作室”这个项目。（ ）10、 在VB中，运算级从高到底的顺序是：算数运算、连接运算、关系运算、逻辑运算。（ ）一、 选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分） 下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）以下叙述中错误的是 A）Visual Basic 是事件驱动型可视化编程工具 B）Visual Basic应用程序不具有明显的开始和结束语句 C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 D）Visual Basic中控件的某些属性只能在运行时设置 （2）以下叙述中错误的是 A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B）以.BAS为扩展名的文件是标准模块文件 C）窗体文件包含该窗体及其控件的属性 D）一个工程中可以含有多个标准模块文件 （3）以下叙述中错误的是 A）双击鼠标可以触发DblClick事件 B）窗体或控件的事件的名称可以由编程人员确定 C）移动鼠标时，会触发MouseMove事件 D）控件的名称可以由编程人员设定 （4）以下不属于Visual Basic系统的文件类型是 A）.frm B）.bat C）.vbg D）.vbp （5）以下叙述中错误的是 A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B）保存Visual Basic程序时，应分别保存窗体文件及工程文件 C）Visual Basic应用程序只能以解释方式执行 D）事件可以由用户引发，也可以由系统引发 （6）以下能正确定义数据类型TelBook的代码是 A）Type TelBook B）Type TelBook Name As String*10 Name As String*10 TelNum As Integer TelNum As Integer End Type End TelBook C）Type TelBook D）Typedef TelBook Name String*10 Name String*10 TelNum Integer TelNum Integer End Type TelBook End Type （7）以下声明语句中错误的是 A）Const var1=123 B）Dim var2 = 'ABC' C）DefInt a-z D）Static var3 As Integer （8）设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是 A） B） C） D）List1. Text （9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 A）MouseDown B）MouseUp C）Load D）Click （10）设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是 A）True B）False C）1 D）出错信息 （11）如果要改变窗体的标题，则需要设置的属性是 A）Caption B）Name C）BackColor D）BorderStyle （12）以下能判断是否到达文件尾的函数是 A）BOF B）LOC C）LOF D）EOF （13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 A）如果工程中含有Sub Main过程，则程序一定首先执行该过程 B）不能把标准模块设置为启动模块 C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 D）任何时刻最多只有一个窗体是活动窗体 （14）窗体的MouseDown事件过程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)有4个参数，关于这些参数，正确的描述是 A）通过Button参数判定当前按下的是哪一个鼠标键 B）Shift参数只能用来确定是否按下Shift键 C）Shift参数只能用来确定是否按下Alt和Ctrl键 D）参数x,y用来设置鼠标当前位置的坐标 （15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是 A） Text B） 2 C） 3 D） （16）以下关于焦点的叙述中，错误的是A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据 B）当文本框失去焦点时，触发LostFocus事件 C）当文本框的Enabled属性为False时，其Tab顺序不起作用 D）可以用TabIndex属性改变Tab顺序 （17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为 A）= B）* C）& D）- （18）执行语句Open "" For Random As #1 Len = 50后，对文件中的数据能够执行的操作是 A）只能写，不能读 B）只能读，不能写 C）既可以读，也可以写 D）不能读，不能写 （19）在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click()n = Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is < 10x = 30Case 10x = 40End = xEnd Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是A）10 B）20 C）30 D）40 （20）设有以下循环结构 Do 循环体 Loop While <条件> 则以下叙述中错误的是 A）若"条件"是一个为0的常数，则一次也不执行循环体 B）"条件"可以是关系表达式、逻辑表达式或常数 C）循环体中可以使用Exit Do语句 D）如果"条件"总是为True，则不停地执行循环体 （21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integernum = 1Do Until num > 6Print num;num = num + Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A）1 B）1 3 5 C）1 4 7 D）无数据输出 （22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a－1 Loop While a <= 0 Print s; aEnd Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 A） 7 9 B） 34 0 C） 9 7 D）死循环 （23）设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x = 10 y=5 y = f(x) Print x; y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 A）10 5 B）20 5 C）20 40 D）10 40 （24）设有如下通用过程：Public Sub Fun(a(), ByVal x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click()Dim arr(5) As VariantFor i = 1 To 5arr(i) = iNextn = 10Call Fun(arr(), n) = nEnd Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 A）10 B）15 C）25 D）24 （25）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) > c Thend = d + x(i)c = x(i)Elsed = d－cEnd IfNext iPrint dEnd Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 A）89 B）99 C）23 D）77 （26）在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4~ Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是 A）Private Sub Command1_Click() = Str(Val( )*Val( )) End Sub B）Private Sub Command1_Click() = * End Sub C）Private Sub Command1_Click() = HScroll1 * HScroll2 End Sub D）Private Sub Command1_Click() = HScroll1. Text * End Sub （27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n = 1 To 20If n Mod 3 <> 0 Then m = m + n \ 3Next nPrint nEnd Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 A）15 B）18 C）21 D）24 （28）在窗体上画一个名称为Text1的文本框，并编写如下程序：Private Sub Form_Load() = "" SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print "程序设计"End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print "Visual Basic";End Sub 程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是 A）Visual Basic B）程序设计 C）A程序设计 D）Visual Basic程序设计 （29）设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum + xNextEnd Sub 该程序通过For循环计算一个表达式的值，这个表达式是 A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4 C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5 （30）以下有关数组定义的语句序列中，错误的是A） Static arr1(3) B）Dim arr2() As Integerarr1(1) = 100 Dim size As Integer arr1(2) = "Hello" Private Sub Command2_Click()arr1(3) = size = InputBox("输入：")ReDim arr2(size)．．．．．．End SubC）Option Base 1 D）Dim n As IntegerPrivate Sub Command3_Click() Private Sub Command4_Click()Dim arr3(3) As Integer Dim arr4(n) As Integer．．．．．． ．．．．．．End Sub End Sub

你是哪个学校的？我的专业就是计算机，做毕业设计时，正好作的设计是你描述的那样的设计，如果咱们不是一个学校的我就把设计给你好了！