04-05学年第1学期vb考试题及标准答案.pdf-得力文库

资源描述

《04-05学年第1学期vb考试题及标准答案.pdf》由会员分享，可在线阅读，更多相关《04-05学年第1学期vb考试题及标准答案.pdf（12页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、第 1 页共 12 页2004-2005 学年第一学期计算机应用基础课程试题命题教师：审题教师：题目一二三四五总分得分一、填空题（每空1 分，共 10 分）1VB中一个整型数据占用的存储空间为字节。2表达式Len(程序设计基础ABC)的值为。3表达式Val(12.34E-1)的值为。4为了在程序运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picture1，应使用的语句为。5.Private Sub Form_Click()Dim msg1 As String,msg2 As String,r As Integer msg1=继续吗？msg2=操作对话框 r=MsgBox(msg1

2、,vbYesNo+vbDefaultButton1,msg2)End Sub 程序运行后，单击窗体，屏幕会显示一个消息框。如果直接按回车键，则相当于用鼠标单击消息框中的按钮。6语句 Dim A(-1 to 2,3 to 5)用来声明一个二维数组，则这个数组中包含有个数组元素。7控件数组中各元素拥有相同的名字，区分控件数组各元素的属性是。8“&”可以作为长整型数据的类型符，可以作为八进制或十六进制常量的前导符，还可以做为运算符。9Visual Basic提供的对数据文件的三种访问方式为随机访问方式、和二进制访问方式。10随机文件记录数据的读取是通过语句实现的。第 2 页共 12 页二、选择题（

3、1-12 题每小题 1 分，13-15 题每题 2 分，共 18 分）1 VB 中标准模块文件的扩展名是（）A）vba B）vbs C）bas D）mds 2如果要改变Label 的标题，则需要设置属性（）A）Caption B）Name C）BackColor D）BorderStyle 3要判断在文本框内是否按下了回车键，可以用文本框的（）事件过程。A）Change B）LostFocus C）KeyDown D）GotFocus 4下列不可以作为Visual Basic变量名的是（）A）张三 B）姓名 C）then D）dim1 5表达式100&100+100的值是（）A）300 B）1

4、00100100 C）200100 D）100200 6当一个Visual Basic工程有多个窗体时，其中启动窗体是：（）A)启动 Visual Basic时建立的窗体B)第一个添加的窗体C)最后一个添加的窗体D)在“工程属性”对话框中指定的窗体7在窗体上画一个命令按，然后编写如下代码：Private Sub Command1_Click()dim a as long,b as long a=Inputbox(请输入第一个数)b=Inputbox(请输入第二个数)print a&b End Sub 程序运行后，单击命令按钮，在两个对话框中先后输入12345 和 54321，程序的输出结果是（

5、）A）66666 B）5432112345 C）1234554321 D）出错8在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Option Base 1 Private Sub Command1_Click()Dim city()As Variant city=Array(北京,上海,天津,重庆)Print city(1)End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）A）空白 B）错误提示 C）北京 D）上海9以下能判断文件长度的函数是（）A）BOF B）LOC C）LOF D）EOF 10如果要在菜单项中显示一个分隔线，则应将其Caption

8、Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim n As Integer,m As Integer m=0 For n=1 To 20 If n Mod 5=0 Then m=m+n 5 End If Next n Print m End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（）A）15 B）18 C）10 D）21 15在窗体上画一个名称为Command1 的命令按钮和三个名称分别为Label1、Label2、Label3 的标签，然后编写如下代码：第 4 页共 12 页Private x As In

9、teger Private Sub Command1_Click()Static y As Integer Dim z As Integer n=10 z=n+z y=y+z x=x+z Label1.Caption=x Label2.Caption=y Label3.Caption=z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是（）A）10 10 10 B）30 30 30 C）30 30 10 D）10 30 30 三、写出程序运行结果（每小题 4 分，共 20 分，结果直接写在题右侧空白处）1Private Sub Command1_Click()Di

