09技师1班B卷试题题目 2

姓名
江苏大学继续教育学院 镇江技师学院函 授 站 ( 点 ) 试 题 B 卷
共 第 2 页 1 页来自课 程 名 称： 09 技 师 1 班
VB 语言程序设计
考试日期 ____________ 姓 六 七 名 ____________ 八 总计 核查人签名
8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB D、 VB VB Hello! VB 9、语句 Print "The answer is:";20/4-2 的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 二、 填空题（1×20） 1.1．把整型数 1 赋给一个逻辑型变量，则逻辑变量的值为 True。 2．下列数据类型的变量各占多少字节的内存： Byte： 1 ；Integer： 2 ；Long： 4 ；Single： 4 ；Double：8 。 3．刚被定义尚未赋值的日期型变量的值为 #0.00.00# ；逻辑型变量的值为 False ；对象型变量的值为 Nothing ；变体变量的值为 Emply 。 4．对象型变量可以引用一个对象。使用 Dim objFirst As Object 语句定义一个 对 象 型 变 量 ， 如 果 要 把 名 称 为 cmdFirst 的 命 令 按 钮 赋 予 它 ， 应 使 用 Setobject=cmdFirst 语句。 5. 数 学 式
出卷人
第2页
3. Private Sub Command1_Click() Dim a(1 To 20) As Integer ' 1分 Randomize For i = 1 To 20 2分 a(i) = Int(Rnd * 100) Print a(i); Next Print For i = 1 To 19 3分 For j = i + 1 To 20 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i For i = 1 To 20 2分 Print a(i); Next i End Sub
季燕青
1.我国现有人口 13 亿，设年增长率 1%，计算多少年后增加到 20 亿 。 Sub form click() Dim p as double Dim r as double Dim n as double P=13 亿 R=0.01 N=0 Do untilp>=20 亿 oP=p*（1+r） N=n+1 Lop Print n“年后”;“全国人口达到”p End sub 2.求 n!,n 由键盘输入. Private Sub command1_click() Dim n as integer,f as long n=text1.text f=1 for I=1 to n f=f*I next I text2.text=f end sub 3.产生 20 个 [0，99] 之间的随机整数，并按从小到大的顺序输出。
季燕青
姓名____________
10.在 VB 中，修改窗体的 判断题(2×10)
高度和
宽度
属性值，可改变窗体的大小。 * 15 16 程序运行结果： 2 5 30 75 32 80
审核__________审批__________、 ___________ 班级 09 技师 1 班
1．标签控件是专门用来显示信息的，所以不能响应鼠标的单击事件。( ×) 2．窗体的 Move 方法不但可以移动窗体，而且可以改变窗体的大小，同时也会改变窗 体与大小和位置有关的属性值。( √) 3．窗体的 Enabled 属性为 False 时，窗体上的按钮、文本框等控件都不会对用户的操 作作出反应。( √) 4．一条 Visual Basic 语句如果不超过 80 个字符是不能续行的。( × ) 5．在 Visual Basic 程序中不可能同时出现 txtA 和 txta 两个控件名。( √ ) 6．If与End If关键字必须成对地使用，有一个If就有一个End If与之相对应。( × ) 7．在 VB 中，控件的事件只能通过用户的操作触发。( × ) 8．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。( √ ) 9．保存工程时，窗体文件和工程文件的文件名不能相同。( × ) 10．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。(√ ) 四、写出下面程序的输出结果。 （3×5） 1、 Private Sub Form_Click() Static SUM As Integer I = 1 Do While I<=10 SUM = SUM + I I = I + 1 Loop Print SUM End Sub 运行程序，第一次单击窗体： 第二次单击窗体： 55 110
第 1 页
第 1 页
a b x y
2
2
2
2
对 应 的 VB 表 达 式 为
Sqr(y^3+3*(a^2+b^2)
/(x^2+y^2)) . 6．在一条 Dim 语句中可以定义多个变量，如 Dim strVar, intVar, sngVar As Integer，则 strVar、intVar 与 sngVar 的数据类型分别是 Variant 、Variant 和 Integer。 2.7.已知 a=2,b=3,c=4,d=5 ，表达式 Not a<=c Xor 4*c=b^2 Or b<>a+c 的值为 False。 8.设变量 x 是一个两位正整数， 写出判断 x 的十位数是个奇数数字的 VB 逻辑表达 式： x\10mod2=1 。 9.写出表达式 Val("10abc.5") * Int(-2.7) 的值： -30。
五、编程题（30 分）
2、 Private Sub Form_Click() Print "*"; Tab(6); 2, Tab(15); 5 Print For I = 15 To 16 Print I; For j = 2 To 6 Step 3 Print Tab(3 * j); j * I; Next j Print Next I End Sub
y 3
3
层次、专业、班级：09 技师 1 班 题号 得分 阅卷人 签名 一 二 三 四 五
C、 VB Hello!
审 核 __________ 审 批 __________ 、 ___________ 班 级
____________
出卷人
一、 选择题（1.5×10） 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键 时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的 Max 属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的 Value 属性最大设置值 B、 单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变 的属性是 D 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