20110411月考测试卷及答案.docVIP

20110411温岭中学月考测试卷 1、Abs, true, 12TS, i_64, 234, x2中，能作为变量名的有 2、数学表达式(x3+lgx)/(|x+3|-y)的VB表示形式为 3、判断字符串变量StrAbc的第三位至第五位的子串是否大于“abc”的VB表达式是 4、已知a=3.69，b= -6，则VB表达式int(-a)+b mod 5的值为____________________ 5、表达式A+B+CD And A=3 Or Not C0 Or D0 ,当A=3,B=4,C=-5,D=6 时的运算结果是 6、骰子是一个正六面体，1～6这六个数分别代表这六面，掷一次骰子出现的数可表示为________ 7、从面向对象的视角来分析，当沉重的杠铃被举起了，则“沉重的”、“杠铃”、“举”、“杠铃被举起”可分别代表 8、编程语言（C++,Qbasic,VisualBasic,VB.net,Pascal）中不支持面向对象程序设计的有 9、VB窗体文件的扩展名和工程文件的扩展名分别是 （写答案时注意先后顺序） 10、有如下程序段： 11、如果下面流程图实现的功能是计算从1到30 t=0 的累乘，则菱形框中应填入____________ For i= 1 to 15 step 5 t= t + i Next i 则该程序运行后，t 和 i 值分别是___________ 12、下面是一段循环结构的程序段： s = 0 x = 2 Do While x = 12 s = s + 1 x = x + 3 Loop 该程序运行后，循环体执行的次数是___________ 13、数组d 中有6个元素，下面的程序段是对这6个元素进行排序，其中d ( j ) d ( j – 1 ) 所在的句子执行的次数是__________________ For i = 1 To 5 For j = 6 To i + 1 Step -1 If d(j) d(j - 1) Then t = d(j): d(j) = d(j - 1): d(j - 1) = t End If Next j Next i 14、以下程序的功能是求表达式1×100+2×99+3×98+…+98×3+99×2+100×1的值。请把程序填写完整： Private Sub Form_click() s = 0 For i = 1 To 100 Next i Text1.Text = Str(s) End Sub 15、小明编写了如下VB程序段： Private Sub Command1_Click() Dim x As Double Dim y As Double x = Val(Text1.Text) y = Abs(x) x = Exp(y) Text2.Text = Str(x) End Sub 此应用程序执行后，单击Command1命令按钮后出现了如上图所示的错误信息，请问产生此错误的原因可能是___________________ 16、若已知下列程序段能实现如下表所示的两种“运算功能”，则程序段划横线处应分别填入 ________、________（填A~D选项中的其中一项）。 运算功能 横线处的程序语句 ① s=1+3+5+7+…+19 ② s=1/(1*3)+1/(3*5)+1/(5*7)+…1/(19*21) a = 1 x = 1 s = 0 Do While x 21 A. b=b+x s=s+b B. a=x*(x+2) s=s+1/a C. a=-a s=s+a*x D. s=s+x __________ x = x + 2 Loop Print s 17、如果有两个质数的差为2，则称这对质数为质数对，下列程序是找出100以内的质数对，并成对显示在窗体上。其中isprime用来判断是不是质数。则程序中划线处应分别填入： Public Function isprime(num) As Boolean Dim i As Integer isprime