VB语言基础

VB语言基础

1.用于从字符串左边截取字符的函数是（） Left 2.可获得当前系统日期的函数是（ ） Date

3.下列符号中哪个是VB程序中合法的变量名（） ab7

4.X是小于100的非负数，用VB表达式表达正确的是（）0<=X and X<100

5.、执行x$=InputBox(\请输入x的值\时，在弹出的对话框中输入123，在列表框List1选中1个列表项(数据为456) ，使有的值使123456的语句是y=x$+List1.List(0) 6.下面有关注释语句的格式，错误的是

A. Rem注释内容 B. ′注释内容 C. a=3:b=2 ′对a、b赋值

D .Private Sub Command1_MouseDown(button As Integer , shift As Integer , _ Rem 鼠标按下事件的命令调用过程 X As Single ,Y As Single) 7. 下列可以打开立即窗口的操作是__Ctrl + G________。 8. 表达式4 + 5 \\ 6 * 7 / 8 Mod 9的值是___5_____。 9. 以下语句的输出结果是___032,548.50 ____。 Print Format $ (32548.5, \

10. 执行以下程序段后，变量c $ 的值为 （Quick BASIC Programing） a $ = \ b $ = \

c $ = b $ & Ucase (Mid $ (a $,7,6)) & Right $ (a $,11)

11. 在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim str As String ,n As Integer

str = UCase (Chr(KeyAscii)) n=Len(str)

Text1=String(n, str) End Sub

程序运行后，如果在键盘上输入单字母\，则在文本框Text1中显示的内容为（ KK） 12. 设有如下变量声明 Dim TestDate As Date 为变量TestDate正确赋值的表达方式是 TextDate=#1/1/200 2# 13. 设有如下声明：

Dim X As Integer 如果Sgn(X) 的值为-1，则X的值是 小于0的数 14. 设a=3,b=5，则以下表达式值为真的是 (a>b)Or(b>0) 15. 设a=\，下面 使b=\的语句是b=Left(a,8,5) 16. 函数String(n，\的功能是 返回由n个字符组成的字符串

17. 设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是False 18.系统符号常量的定义可以通过(对象浏览器 )获得. 19.Integer类型的数据由( 2 )字节组成 20.Long类型的数据由( 4 )字节组成.

21.已知X＜Y，A＞B，正确表示它们之间关系的式子是(Sgn(Y-X)-Sgn(A-B)=-2 ) 22.下面程序运行后，窗体(Form1)中输出的结果是 TrueTrue Private Sub Form_Load() Form1.AutoRedraw=True X=3:y=5 Print x=3;y=5

23.下面程序执行的结果是 5 7 9 Private Sub Command1_Click() A=\ C=Val(a)+Val(b) Print c End Sub

24.在一个有①逻辑运算②算术运算及③关系运算混合在一起的表达式(无括号)中，其运算顺序为 ②①③

25.运算符\两边的操作数若类型不同，则先（取整为Integer类型）再运算 26/以下合法的Visual Basic标识符是 ForLoop 27.设有如下变量声明 Dim TestDate As Date

为变量TestDate正确赋值的表达方式是 TextDate=#1/1/2002# 28.下列哪组语句可以将变量A、B值互换 A=A+B : B=A - B: A=A – B 29.要声明一个长度为256个字符的定长字符串变量str，以下语句正确的是 Dim str as String*256

30.函数Left(\的值为 He 31.设有如下变量声明 Dim TestDate As Date

为变量TestDate正确赋值的表达方式是 TextDate=#1/1/2002#

32.能正确表示条件\整型变量x值是大于等于-5并且小于等于5\的逻辑表达式 -5<=x and x<=5

.33.能够返回删除字符串前导和尾随空格符后的字符串，用函数 Trim 34.表达式4+5 \\ 6 * 7 / 8 Mod 9 的值是？，表达式5 Mod 3+3\\5*2的值是 5，2 35.设a=2,b=4,c=6，下列表达式的值为真的是 a>b Eqv c

36.设S=\中华人民共和国\，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为 \中国人民\

37.获得系统日期的函数是 date$

38.VB表达式Sqr(a+b)^3*2中优先进行运算的是(+) 39.表达式2*4^2-2*6/3+3\\2的值是( 29 ) 40.下列叙述不正确的是( )

A注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译 B注释语句可以放在代码中的任何位置 C注释语句不能放在续行符的后面

D代码中加入注释语句的目的是提高程序的可读性 41.Rnd函数不可能产生( 1 )值。

42.下面表达式中，( Exp(-3.5) )的运算结果与其他三个不同。 43. 数学式子sin30°写成VB表达式是： Sin(30*3.14/180) 44.表达式5＾2 Mod 252＾2的值是( 1 )

45.函数UCase(Mid(″visual basic″,8,8))的值为(BASIC ) 46.函数InStr(″VB程序设计教程″，″程序″)的值为( 3 ) 47.表达式Int(4*Rnd+1)*(Int(4*Rnd-1))值的范围是(［-4，8］ ) 48.在以下四个逻辑表达式中，其逻辑值为“真”的是(Not(1＞2) ) 49. 表达式″Turbo″+″c″＞″True″+″Basic″的值是( -1 ) 50.下面程序运行后，m的值是( 9 ) a=12.3 b=-123

m=Len(Str(a)+Str(b))

51.任何控件都有的属性是 Name

52.关于货币型数据的说明，正确的是 货币型数据是小数点位置固定的实型数

53.如果一个变量未经定义就直接使用，则该变量的类型为 Variant

54.如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪一个属性？Enabled

55.下列语句的输出结果为 (005,689.360) Print Format＄(5689.36, \ 56.下面有关注释语句的格式，错误的是

A. Rem注释内容 B. ′注释内容 C. a=3:b=2 ′对a、b赋值 D. Private Sub Command1_MouseDown(button As Integer , shift As Integer , _ Rem 鼠标按下事件的命令调用过程 X As Single ,Y As Single)

57.通常情况下，垂直滚动条的值是 由上往下递增 58.表达式 5 Mod 3+3\\5*2的值是 2

59.设x=4,y=8,z=7，以下表达式的值是 ( False ) xz) Or z

60.设a=5，b=4，c=3，d=2，下列表达式的值是 ( True ) 3>2*b Or a=c And b<>c Or c>d

61. 设a=\则以下使变量b的值为\的语句是 b=Mid(a，10)

62.执行如下两条语句，窗体上显示的是 ( $0,009.86) a=9.8596

Print Format(a,\ 63.执行以下程序段 a$=\ For i=6 To 2 Step -2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z=UCase(X&Y&z) Next i Print z

输出结果为 BBABBA

63.可以同时删除字符串前导和尾部空白的函数是 Trim 64.表达式4+5 \\ 6 * 7 / 8 Mod 9 的值是 ( 5 )

65.执行以下程序段后，变量c$的值为 ( Quick BASIC Programing ) a$=\

b$=\

c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11) 66.下面的变量名合法的是 k_name

67.以下合法的Visual Basic标识符是 ForLoop 68.设x=4,y=8,z=7，以下表达式的值是 ( false ) xz) Or z

输出结果为 BBABBA

70.设a=5,b=4,c=3,d=2，下列表达式的值是 ( True ) 3>2*b Or a=c And b<>c Or c>d

71.设a=\则以下使变量b的值为\的语句是 b=Mid(a,10)

72.表达式Str(Len(\的值为 ( ∪3∪77.7 __)__。 注意：“∪”表示空格

73.Abs(-8)+Len(\的值是_12____。

74.如果A为整数，且|A|>=100，则打印“OK”，否则打印“Error”，表示这个条件语句的单行语句是_ _If Fix(A)=A And ABS(A)>=100 Then Print \_。 75.如果设计时在属性窗口将命令按钮的__Visible___属性设置为False，则运行时按钮从窗体上消失。

76.如果X是一个正实数，将百分位四舍五入，保留一位小数的表达方式是__0.1*Int(10*(X+0.05)) __。 77.以下不合法的常量是10^2 ____。

78.表达式Int(8*Sqr(36(*10^(-2)*10+0.5)/10的值是_5___。

79.如果x是一个正实数，对x的第3位小数四舍五入的表达式是_0.01*Int(100*(x+0.005)) ___。 80.下列事件过程实现从键盘输入任意一个实数，用Print方法在窗体上显示其平方和平方根，要求每个数

保留三位小数，数据之间有间隔。

Private Sub Form_Click() Dim a As Single

a=Abs(Val(InputBox(\请输入一个实数\

Print Format(a*a,\Spc(4) __;Format(Sqr(a),\ End Sub

81.函数Int(Rnd(0)*10)是哪个范围内的整数 [0,10) ____. 82.语句print 5*5\\5/5输出结果是（25）

83. 决定窗体标题条显示内容的属性是（caption） 84.下列可作为VB的变量名的是（Alpha）

85.设a=2，b=3，c=4，d=5，下列表达式的值是（ false ） a>b and c<=d or 2*a>c 86.下列叙述中不正确的是____ A变量名的第一个字符必须是字母 B变量名的长度不超过255个字符

C.变量名可以包含小数点或者内嵌的类型声明字符 D变量名不能使用关键字

87.变量未赋值时，数值型变量的值为_0___。

88.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345

Print Format$(a, \ End Sub

程序运行后，单击命令按钮，窗体上显示的是 12345.00 89.以下程序段的输出结果是（True） a=sqr（3） b=sqr（2） c=a>b print c

90. 表达式(7\\3+1)*3的值是_9___ 91.表达式 5 Mod 3+3\\5*2的值是 2

92.设x=4,y=8,z=7，以下表达式的值是 ( False ) xz) Or z

选择结构程序

1．计时器控件的（Interval）属性用于设置Timer事件发生的时间间隔。 2．运行下列程序段后，显示的结果为 （ 9 ） J1=4 J2=9

If J1

3．下列语句正确的是 If A<>B Then Print \不等于B\ 4．下列程序段执行结果为 （ -3 3 ） x=5 y=-6

If Not x>0 Then x=y-3 Else y=x+3 Print x-y; y-x

5.设a=6，则执行x=IIf(a＞5,-1,0)后,x的值为( -1 ) 6.假设有以下程序段：

For I=1 to 3

For j=5 to 1 Step -1 Print I*j Next j Next I

则语句Print I*j的执行次数I、j的值分别是（15 4 0）

7.在窗体上有一个文本框控件，要求每一秒钟在文本框中显示一次当前名称为TxtTime：一个计时器控件，名称为Timerl 的时间。程序为： Private Sub Timer1_ () TxtTime.text=Time End Sub

在下划线上应填入的内容是 Timer

8. 为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是Enabled

9.下列语句正确的是( If X＜＞Y Then Print \不等于Y\) 10.计算分段函数： 0 x<0 y= 1 0<=x<1 2 1<=x<2 3 x>=2

下面程序段中正确的是(select case x Case Is<0 Y=0 Case Is<1 Y=1 Case Is<2 Y=2 Case else Y=3 End select) 11.

下列关于Select Case Is的叙述中，错误的是

ACase 10 To 100 表示判断Is是否介于10与100之间

B Case \ 表示判断Is是否和\、\两个字符串中的一个相同 C Case \ 表示判断Is是否为大写字母X

D Case -7,0,100 表示判断Is是否等于字符串\，0，100\

12．VB算术运算符乘或除、整除、求余的优先级，从高到低依次为 乘或除、整除、求余 13．如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于 1000 14．能够改变复选框中背景颜色的属性是 Backcolor 15．下列语句正确的是(If X＜＞Y Then Print \不等于Y\ )

16．在VB语言中，6个关系运算符在运算过程中优先级从高到低的顺序是( 不分先后顺序 ) 17．下列赋值语句中，( )是错误的。 A x=x+1 B x=x+y C x+y=x D x=4＞6

18.表达式1.5+32＞2 Or 7 Mod 3＜4 And Not 1的运算结果是( -1 )

19.如果将文本框的MaxLength属性设置为0，则文本框中的字符不能超过 32K 20.设在窗体上有个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Const Alt=4

Const Key_F2=&H71 altdown%=(Shift And Alt) > 0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Text1.Text=\ End If End Sub

上述程序运行后，如果按 【Shift+F2】 ，则在文本框中显示得是 文本框平均内容无变化 21.以下程序段运行时从键盘上输入字符\，则输出结果为 ( -2 ) op$=InputBox(\ If op$=\ If op$=\ Print a

22.下列程序段的执行结果为 （ I =4 ） a=75

If a > 60 Then I=1 If a > 70 Then I=2 If a > 80 Then I=3 If a < 90 Then I=4 Print \

23．下面程序段执行结果为 （ Pass ） x=Int(Rnd() + 3) Select Case x Case 5

Print \ Case 4 Print \ Case 3 Print \ Case Else Print \ End Select

24.下列程序段的执行结果为 ( * *0* * ) a=1

b=0 Select Case a Case 1 Select Case b Case 0

Print \ Case 1

Print \ End Select Case 2 Print \ End Select

25.下面程序段执行结果为 (Good) x=Int(Rnd() + 4) Select Case x Case 5

Print \ Case 4 Print \ Case 3 Print \ Case Else Print \ End Select

26.运行下列程序段后，显示的结果为 ( 32 ) J1=23 J2=32

If J1

27.下列语句正确的是 If A<>B Then Print \不等于B\ 28.下面语句正确的是 If x<3y And x>y Then y=x^3

29. 计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是 If x>=y Then z=x : z=y 30.下列程序段执行结果为 (- 3 3 ) x=5 y=-6

If Not x>0 Then x=y-3 Else y=x+3 Print x-y; y-x

31.以下程序段运行时从键盘上输入字符\，则输出结果为 ( -2 ) op$=InputBox(\ If op$=\ If op$=\ Print a

32.在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为\计算机等级考试\。以下能实现上述操作的事件过程是： Private Sub Text1_Change()

Command1.Caption=\计算机等级考试\ End Sub

33.在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程： Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub

Private Sub Formm_Load() Text1.Text=\ Text2.Text=\ End sub

程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为 123321

34.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(\ Select Case x Case 1,3 Print \分支 1\ Case Is >4 Print \分支 2\ Case Else Print \分支 \

End Select End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是Else分支

35.在窗体上画一个命令按钮和一个文本框名称分别为Command1和Text1然后编写如下程序: Private Sub Command1_Click() a = InputBox(\请输入日期(1~31)\

t = \旅游景点:\长城\ & IIf(a > 10 And a <= 20 ,\故宫\ & IIf(a > 20 And a <= 30, \颐和园\ Text1.Text = t End Sub

程序运行后如果从键盘输入16则在文本框中显示的内容是: 旅游景点：故宫

36.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是 10

37.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是 Timer1.Interval=500 38.表达式 5 Mod 3+3\\5*2的值是 2

39.设a=\执行语句x=IIf((ad),\后，x的值为\

40.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click() Timer1._________ End Sub

Private Sub Timer1_Timer() Text1.Text = Time End Sub

在______处应填入的内容是 Enabled=True

41.如果X的值小于或等于Y的平方，则打印“OK”，表示这个条件的单行格式If语句是__If x<=y^2 Then Print \_。

42.表达式Y+1>=X是一个___关系表达式 __。

43.有一个分段函数，当X<0时，Y=-1；当X=0时，Y=0；当X>0时，Y=1。该分段函数在程序段中可表达为： If X<0 Then Y=-1

ElseIf X=0 Then . Y=0 Else Y=1

44.以下Case语句中错误的是

A.Case 0 To 10 B. Case Is>10 C. Case Is>10 And Is< 50 D . Case 3,5,Is>10

45. 关于语句 If x=1 Then y=1,下列说法正确的是__x=1为关系式表达式，y=1为赋值语句 __。 46.窗体上有命令按钮（COMMAND1)和文本输入框TEXT1,命令按钮click中代码如下： Private Sub Command1_Click() A = 75

If A > 60 Then I = 1 If A > 70 Then I = 2 If A > 80 Then I = 3 If A > 90 Then I = 4 Text1.Text = I End Sub

运行后，单击命令按钮，text1中显示__2__。 47.设有如下程序:

Private Sub Command1_Click() Dim c As Integer, d As Integer c = 4

d = InputBox(\请输入一个整数\ Do While d > 0 If d > c Then c = c + 1 End If

d = InputBox(\请输入一个整数\ Loop Print c + d End Sub

程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是: 9

本文来源：https://www.bwwdw.com/article/rxeo.html