模拟练习题（弟5套）.docVIP

模拟练习题（第5套）　　 　?　 一、选择题　　 1．结束当前程序的语句是。　　 (A)Quit (B) Exit (C) End (D) Sub　　 2．窗体能够响应的事件是　　 (A) ActiveForm (B) Drive (C) Load (D) Change　　 3．下列各组控件都具有Caption属性的是　　 (A) 按钮、文本框 (B) 标签、列表框 (C) 按钮、标签 (D) 文本框、列表框　　 4．能显示窗体的方法是　　 (A) Visible (B) Show (C) New (D) Open　　 5．在Visual Basic中，语句Dim b As Double所定义的变量b是　　 (A) 整数型 (B) 单精度实数型 (C) 双精度实数型 (D) 长整数型　　 6．定义a由a(1)~a(20)组成的一维数组整数类型变量，下列定义语句正确的是　　 (A) Dim a(1 To 20) As Double (B) Dim a(20 To 1) As Integer　　 (C) Dim a(20) (D) Dim a(1 To 20) As Integer　　 7．Len(Friend)的值是　　 (A) 6 (B) 7 (C) 8 (D) 9　　 8．假定X是一个数值型变量，那么由函数组成的表达式x mod 2 = 0的作用是　　 (A) 用于测试工X是否为偶数 (B) 返回一个整数　　 (C) 返回一个奇数 (D) 用于测试X是否为整数　　 9．下列能表示“x小于10且y大于　0”　的Visual Basic逻辑表达式是　　 (A) x10 And y0 (B) x10: y0 (C) x10 Or y0 (D) x10,y0　　 10．语句x=x+1的正确含义是　　 (A) 变量x与x+1的值相等 (B) 将变量x的值加到x+1中去　　 (C) 将变量x的值加1后赋值给变量x (D) 变量x的值为1　　 11．以下程序段执行后，整型变量n的值为　　 year=2001　　 n=year\4+year\400-year\100　　 (A) 495 (B) 505 (C) 500 (D) 485　　 12．有如下Visual Basic程序段：　　 s=0　　 For k = 1 To 4　　 If 8/k =3 Then s=s+k　　 Next　　 该程序段运行后，变量s的值是　　 (A) 1 (B) 2 (C) 3 (D) 10　　 13．以下算法中，需通过多重循环一一列举出解决问题的所有可能解，并在逐一列举的过程中，检验每个可能的解是否是向题的真正解的是哪种，而需要从实际问题中归纳出数学解析式，就此设计出合适的算法的是哪种　　 (A)?解析法，枚举法 (B) 递归法，解析法 (C) 枚举法，解析法 (D) 枚举法，递归法　　 　?　 二、综合题　　 1．有如下VB程序段：　　 Dim n As Integer　　 Dim m As Integer　　 m = 0　　 For n = 1 To 10　　 m = m + n mod 3　　 Next n　　 该程序段运行后，变量m的值是 　　 2．在平面直角坐标系中存在某点A(x，y)，输入该点坐标值，求它所在象限！　　 为了实现这一功能，则程序中划线处的语句应更正为　　 （1） ?　　 （2） ?　　 Private Sub Command1_Click()　　 Dim x, y As Single　　 x = Val(Text1.Text)　　 y = Val(Text2.Text)　　 If x=0 and y=0 Then （1）　　 Print 在坐标轴上　　 Else　　 If ?x =0 Then （2）　　 If y 0 Then Print 在第一象限 Else Print 在第四象限　　 Else　　 If y 0 Then Print 在第二象限 Else Print 在第三象限　　 End If　　 End If　　 End Sub　　 3．将一张面值为100元的人民币等值换成5元、1元的零钞共40张，要求每种零钞不少于1张，问5元和1元面值的零钞各多少张？　　 设x、y分别为5元和1元面值的零钞张数，通过分析可得出该问题的数学表达式为：　　 　　　　　　 解决上述问题的Visual Basic程序如下，为了实现这一目标，在划线处，填入