VB 问题 急 急 急

Question

12、LTrim函数的返回值是_________ 类型。
13、当单选框被选定，它的Value属性值为 _______ 。
14、Asc函数的返回值是_________ 类型。
1、_____________是同一种对象的通称
1、方法是指对象所具有的动作和行为。（ ）
2、VB程序中不区分代码字符的大小写。（ ）
3、窗体的Enabled属性设置为True时，窗体上的按钮、文本框等控件就不会对用户的操作做出反应。（ ）
4、表达式 NOT x<3 和 x>3是等价。（ ）
5、判断变量x是不是能被3整除的偶数，逻辑表达式可写为x mod 6=0。（ ）
6、语句Option Explicit与Visual Basic的默认设置一致。（ ）
7、一个Do循环只能使用一个Loop关键字，但是可以使用多个Exit Do语句。（ ）
8、在过程调用中，如果没有特殊说明，参数的传递方式是传址方式。（ ）
9、当复选框被选定，它的Value属性值为True。（ ）
10、对英文字母的比较，默认情况下是区分不大小写的。（ ）
11、直线控件可以在运行时移动。（ ）
12、在窗体上按下鼠标左键后释放，不会触发窗体的DbClick事件。（ ）
13、VB编译生成的可执行文件不再需要工程文件与各个模块文件。（ ）
14、当把浮点数赋给整型变量时，会出现溢出错误。（ ）
15、在同一作用域中，变量名不能重复。（ ）
7、表达式 (-9) mod 7 的值为 ( ) 选择题 。
(A) 1 (B) －1 (C) 2 (D) －2

2、 编程计算100～100000之间，共有多少个整数，满足它的各位数字之和可被3整除。编程题目：

3、 求111111的个位、十位、百位数分别是几
编程题目

回答完毕再送 100分 TK'S
确定没有！这是考试啊！！！！！！呵呵

Answer 1

12、LTrim函数的返回值是__字符串(String)__类型。
13、当单选框被选定，它的Value属性值为 _True_ 。
14、Asc函数的返回值是__整型(Integer)__ 类型。
1、___________组_是同一种对象的通称 '没有把握
1、方法是指对象所具有的动作和行为。（T）
2、VB程序中不区分代码字符的大小写。（T）
3、窗体的Enabled属性设置为True时，窗体上的按钮、文本框等控件就不会对用户的操作做出反应。（F） 'False 才不会
4、表达式 NOT x<3 和 x>3是等价。（F） 'Not x < 3 等价 x >= 3
5、判断变量x是不是能被3整除的偶数，逻辑表达式可写为x mod 6=0。（T）
6、语句Option Explicit与Visual Basic的默认设置一致。（F）
7、一个Do循环只能使用一个Loop关键字，但是可以使用多个Exit Do语句。（T）
8、在过程调用中，如果没有特殊说明，参数的传递方式是传址方式。（F） '是传值
9、当复选框被选定，它的Value属性值为True。（F）'为1,Check的Value属性有三种值(0,1,2)
10、对英文字母的比较，默认情况下是区分不大小写的。（T）
11、直线控件可以在运行时移动。（F） '没有把握
12、在窗体上按下鼠标左键后释放，不会触发窗体的DbClick事件。（F）'DbClick是双击事件
13、VB编译生成的可执行文件不再需要工程文件与各个模块文件。（F）'打包时需要
14、当把浮点数赋给整型变量时，会出现溢出错误。（F）'不一定,数值超过6万多才会溢出
15、在同一作用域中，变量名不能重复。（T）
7、表达式 (-9) mod 7 的值为 (D) 选择题 。
(A) 1 (B) －1 (C) 2 (D) －2

2、 编程计算100～100000之间，共有多少个整数，满足它的各位数字之和可被3整除。编程题目：

Private Sub Command1_Click()
dim N As Integer,I as Integer
For I = 100 To 100000
If I Mod 3 = 0 Then N = N + 1
Next
MsgBox N
End Sub

3、 求111111的个位、十位、百位数分别是几
编程题目
Private Sub Command1_Click()
Dim i As Long, a As String
i = 123456789
a = Str(i)
MsgBox "百位:" & Mid(a, Len(a) - 2, 1) & " 十位:" & Mid(a, Len(a) - 1, 1) _
& " 个位:" & Right(a, 1)
End Sub

Answer 2

12. string
13. true
14. Integer
1. 组
1. T
2. T
3. F
4. F
5. F
6. T
7. T
8. T
9. T
10. F
11. F
12. T
13. F
14. F
15. T
7. D
2.
Private Sub Command1_Click()
N = 0
For I = 100 To 100000
If I Mod 3 = 0 Then N = N + 1
Next I
MsgBox N
End Sub

3.
Private Sub Command1_Click()
a = 12345
MsgBox "个位：" & (a Mod 10) & "；十位：" & (a / 10) Mod 10 & "；百位：" & (a / 100) Mod 10
End Sub