2024年5月31日发(作者：)

1; 在vb中，下列哪一数据类型长度为四个字节（ ）

A);货币型 B);日期型; C);单精度型; D);双精度型

2;下列语句中哪一句正确定义了一个整型变量（ ）

A);Dim i As Integer; B);Dim i As Int;

C);Static i As Long; D);Static I As Single

3;关于整型变量下列说法错误的是（ ）

A);用于保存整数; B);类型符为%;

C);最大整数为 216-1; D);占两个字节

4;关于逻辑数据类型下列说法正确的是（ ）

A);该数据类型可进行数值运算;

B);该数据类型只有两个值;

C);该数据类型占1个字节;

D);定义该类型的关键字为bool

5; 下列哪一组语句不能正确定义两个字符型变量

（ ）

A);Dim str1,str2 as String

B); Dim str1$,str2$

C);Dim str1 as String ,str2 as String

D);Dim str1 as String Dim str2 as String

6;下面哪一个关键字不能用来声明变量（ ）

A);Dim ;B);Static ;C);private ;D);define

7;下列符号中，哪一个是不合法的变量名（ ）

A);124-q ;B);a_q ;C);变量 ;D);xyz

8;下列符号中，哪一个是合法的变量名（ ）

A);1_1 ;B);123_a ;C);integer ;D);sinx

9; 若选拔优秀毕业生的条件是：年龄（age）小于19

岁，三门功课总分(total)大于285分，其中有一门(mark)

为100分，表达式应写为

;A);age<19 and total>285 and mark1=100 or mark2=100

or mark3=100

;B);age<19 and total>285 or mark1=100 or mark2=100

or mark3=100

;C);age<19 and total>285 and （mark1=100 or

mark2=100 or mark3=100）

;D);(age<19 or total >285) and (mark1=100 or

mark2=100 or mark3=100)

10；要产生30—50之间的随机整数，下列表达式正

确的是（ ）

;A);int(rnd*20+30) ;B);int(rnd*21+30)

C);int (rnd*31+20) ;D);int(rnd*50)

11;函数asc("A")的值为（ ）

A); 97;B); 65 ;C);12 ;D);64

12;实现ASCII码转换成字符的函数是（ ）

A);STRING( ) B);ASC( ) C);STR( ) D);CHR$()

13;INT(-7.3)=( )

A); 7 ;B);8 ;C);-7 ;D);-8

14;ROUND(-7.3)=( )

A);7 ;B);8 ;C);-7 ;D);-8

15;VAL("123A")=( )

A);123A ;B);12365 ;C);123 ;D);"123"

16;LEFT$("ABCDEF",3)=( )

A);"DEF" ;B);"CDE" ;C);"ABC" ;D);"BCD"

17;LEN("AB高等教育")=( )

A);6 ;B);7 ;C);12 ;D);14

18;RIGHT$("ABCDEF",3)=( )

A);"DEF" ;B);"CDE" ;C);"ABC" ;D);"BCD"

19;STRING$(3,"ACDEF")=( )

A);"AAA" ;B);"ACD " ;C);"DEF" ;D);"FFF"

20;下面哪一个函数返回系统日期（ ）

A);DATE( ) B);NOW( ) C);TIME() D);DAY()

21; 下面哪一个函数返回系统时间（ ）

A);DATE() B);NOW() C);TIME() D);DAY()

22;下面哪一个函数返回系统日期和时间（ ）

A);DATE() B);NOW() C);TIME() D);DAY()

23;有程序段如下

Private Sub Form_Click()

Dim I As Integer

I = I + 1

Print I

End Sub

当第三次单击窗体时打印出的I值为（ ）

A);0 B);1 C);2 D);3

24; 已知X=1,Y=2,T=0 经程序段X=T:T=Y:Y=T

赋值后 X,Y 值分别为（ ）

;A);1,2 ;B);0,0 ;C);0,2 ;D);1,0

25;语句SELECT CASE X 中,X为一整型变量，

下列CASE语句中,哪一句表达式是错误的（ ）

A);CASE IS>20 B);CASE 1 TO 10

C);CASE X>10 D);CASE 2,4,6

26;下列哪个语句用来打开一个已存在的文件或

建立一个新文件（ ）

A);GET ;B);INPUT ;C);PUT ;D);OPEN

27;下列哪一组语句正确将文本框Text1的全部内

容一次性写入文件（ ）

A); Open “” For Output As #1

Print #1

Close #1

;B); Open “” For Input As #1

Print #1

Close #1

;C); Open “” For Input As #1

Print #1

Close #1

D); Open “” For Output As #1

For I= 1 to Len()

Print #1 Mid(,I,1)

Next I

Close #1

28;下列哪一种格式画出了一条从（0，0）到（x，y）

的直线

A);Line(x,y) B);Line(0,x,0,y)

C);Line(0,0,x,y) D);Line(0,0)-(x,y)

29;下面哪一条语句正确画出了一组半径由5到10每

次递增1，圆心在（15，15），红色的同心圆（ ）

A);For I= 5 to 10

Circle(15,15),I,RGB(255,0,0)

Next I

B);For I= 1 to 10

Circle I,(15,15),RGB(0,255,0)

Next I

C);For I= 5 to 10

Circle I,(15,15),RGB(255,0,0)

Next I

D);For I=5 to 10

Circle(15,15),I,RGB(0,255,0)

Next I

30;设已有语句Option Base 1，下面哪一组语句正确定

义了有10个整型元素的数组（ ）

A); dim x(9) as integer

B); dim x(n) as integer n=10

C);dim x(10) as integer

D);dim x(n) as integer n=9

31;循环语句For I= -3 to 20 step 4的循环次数为多少

（ ）

A);4 B);5 C);6 D);7

32; 下列关于通用对话框CommangDialog控件说法

正确的是：（ ）

A);可在工具箱里选择直接添加

B);可以实现文件打开，存储，颜色设置等功能

C);是ActiveX控件

D);运行时大小可以改变

33;下面哪一段循环嵌套是正确的（ ）

A); For I= 1 to 10

For J=1 to 10

…….

Next I

Next j

;B); For I= 1 to 10

For j=1 to 10

………

next j

next I

;C); For I=1 to 10

For j= 1 to 20

………

next I

next I

;D); For I= 1 to 10

For j=1 to 20

………

next j

next j

34;已知变量S初值为0，下列哪组语句求出

s=1+2+3„+100的和( )

;A);For I=1 to 100

s=s+1

next I

;B);For I=1 to 100

s=s+I

next I

;C);do

I=I+1

s=s+I

loop

;D);do

s=s+I

if I=100 then exit do

loop

35;下列关于控件数组说法正确的是( )

A);同一数组有相同的属性

B);同一数组可由不同类型的控件组成

C);同一数组的各个控件元素的属性可不同

D);每个元素可以有多个索引号

36;下面关于图形框(PictureBox)和图像框(Image)

说法不正确的是( )

A);图形框可保存其他控件

B);均可加载图片