10、m m As Integer,n As String m=Val(InputBox(请输入一个整数)Print xx(m)End Sub Function xx(ByVal x As Integer)As String Dim s As String,y As String,n As Integer s=0123456789abcdef y=Do While x 0 n=x Mod 16 y=Mid(s,n+1,1)&y x=x 16 Loop xx=y End Function 程序运行后，在输入框中输入30。运行结果是：第 5 页共 12 页2Private Sub Command1_C

11、lick()Dim a As Integer,b As Integer,c As Integer,i As Integer,sum As Integer a=1 b=1 sum=a+b For i=1 To 4 c=a+b sum=sum+c a=b b=c Next i Print sum End Sub 3Private Sub Text1_KeyPress(KeyAscii As Integer)Dim s As String s=Chr(KeyAscii)If InStr(0123456789-.,s)=0 And KeyAscii 8 Then KeyAscii=0 End If E

12、nd Sub 该段程序的主要功能是：4 Private Sub Form_Click()Dim a As Integer,b As Integer a=2:b=5 Call p1(a,b)Call p2(a,b)Print a=;a,b=;b End Sub Sub p1(x As Integer,y As Integer)x=x+1 y=y+2 End Sub Sub p2(ByVal x As Integer,y As Integer)x=x+1 y=y+2 End Sub 第 6 页共 12 页5 Option Base 1 Private Sub Command1_Click()Di

13、m i As Integer,a(10)As Integer For i=1 To 10 a(i)=i Next i For i=1 To 10 Call swap(a(i),a(10-i+1)Next i For i=1 To 10 Print a(i);Next i End Sub Sub swap(x As Integer,y As Integer)Dim t As Integer t=x x=y y=t End Sub 四、完善程序（每空2 分，共 20 分，请将答案直接填在空格处）1以下程序用于求整数范围内最大的一个素数，判断素数由函数ss 完成。Function ss(ByVal

14、x As Integer)As Boolean Dim k As Integer,i As Integer k=Int(Sqr(x)For i=2 To k If Then Exit For Next i ss=IIf(,True,False)End Function Private Sub Command1_Click()Dim m As Integer For m=To 2 Step-2 If ss(m)=True Then MsgBox 整数范围内最大的素数是：&m End If Next m End Sub 第 7 页共 12 页2 以下程序用于输出10005000 以内符合条件“千

15、位数字与十位数字之和是百位数字与个位数字之和的10 倍”的数并统计个数，如 1091 和 4160 就是这样的数，请补充程序。Private Sub Command1_Click()Dim m As Integer,n As Integer,x As Integer Dim a(0 To 3)As Integer,i As Integer For m=1000 To 5000 x=m For i=0 To 3 a(i)=x=x 10 Next i If Then Print m End If Next m MsgBox 满足条件的数共有：&n&个 End Sub 3以下程序中函数gys 用于求

16、两个数的最大公约数，主程序调用该函数求从键盘上输入的三个数的最大公约数。补充程序。Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer a=Val(InputBox(请输入第一个数)b=Val(InputBox(请输入第二个数)c=Val(InputBox(请输入第三个数)MsgBox 这三个数的最大公约数为：&End Sub Function gys(ByVal m As Integer,n As Integer)As Integer Dim r As Integer Do r=If r=0 Then E

17、xit Do m=n n=r Loop gys=End Function 第 8 页共 12 页五、编程题（共32 分，每题 8 分）1计算表达式4！+8！+10！的值，其中阶乘要求用函数完成。2有一个数组A（m,n），m，n 从键盘输入，数组元素是随机函数产生的10，99之间的整数，求该数组四周元素之和。3随机产生10 个两位整数，按由大到小的顺序排序后输出。4有一个名为“F.TXT”的顺序文件，存放着若干学生的学生姓名和计算机成绩，请读出计算机成绩并分类统计人数：(1)59 分以下(2)60 69(3)7079(4)8089(5)90 分以上第 9 页共 12 页西北农林科技大学本科课

18、程考试参考答案与评分标准考试课程：计算机应用基础学年学期：20042005 学年第 1 学期试卷类型：A 卷考试时间：2004 年元月 17 日专业年级：2003 级部分专业统考一、填空题（每空1 分，共 10 分）12 2 9 31.234 4 LoadPicture(d:pica.jpg)5“是”、“yes”、“第一个”均可612 7Index 8字符串连接9顺序访问方式10Get 二、选择题（1-12 题每小题 1 分，13-15 题每题 2 分，共 18 分）CACCD DCCCD BAACC 三、写出程序运行结果（每小题4 分，共 20 分）11e 220 3“限制文本框中数据录入范

19、围”。只要能答对意思即可4a=3 b=9 51 2 3 4 5 6 7 8 9 10 四、完善程序（每空2 分，共 20 分）1 x/i=x i i=k+1 32767 Exit For 2 x Mod 10 a(3)+a(1)=(a(2)+a(0)*10 n=n+1 3 gys(a,gys(b,c)或 gys(gys(a,b),c)r=m Mod n gys=n 五、编程题（每题8 分，共 32 分）1.评分标准(1)会定义函数，有完整的结构及功能6 分(2)正确调用2 分Function fact#(ByVal n%)Dim f#,i%f=1 For i=1 To n f=f*i Next

20、 i fact=f End Function 第 10 页共 12 页Private Sub Command1_Click()Print fact(4)+fact(8)+fact(10)End Sub 2评分标准（1）定义动态数组2 分（2）为数组赋值并输出2 分（3）计算四周元素之和4 分，有重复计算酌情扣分。Option Base 1 Private Sub Command1_Click()Dim m%,n%,i%,j%,s%m=Val(InputBox(请输入数组行数)n=Val(InputBox(请输入数组列数)ReDim a%(m,n)For i=1 To m For j=1 To

21、 n a(i,j)=Int(Rnd*90)+10 Print a(i,j);Next j Print Next i For i=1 To m s=s+a(i,1)+a(i,n)Next i For i=2 To n-1 s=s+a(1,i)+a(m,i)Next i Print 数组四周元素之和为：&s End Sub 3评分标准（1）会定义数组1 分（2）为数组赋值并输出2 分（3）可以选用任何方式排序4 分（4）输出排序结果1 分Option Base 1 Private Sub Command1_Click()Dim i%,j%,a%(10),t%For i=1 To 10 a(i)=I

22、nt(Rnd*90)+10 Print a(i);第 11 页共 12 页Next i Print For i=1 To 9 For j=i+1 To 10 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 10 Print a(i);Next i Print End Sub 4评分标准（1）正确打开文件2 分（2）正确读出数据2 分（3）正确分段统计2 分（4）循环正确1 分（5）正确输出1 分Option Base 1 Private Sub Command1_Click()Dim xm$,cj

23、%,n1%,n2%,n3%,n4%,n5%Open f.txt For Input As#1 Do Until EOF(1)Input#1,xm,cj If cj 60 Then n1=n1+1 ElseIf cj 70 Then n2=n2+1 ElseIf cj 80 Then n3=n3+1 ElseIf cj 90 Then n4=n4+1 Else n5=n5+1 End If Loop Close Print 59 分以下的人数是：&n1 第 12 页共 12 页Print 60 69 分的人数是：&n2 Print 70 79 分的人数是：&n3 Print 80 89 分的人数是：&n4 Print 90 分以上的人数是：&n5 End Sub

展开阅读全文