VB考试复习题10套.doc

11一、程序填空 共1题 （共计20分）第1题 （20.0分） 题号:530 【程序填空】 功能：有数列 1/5 + 1/9 + 1/13 + 1 / (1 + k * 4) (k=100) 求前 100 项之和 Private Sub Command1_Click() Dim s As Double Dim k As Integer **********SPACE********** s = 【?】 **********SPACE********** For k = 1 To 【?】 **********SPACE********** s = s + 1 / (1 +【?】) Next k Print s End Sub 答案：=======(答案1)=======0=======(答案2)=======100 =======(答案3)=======k*4 =========或========= 4*k 二、程序改错 共1题 （共计20分）第1题 （20.0分） 题号:465 【程序改错】 题目：用InputBox函数输入一个字符串，编写程序按与 输入的字符相反的次序用Msgbox函数输出这个字 符串。如输入字符串为abcdefgh，则输出为h gfedcba，输出效果如图1。 Option Explicit Private Sub Command1_Click() Dim pristr As String, outstr As String Dim i As Integer pristr = InputBox(please input a string) **********FOUND********** For i = 0 To Len(pristr) **********FOUND********** outstr = outstr + Mid(pristr, Len(pristr) - i) Next i **********FOUND********** MsgBox outstr, , The Output Result End Sub 答案：=======(答案1)=======For i = 0 To Len(pristr) - 1 =========或=========For i = 0 To -1+Len(pristr) =======(答案2)=======outstr = outstr + Mid(pristr, Len(pristr) - i, 1) =========或=========outstr = Mid(pristr, Len(pristr) - i, 1)+outstr =======(答案3)=======MsgBox outstr, vbQuestion, The Output Result 三、程序设计 共1题 （共计30分）第1题 （30.0分） 题号:484 【程序设计】 题目： (事件)单击窗体。 (响应)求从100到1000之间所有是3的倍数的数之 和，当和大于3000时，停止计算并输出和。请将结果输 出到窗体上,并存入所给变量SUM中。使用for...next语 句完成程序 答案：---------------------- Dim i As Integer sum=0 for i=100 to 1000 if i mod 3=0 then sum=sum+i if sum3000 then exit for endif endif i=i+1 next Print sum ---------------------- 四、VB窗体设计 共1题 （共计30分）第1题 （30.0分） 题号:73 【窗体设计】 ------------------------------------------------ 题目： 启动VB后，新建工程，在窗体上放置四个文本框， 五个标签，两个按钮。各控件属性设置如下表，设 计一个简单计算器，能后实现加、减、乘、除四则 运算。程序运行界面如图所示。 各控件属性设置如下表：对象名称 Name属性 Caption属性 窗体 默认