VB模拟题 二

VB模拟题2 一、单选题

(01) 以下哪种对象没有Caption属性（ B ）。 A) Form

文本框用Text属性 B)TextBox

C) CommandButton D) Label

(02) 当按钮的哪一种属性设置为false时，该按钮为不可见（ B ）。 A) Enabled

名.Enabled=False表示灰显，控件不可用 B) Visible

C) Default 名.Visible=False表示控件不可见 D) Cancel

(03) 能够被对象识别和响应的动作称为（D）。 A) 属性 B)方法 C) 过程 D) 事件

(04)给变量x赋值一个10到99之间的随机整数的表达式为:________C A)x=rnd*99 B)x=rnd*90+10 P47整数范围【Min，Max】，公式x=Int((Max-Min+1)*Rnd+Min) C)x=int(rnd*90)+10 D)x=round(rnd*90)*10

(05)语句5 \\ 4 * 6 / 3 Mod 2的输出结果是( A ) A) 0 B) 1 C) 2 D) 3

(06)以下变量名中合法的是( A ) A) name

P32：以字母打头，后接字母、数字、下划线；长度不超过255 B) 6a

C) a+b 个字符；不能与系统关键字重名；在同一作用域中不重名。 D) Print

(07)将数学表达式sin2(a+b)+6e2写成Visual Basic的表达式，其正确的形式是( A ) A) sin(a+b)^2+6*exp(2)

nP44：三角函数用弧度，Exp(n)=e B) sin^2 (a+b) +6*exp(2)

C) sin(a+b)^2+6*Ln(2) D) sin^2 (a+b) +6*Ln(2)

(08)如果x是一个正实数，对x的第二位小数四舍五入的表达式是( B ) A) 0.1*Int(x+0.05)

P45：假设x=1.24，x=1.25代入验证 B) 0.1*Int(10*(x+0.05))

C) 0.1*Int(100*x+0.5)) D) 0.1*Int(x+0.5)

(09)下列哪组语句可以将变量X、Y的值互换：C A) X=Y：Y=X 假设X=1，Y=2，代入验证 B) T=X：Y=X：X=T

C) T=Y：Y=X：X=T D) X=T：T=X：Y=T

(10) 当x= -5时，下列语句执行后y的值是多少？C Y=iif(x>0,x^2+1,x-1) A) 0 Iif(条件，条件成立时返回的值，条件不成立时返回的值) B) 26 C) -6 D) 4

(11)运行下面的程序，单击窗体后，屏幕上显示结果是什么？B

Private Sub Form_Click() Dim x, y As Integer

1#: 1<3，y=0+1=1， x=1+1=2 x = 1: y = 0

Do While x < 3 2#: 2<3，y=1+2=3，x=2+1=3 y = y + x 3#: 3<3，不成立，结束循环 x = x + 1 Loop Print x, y End Sub

A) 3 3 B) 3 3

C) 2 2 D) 2 2

(12)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为( ) A

P106 列表框中项的序号范围【0,总项数-1】 A) For i=0 To List1.ListCount-1 …… Next

总项数=List1.ListCount B) For i=0 To ListCount-1 …… Next

C) For i=1 To List1.listCount …… Next D) For i=1 To ListCount …… Next

(13)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：C Private Sub Command1_Click() x=InputBox(\Select Case x

Select Case实现多选一，从第一个条件开始依次比较，Case 1,3

遇到第一个满足的条件后执行完相应语句后直接退出 Print \分支 1\

Case Is >4

Print \分支 2\Case Else

Print \分支 \

End Select End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是 A)分支1 B)分支2 C)Else分支 D)程序出错 (14)若设置了文本框的属性passwordChar=”$”，则运行程序时向文本框输入8个任意字符后，文本框显示的是( ) A A) 8个”$” PasswordChar设置的密码字符是$ B) 1个”$” 无论输什么，每个字符都用1个$替代 C) 8个”*”

D) 无任何内容

(15)设在窗体上有1个名称为combo1的组合框，含有5个项目，要删除最后一项，正确的语句是( )C

P113 删除方法为RemoveItem A) Combo1.RemoveItem Combo1.Text

B) Combo1.RemoveItem Combo1.ListCount 名.RemoveItem 最后一项的项号4 C) Combo1.RemoveItem 4

