2013VB考试复习题.xls

结果 Page 1 说明 题型 1表示判断 2表示单选 3表示多选 4 表示填空 5表示编程 难度2为中等 判断题a 表示正确 B 表示错误 填空题 第一空放在参考答案中 章章节节题题型型问问题题难难度度系系数数 21 改变控件的大小 可以使用鼠标和键盘 还可以通过执行代码 2 21 当按钮的Enable 属性设置为false时 该按钮为不可见 3 21 标签框有Text属性 3 21 改变控件在窗体中的上下位置应修改控件的Width属性 3 21 有的对象属性既可在属性窗口中设定又可在程序代码中设定 2 21 用窗体的caption属性可以设置窗体的标题 2 31 代码Const Number1 15 Number1 10合法 2 31 Double 类型的数据由4个字节组成 3 31 Dim a as integer A as integer为正确的变量定义语句 2 31 在一个语句行内写多条语句时 语句之间应该用逗号分隔 2 41 用 Do Loop While 语句实现循环时 不管条件真假 首先无条件执行循环一 次 2 41 在Do While Loop结构中要安排修改循环条件的语句循环过程才不会产生死循 环 3 41 关键字For和Exit必须成对地使用 2 41 对于 For i 0 to 5 print i Next i 循环结构的循环次数是5次 3 41 如果算术表达式作为IF语句的判断条件 那么其值是非零按真处理3 51 定义数组语句Dim a b As Integer 是正确的 2 51 在Visual Basic 中使用数组必须遵循 先定义 后使用 的原则 2 61 VB函数中的参数可以是常量 变量 表达式 还可以是另一个函数 2 31 VB的赋值语句只能给变量赋值 2 31 在VB中 字符型常量应使用 号将其括起来 2 21 用窗体的Caption属性可以设置窗体的标题 3 41 IF语句中条件表达式中只能使用关系或逻辑表达式2 11 VB是一种面向对象的程序设计语言1 41 if语句中的条件表达式可以是逻辑表达式1 41 do while语句中的条件表达式只能用逻辑表达式或关系表达式2 41 for语句中的步长可以设置为负数2 41 在while语句中一般要有一个专门用于改变循环控制条件的语句1 31 数据 2011 12 23 是字符类型3 31 函数Time返回的是现在的时间3 31 函数Int Rnd 100 有可能返回整数1003 31 表达式Not 10 33 30 45 And AAA ABC 的值是Ture2 31 表达式Sgn Val Not 23 77 23 3 的值是03 31 表达式Val Not 23 23 And x y 的值是02 31 程序段 Dim x Do While x x 2 x Exit Do Loop Print x 的输出结果是2 3 41 以下循环嵌套语句是正确的 For i 1 To 10 For j 1 To 20 Next i Next j 3 结果 Page 2 41 以下循环嵌套语句是正确的 For I IF Then Next I End IF 3 41 以下语句嵌套是正确的 IF Then For I End IF Next I 3 41 以下语句嵌套是正确的 IF Then For I Next I End IF 3 41 以下语句嵌套是正确的 Do while 3 Loop 3 41 以下语句将输出 BBB IF 1 Then Print AAA Else Print BBB End If 3 31 以下语句将输出 AAA If 3 3 Then Print AAA Else Print BBB End If 3 12 不是Visual Basic标准控件的是 2 22 改变控件在窗体中的左右位置应修改控件的 属性 3 22 决定控件上文字的字体 字形 大小及效果的属性是 3 22 运行时 当用户向文本框输入新的内容 或在程序代码中对文本框的Text属性 进行赋值从而改变了文本框的Text属性值时 将触发文本框的 事件 2 22 在Visual Basic中 组成对象的 三要素 是 3 22 如果要改变窗体的标题 则需要设置的属性是 3 22 在VB环境中 工程文件的扩展名是 1 22 Caption是Label控件的 2 22 决定Label控件是否可见的是 属性 3 22 Visual Basic中所有对象都有 属性 3 22 改变控件在窗体中的上下位置应修改控件的 属性 3 32 设变量x 4 y 1 a 7 b 8 下面表达式 的值为 假 2 32 表达式Int 3 34 20值是 1 32 Integer类型的变量可存的最大整数是 3 32 下列数据类型中 占用内存最小的是 1 32 执行语句s Len Mid VisualBasic 5 7 后 s的值是 3 32 表达式6 Mod 4 2 3 2 38的值是 2 32 以下能产生21到53之间 包括21和53 的随机整数的是 2 32 设a 5 b 6 c 7 d 8 执行语句x iif a b and d c 10 20 后 x的值的 是 1 32 表达式abs 5 Len ABCDE 的值是 3 32 函数Int Rnd 100 是在 范围内的整数 3 32 下面的运算符中 优先级最高的是 3 结果 Page 3 32 我们在一个窗体上建立两个文本框 名称分别为Text1和Text2 事件过程如 下 Private Sub Text1 Change Text2 Text UCase Text1 Text End Sub 则在Text1文本框输入 visual basic Text2将 3 32 下列各项不是Visual Basic的基本数据类型的是 2 32 下列运算结果中 值最大的是 2 32 表达式2 3 2 2 8 4的值为 3 32 变量A 的类型是 2 42 下列赋值语句 是有效的 2 42 下列代码的运行结果为 Private Sub command1 click Dim m 10 For k 1 To 10 m k 11 k Next k x 5 Print m x End Sub 2 42 当VB执行下面语句后 A的值为 A 0 IF A 0 THEN A A 1 IF A 1 THEN A 0 2 42 以下哪个程序段不能正确地求出两个数中的大数 2 42 如果整型变量a b的值分别为3和1 则下列语句中循环体的执行次数是 For i b to a Print i Next i 2 42 由For k 0 to 10 step 3 next k 循环语句控制的循环次数是 3 42 语句 If x 1 Then y 1 下列说法正确的是 2 42 下面程序段运行后 显示的结果是 Dim x As Integer If x Then Print x Else Print x 1 2 42 下列程序的执行结果为 a 100 b 50 If a b Then a a b Else b b a End If Print a 3 62 在 Form2 中引用 Form1 中的全局变量x 写作 2 62 用于声明全局变量的关键字是 2 32 不属于Visual Basic的基本数据类型的是 3 32 下列运算结果中 值最大的是 2 42 用InputBox函数可帮助生成 1 32 16 mod 3的运算结果是 3 32 表达式2 3 2 2 8 4 3 2的值为 2 32 下列符号是Visual Basic中合法变量名的是 3 42 下列语句中循环体的执行次数 For I 1 to 10 step 2 k k 1 Next I 3 结果 Page 4 42 下面程序段的循环结构执行后 I 的输出值是 For I 1 to 10 step 2 y y I Next I print I 2 42 x是小于100的非负数 用vb表达式正确的是 2 32 19 Mod 2 2的运算结果是 3 32 a和b中有且只有一个为0 可以用以下表达式来表示 3 32 Byte类型的数据由几个字节组成 3 32 Double类型的数据由 个字节组成 3 32 变量A 的类型是 2 32 表达式X 1 X是 2 42 若x是一个正实数 对x保留小数点后两位小数的表达式是 3 42 把 InputBox 的返回值转换为数值应该使用的函数是 3 32 删除字符串前导和尾随空格的函数是 2 52 如果有数组声明 Dim a 1 to 10 As Integer 则该数组共有 个元素 2 22 函数len 123ABC 的值是 3 52 如果有数组声明 Dim a 10 As Integer 则该数组共有 个元素 2 32 函数len 123456 的值是 3 32 表达式Int Rnd 71 10产生的随机整数范围是 2 32 函数Sgn 5 1416 的返回值是 3 42 下列赋值语句 是有效的 1 22 语句Dim b As single 的作用是 将b定义为什么类型变量 2 22 保存一个工程至少应保存两个文件 这两个文件分别是 1 32 表达式 abc Next i End Sub 3 44 在窗体上画一个名称为Command1的命令按钮 然后编写如下事件过程 单击命令按钮 结果为 Private Sub Command1 Click Dim a As Integer a 100 Do Print a a a 10 Loop Until a 10 End Sub 3 44 当x 2时 语句 If x 2 Then Print x 2 的结果值是 2 44 以下循环的执行次数是 k 0 Do While k 10 k k 1 Loop 3 44 语句 x InputBox 请输入数据 输入12345 则x的值为 类型的数据 提示 例如整型 Int 字符型 string 3 44 下列程序用来将变量x y的值互换 请补充完程序 提示 该题答案中不要出现 空格 t y x t 3 34 表达式Ucase Mid abcdefgh 4 5 的值是 3 34 判断x不是3的倍数的表达式为 3 34 表达式Not 10 20256的值是 3 41 循环正常结束时 循环变量等于终值加步长 2 41 表达式A A 1在VB中没有任何意义 2 41 在Do While Loop循环中 当条件为假时 反复执行循环体 3 41 chr 65 转换成字母是A2 31 存放数据2011 12到变量x中应该将x定义成单精度类型的变量2 41 循环结构中可以嵌套另外一个循环结构3 34 表达式15 3 3 9 5 5 mod 10 的值是 2 24 决定按钮显示内容的属性是 3 34 Visual Basic中使用关键字 声明符号常量 3 34 函数Len abcdef 的返回值是 3 34 执行以下语句后 输出结果是 和 s ABCDEFGHIJK print mid s 3 4 print len s 3 44 以下程序段的输出结果是 x 8 Print x 1 x 2 x 3 3 34 表达式Fix 32 Int 24 的值为 3 结果 Page 8 34 以下语句的输出结果是 print sgn 2 3 34 以下语句的输出结果是 s China s Beijing Print s 3 34 Sgn 337 468 2000 的值是 3 44 程序 Private Sub Command1 Click Dim x x 1 If x Then Print x Else Print x End If End Sub 的执行结果是 3 44 程序 Private Sub Command1 Click Dim x If x Then Print x s Print 能被17整数的数据有 c 个 End Sub 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 Private Sub Form Click Sum 0 For i 1 To 100 If i Mod 7 0 Then Sum Sum i End If Next i Print Sum End Sub Private Sub Command1 Click Dim m n k m Val InputBox m n Val InputBox n If m n Then k m m n n k End If Print m n End Sub Private Sub Command1 Click Dim x As Double fx As Double x Val InputBox 输入x If x 0 And x 3 Then fx x x 2 x 6 ElseIf x 0 And x 5 And x 2 Then fx x x 5 x 4 Else fx x x x 1 End If Print x x f fx End Sub Private Sub Command1 Click Dim i As Integer c As Integer Dim s As Integer For i 1 To 100 s s i If i Mod 17 0 Then c c 1 Next i Print 1 2 100 s Print 能被17整数的数据有 c 个 End Sub Private Sub Command1 Click Dim x As Integer x InputBox x Print x Max x Min x s x For i 2 To 10 x InputBox x Print x s s x If x Max Then Max x If x c And b c a And a c b Then 如果能构成三角形 x a b c 2 s Sqr x x a x b x c Print S s Else Print 数据有错 不能构成三角形 End If End Sub Private Sub Form Click Dim i As Integer Dim max As Integer Dim imax As Integer Dim a 1 To 8 As Integer For i 1 To 8 a i Val InputBox 请输入a max 它所在的下标是 imax End Sub Private Sub Command1 Click Dim sum1 As Integer sum2 As Integer i As Integer sum 0 For i 1 To 20 If i Mod 2 0 Then sum1 sum1 i Else sum2 sum2 i End If Next i Print sum1 sum2End Sub Private Sub Command1 Click Dim i As Integer c 50 As Single sum As Single For i 1 To 50 c i Val InputBox 请输入学生 s Print 能被17整数的数据有 c 个 End Sub 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 Private Sub Form Click Sum 0 For i 1 To 100 If i Mod 7 0 Then Sum Sum i End If Next i Print Sum End Sub Private Sub Command1 Click Dim m n k m Val InputBox m n Val InputBox n If m n Then k m m n n k End If Print m n End Sub Private Sub Command1 Click Dim x As Double fx As Double x Val InputBox 输入x If x 0 And x 3 Then fx x x 2 x 6 ElseIf x 0 And x 5 And x 2 Then fx x x 5 x 4 Else fx x x x 1 End If Print x x f fx End Sub Private Sub Command1 Click Dim i As Integer c As Integer Dim s As Integer For i 1 To 100 s s i If i Mod 17 0 Then c c 1 Next i Print 1 2 100 s Print 能被17整数的数据有 c 个 End Sub Private Sub Command1 Click Dim x As Integer x InputBox x Print x Max x Min x s x For i 2 To 10 x InputBox x Print x s s x If x Max Then Max x If x c And b c a And a c b Then 如果能构成三角形 x a b c 2 s Sqr x x a x b x c Print S s Else Print 数据有错 不能构成三角形 End If End Sub Private Sub Form Click Dim i As Integer Dim max As Integer Dim imax As Integer Dim a 1 To 8 As Integer For i 1 To 8 a i Val InputBox 请输入a max 它所在的下标是 imax End Sub Private Sub Command1 Click Dim sum1 As Integer sum2 As Integer i As Integer sum 0 For i 1 To 20 If i Mod 2 0 Then sum1 sum1 i Else sum2 sum2 i End If Next i Print sum1 sum2End Sub Private Sub Command1 Click Dim i As Integer c 50 As Single sum As Single For i 1 To 50 c i Val InputBox 请输入学生 s Print 能被17整数的数据有 c 个 End Sub 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 Private Sub Command1 Click Dim m n k m Val InputBox m n Val InputBox n If m n Then k m m n n k End If Print m n End Sub Private Sub Command1 Click Dim x As Double fx As Double x Val InputBox 输入x If x 0 And x 3 Then fx x x 2 x 6 ElseIf x 0 And x 5 And x 2 Then fx x x 5 x 4 Else fx x x x 1 End If Print x x f fx End Sub Private Sub Command1 Click Dim i As Integer c As Integer Dim s As Integer For i 1 To 100 s s i If i Mod 17 0 Then c c 1 Next i Print 1 2 100 s Print 能被17整数的数据有 c 个 End Sub Private Sub Command1 Click Dim x As Integer x InputBox x Print x Max x Min x s x For i 2 To 10 x InputBox x Print x s s x If x Max Then Max x If x c And b c a And a c b Then 如果能构成三角形 x a b c 2 s Sqr x x a x b x c Print S s Else Print 数据有错 不能构成三角形 End If End Sub Private Sub Form Click Dim i As Integer Dim max As Integer Dim imax As Integer Dim a 1 To 8 As Integer For i 1 To 8 a i Val InputBox 请输入a max 它所在的下标是 imax End Sub Private Sub Command1 Click Dim sum1 As Integer sum2 As Integer i As Integer sum 0 For i 1 To 20 If i Mod 2 0 Then sum1 sum1 i Else sum2 sum2 i End If Next i Print sum1 sum2End Sub Private Sub Command1 Click Dim i As Integer c 50 As Single sum As Single For i 1 To 50 c i Val InputBox 请输入学生 s Print 能被17整数的数据有 c 个 End Sub Private Sub Command1 Click Dim x As Double fx As Double x Val InputBox 输入x If x 0 And x 3 Then fx x x 2 x 6 ElseIf x 0 And x 5 And x 2 Then fx x x 5 x 4 Else fx x x x 1 End If Print x x f fx End Sub Private Sub