《VB期末考试样题.doc》由会员分享,可在线阅读,更多相关《VB期末考试样题.doc(5页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、2007-2008学年第1学期期末考试Visual Basic程序设计课程试卷(样题)注:这是样题,关于题量请参阅考试大纲。教学班别: 姓名: 学号: 考生须知:1答案必须按各题目的要求填写在答题卷或答题纸上,填在本试题卷中不得分。2答题卷中的准考证号共9个空格,请填写学号后9位(例如学号为的考生,则填写)。答题卷中的姓名必须填写,科目与试卷类型不填。3本试题卷及答题纸中的教学班别、姓名、学号都必须填写,不得留空,否则不得分。考试完成后,本试题卷须与答题卷、答题纸一起交监考人员。一、单选题在下列各小题的(A)、(B)、(C)、(D)四个选项中,只有一个选项是正确,请将正确的选项涂在答题卡相应的
2、位置上。1设a = 5,b = 4,c = 3,d = 2,表达式3 2 * b Or a = c And bc Or cd的值是(A) 1 (B) True (C) False (D) 22设a = MicrosoftVisualBasic,则以下使变量b的值为 VisualBasic的语句是(A)b = Left(a,10)(B)b = Mid(a,10)(C)b = Right(a,10) (D)b = Mid(a,11,10)3假定有如下的窗体事件过程: Private Sub Form_Click() a$ = Microsoft Visual Basic b$ = Right(a$
3、, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体,则在弹出的信息框中的标题栏中显示的信息是:(A)Microsoft Visual(B)Microsoft(C)Basic(D)54设a = a,b = b,c = c,d = d,执行语句x = IIf (ad), A, B) 后,x的值为:(A) a (B) b (C) B (D) A5为了使命令按钮(名称为Command1)右移200,应使用的语句是(A)Command1.Move -200 (B) Command1.Move 200(C)Command1.Le
4、ft= Command1.Left+200(D)Command1.Left = Command1.Left-2006在窗体上画一个文本框,然后编写如下事件过程:Private Sub Form_Click() x = InputBox(请输入一个整数) Print x + Text1.TextEnd Sub程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容是:(A)123(B)456(C)579(D)7在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,
5、Enabled属性设置为False,程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序:Private Sub Command1_Click() Timer1._End SubPrivate Sub Timer1_Timer() Text1.Text = TimeEnd Sub在_处应填入的内容是(A)Enabled = True (B)Enabled = False(C)Visible = True (D)Visible = False8在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:Private Sub Command1
6、_Click() Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = i If i 0 Print sEnd Sub以上程序的功能是 【5】 ,8+7+6+2+1 程序运行后,单击窗体,输出结果为 【6】 。36五、程序填空题请将答案填写在答题纸【7】【10】序号的横线上相应的位置上。1在窗体上画一个名称为“Command1”的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As String a = For i = 1 To 5 Print Space(6-i)
7、;Mid$(a, 【7】6-i ,2 * i-1) Next i End Sub 程序运行后,单击命令按钮,窗体上的输出结果是 5 456 34567 请填空。2以下程序的功能是:将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来,要求把A(1)到A(10)依次赋给B(1,1)到B(1,10),把A(11)到A(20)依次赋给B(2,1)到B(2,10),把A(91)到A(100)依次赋给B(10,1)到B(10,10)。请填空。 Option Base 1 Private Sub Form_Click() Dim i As Integer,j As Integer Dim A
8、(1 To 100) As Integer Dim B(1 To 10,1 To 10) As Integer For i = 1 To 100 A(i) = Int(Rnd * 100) Next i For i = 1 To 【8】 10 For j = 1 To 【9】 10 B(i,j) = 【10】a(10*(i-1)+j) Print B(i,j); Next j Print Nexti EndSub六、程序设计题请将程序写在答题纸相应的位置上。1在窗体中画有如下控件,其中两个文本框的名称与文本相同,设计程序要求如下:(1)程序运行时,自动将两个文本框内容清空。 (2)单击“计算”
9、按钮(Command1)时,根据Text1中输入的圆半径,求出圆周长,然后显示在Text2中。要求不论在Text1中输入的内容是什么都不会出现“类型不匹配”的语法错误。圆周率请用3.1416。2设计一个窗体单击事件过程,其功能为:定义一个含有10个元素的整型数组A,给A的每个元素赋一个在区间60,100中的随机整数,然后从中找出最大的数,最后将这个最大的数及其在数组中的位置分别显示在文件框Text1和Text2中。第1题:Private Sub form_Load() Text1.text=”Text2.text =” End SubPrivate Sub Command1_Click() Text2.text =2*3.1416*val(Text1) End Sub第2题Private Sub Form_Click() Dim a(1 To 10) As Integer, max As Integer, maxi As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 41) + 60 Next i max = a(1): maxi = 1 For i = 1 To 10 If a(i) max Then max = a(i): maxi = i Next i Text1 = max Text2 = maxiEnd Sub
限制150内