或 名.RemoveItem 名.ListCount-1 D) Combo1.RemoveItem 5

(16)工程中有2个窗体，名称分别为Form1、Form2，Form1为启动窗体，该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮的Click事件过程应该是( )A

A) Private Sub Command1_Click() 加载但不显示：Load Form1 Form2.show

显示：Form1.Show End Sub

隐藏：Form1.Hide B) Private Sub Command1_Click()

Form2.visible 卸载：unLoad Form1 End Sub

卸载本窗体：unLoad Me C) Private Sub Command1_Click()

Load Form2

End Sub

D) Private Sub Command1_Click()

Form2.Load

End Sub

(17)下面循环语句中在任何情况下都至少执行一次循环的是( ) C A) Do While <条件>

循环体

先测型Do While? Loop和Do Until?Loop至少执行0次 Loop

B) Do Until <条件> 后测型Do?Loop While和Do?Loop Until至少执行1次 循环体

Loop C) Do

循环体

Loop While <条件> D）For i=初值 to 终值 循环体 Next

(18)在默认情况下，InputBox函数返回值的类型为 B A)逻辑类型 B)字符串型 C)数值型 D)日期型

(19)下列程序运行结果是 B a=25:b=-45 i= not a=b i=(Not(a=b)) =(Not False)=True Print i A)-45 B)True C)0

D)不能输出

(20)下列程序段的执行结果为 D a=95

if a>60 Then degree=1

从上到下只要满足If条件就执行，四个条件都满足，if a>70 Then degree=2

if a>80 Then degree=3 所以四个If语句都执行 if a>90 Then degree=4 print “degree=”;degree A)degree=1 B)degree=2 C) degree=3 D)degree=4

(21)复选框控件其Value属性的可取值是（）D A)True和False

复选框的Value属性有3个值：□-0，?-1，灰显?-2 B)0和1

C)1、2、3 运行程序时，单击复选框Value只有2个值：□-0，?-1 D)0、1、2

(22)若以代码方式设置在文本框中显示文本的字体大小，则可用文本框的（C）属性来实现。 A)FontName

FontSize=字号大小 FontBold=True粗体 FontItalic=True斜体 B)Font

FontName=\字体名\FontUnderLine=True下划线 C)FontSize

D)FontBold

(23)如果希望使用变量x来存放数据687543.123456，应将该变量x声明为（D）类型的变量。 A)Integer

P29 看值的大小和有效数字位数，Single最多7为有效数字 B)Single

C)Byte Double最多15位有效数字 D)Double

(24)确定一个控件在窗体上的位置的属性是: C A)Width和Height

定位置：Top和Left B)Width或Height

定大小：Width和Height C)Top和Left D)Top或Left

(25)下面程序执行后，第二次单击窗体的输出结果是（ D ） : Option Explicit

X为窗体模块级变量，在其所在窗体的任何代码中都可使用 Dim x As Integer

加载时x=2，每单击一次窗体值加1，单击两次x+2 Private Sub Form_Click()

x = x + 1

Print \End Sub

Private Sub Form_Load() x = 2 End Sub A)x=1 B)x=2 C)x=3 D)x=4

(26)表达式”80”+60的结果是（ A ） A) 140

由于60是数字，所以将\80\视为数字 B) ”140”

C) 8060

D) ”8060”

(27)执行语句s=Mid(\我喜欢Visual Basic\后，s的值是 C A)\

Mid(主串,开始位置,串长)截取子串时含开始位置处的字符 B)\

从第7个字符u开始，连续截取5个字符ual B C)\

D)\

(28)表达式Int(6.6)+Fix(-6.6)的结果是（ B ） A) -1

Int(x)返回与x最接近的整数，且值≤x B)0

Fix(x)=x的整数部分 P45 C)1

Int(6.6)+Fix(-6.6)=6-6=0 D) 2

(29)以下控件中不能作为容器使用的是（ B ） A)Form

容器类： Form、Frame框架、PictureBox图片框 B)OptionButton

C)Frame

D) PictureBox

(30)让计时器开始工作的属性是（ C ） A)Visible B)Interval

Timer1.Enabled=True开始计时 Timer1.Enabled=False停止计时