admin 管理员组

文章数量: 1184232


2024年3月12日发(作者:sql怎么多条件查询)

1. 如果编写的过程要被多个窗体及对象调用,应将这些过程放在哪一类模块中

A、窗体模块 B、标准模块 C、工程 D、类模块

2. 窗体模块文件的扩展名为 ,标准模块的扩展名为 。

3. Vb程序是按行书写的,若一个语句写在多行上,每行的末尾应用__________连接,若

一行写了多个语句,则各语句间应用________分隔。一个代码行输完后按______键,光

标下移。

4. VB的Byte类型数据的数值范围,在-255到255之间。

5. 下列数据类型中,占用内存最小的是 。

A、Boolean B、Byte C、Integer D、Single

6. 语句Print “5*20” 输出结果是

A、”5*20” B、出错 C、5*20 D、100

7. 语句 Dim a ,b as string ,c as currency

d%=1

则a , b, c, d的数据类型分别为 、 、 、

8. 窗体上有一个文本框控件Text1,假设已存在三整型变量a,b和c,且变量a值为5,变量

b的值为7,变量c的值为12,则以下的 语句可以使文本框内显示的内容为:5+7=12

A、=a+b=c B、=”a+b=c”

C、Text1=a & “+” & b & “=” & c D、Text1=”a” & “+” & “b” & “=” & ”c”

9. 以下有关变量作用域的说法中,错误的是_ ___

A.

只有在标准模块中用public语句说明的变量才是全局变量

B.

在过程中不能使用public语句说明全局变量

C.

在标准模块的通用声明处可用private语句说明模块级变量

D.

在窗体的通用声明处可用private语句说明窗体变量

10. 在过程中可以用_ ___语句定义变量

A、Dim Private B、Dim Static C、Dim Private D、Static Private

11. 若希望离开某过程后,还能保留该过程中局部变量的值,则应使用 关键字在该

过程中定义局部变量

A、dim B、private C、public D、static

12. 分析语句

Private Sub Form_Click()

Dim x As String * 5

x = "abc"

y% = 1

Print x & y

x = "abcdefg"

Print x & y

End Sub

则单击窗体,显示结果的第一行为_ ____,第二行为_____ ____________

13. VB算术运算符乘或除、整除、求余的优先级,从高到低依次为 。

A、乘或除、求余、整除 B、乘或除、整除、求余

C、整除、求余、乘或除 D、整除、乘或除、求余

14. 表达式106 = 10 mod 6 的运算结果是_____ ___________

15. ”abcd”>”bcde”的运算结果是____ __________

16. 将任意一个两位正整数N的个位数与十位数对换得到新数的VB表达式是____

17. 用关系运算符比较Cint(3.8)、Fix(3.8)、Int(3.8)、3.8的大小关系_ ___

18. 下面表达式的值为真的是__ __

A.

78.9/32.77<=957/43.91 And –45.4>-4.98

B.

“ABCRG”>”abcde”

C.

Int(134.69)>=Cint(134.69)

D.

Mid(“Visual Basic”,1,12)=Right(“Programming language Visual Basic”,12)

19. 表示“X>Y>Z”,正确的VB逻辑表达式是__ __ (02春)

A、X>Y And Y>Z B、X>Y>Z

C、X>Y or Y>Z D、X>Y And >Z

20. 语句 dim x as date :x=#02/17/1980# 则month(x)=__ ____________

21. Chr(Asc(“x”)+2)的值为___ _______

22. 运行程序产生死循环时__ __可以终止程序运行

A、按[ctrl]+[c] 键 B、按[ctrl]+[z]键

C、按[ctrl]+[break]键 D、单击”停止运行”按钮

23. 函数InStr(“windowse”,Mid(“winnt”,2,2))的返回值是 。

A、0 B、1 C.2 D、3

24. 取字符串Ax从第1个非空格符开始的连续5个字符表达式写作 。

A、Mid(Ax,1,5) B、Mid(Trim(Ax),1,5) C、Left(Ax,5) D、Left(Trim (Ax),5)

25. 运行时,单击窗体后依次输入10、37、50、55、56、64、20、28、19、-19、0,写出

运行结果。

Private Sub Form1_Click()

Dim y as Integer

Do

y=Inputbox(“y=”)

If (y Mod 10) + Int (y / 10) = 10 Then Print y

Loop Until y=0

End Sub

26. 程序运行时单击 Commandl 后 , 输入 l2345678,写出窗体上的输出结果。

Private Sub Commandl_Click()

Dim x As Long, y As String

x = InputBox("","")

Do While x<>0

y = y & x Mod 10

y = xl0 Mod 10 & y

x = x100

print y

Loop

End Sub

27. 判断题:“A=B=C”是一个合法的Visual Basic 语句。

28. 将变量x、y中的最大数赋值给变量a,正确的表示为

A、a=x: If y>x Then a=y B、If y>x Then a=y: a=x

C、a= If y>x Then y Else x D、If y>x Then a=y Else a=x End If

29. 由For k=35 To 0 Step 3 : Next k 循环语句控制的循环次数是 。


本文标签: 语句 窗体 变量 模块 过程