Vb历年试题分析.doc

考点1、变量、表达式及函数历年试题：2008年9月 （12）、（13）、（14）、（15）、（19）答案：（12）D、（13）C、（14）B、（15）D、（19）A2008年3月（12）、（13）、（15）(12) 在Visual Basic中，表达式3*25 mod 3的值是（）A）1 B) 0 C)3 D)出现错误提示（13）在以下选项中，不合法的Visual Basic的变量名是（）A）a5b B)_xyz c)a_b D)andif(15)现有语句：Y=IIF（X0，X mod 3,0）设X=10，则Y的值是（）A）0 B）1 C）3 D）语句错误 答案：（12）A、（13）B、（15）B2007年9月（14）（14）执行以下程序后输出的是Private Sub Command1_Click() Ch$=”AABCDEFGH” Print Mid(Righ(ch$,6),Len(left(ch$,4),2) End Sub A)CDEFGH B)ABCD C)FG D)AB答案：（14）C2007年4月（11）、（12）（11）下面可以正确定义两个整型变量和一个字符串变量的语句是（）A）Dim n,m As Interger, s As String B)Dim a%, b$, c As StringC) Dim a As Integer, b,c As String D)Dim x%,y As integer, z As String（12）下列表达式中不能判断x是否为偶数的是（）。A）x/2=int(x/2) B) x mod 2=0 C)Fix(x/2)=x/2 D)x2=0答案：（11）D、（12）D2006年9月（13）、（15）、（16）（13）设a=2,b=3,c=4,下列表达式的值是（）。Not a=c OR 4*c=b2 And ba+c A)-1 B)1 C)True D)False答案：D考点及难点2、控制结构历年试题：2008年9月2008年4月2007年9月（27）下面程序执行时，在窗体上显示的是 Private Sub Command1_Click() Dim a(10) For k = 1 To 10 a(k) = 11 k Next k Print a(a(3)a(7) Mod a(5) End Sub A）3 B）5 C）7 D)9（30）下面程序的输出结果是 Private Sub Command1_Click() ch$=”ABCDEF” proc ch Print ch End Sub Private Sub proc(ch As String) S=” For k=Len(ch) To 1 Step-1 s=s&Mid(ch,k,1) Next k ch=s End Sub A）ABCDEF B）FEDCBA C）A D）F （31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： Function MaxValue(a() As Integer) As Integer Dim max% max=1 For k = 2 To 10 If a(k)a(max) Then max = k End If Next k MaxValue = max End Function 程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是 A）语句max = 1应改为max = a(1) B）语句For k = 2 To 10应改为For k = 1 To 10 C）If语句中的条件a(k)a(max)应改为a(k)max D）语句MaxValue = max 应改为MaxValue = a(max) （32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click() Dim n%,b,t t = 1:b = 1:n = 2 Do b = b*n t = t + b n = n +1 Loop Until n9 Print t End Sub 此程序计算并输出一个表达式的值，该表达式是 A）9！ B）10！ C）1！+2！+9！ D）1！+2！+10！（34）某人设计了下面的函数fun，功能是返回参数a中数值的位数 Function fun(a As Integer) As Integer Dim n% n = 1 While a 10 = 0 n = n + 1 a = a 10 Wend fun = n End Function 在调用该函数时发现返回的结果不正确，函数需要修改，下面的修