二级Visual Basic语言程序设计真题2015年03月及答案解析

y=4

Do Until y＞4 x=x*y y=y+1 Loop Print x A.1 B.4 C.8 D.20

上一题 下一题 (23/40)单项选择题 第23题

设a=6，则执行x=Iif(a＞5，-1，0)后，x的值为（ A.5 B.6 C.0 D.-1

上一题 下一题 (24/40)单项选择题 第24题

执行下面的程序段后，x的值为（ ） x=5

For c = 1 To 20 Step 2 x=x+c\\5 Next c A.21 B.22 C.23 D.24

上一题 下一题 (25/40)单项选择题 第25题

在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) For I= 1 To 4 x=4

For j = 1 To 3 x=3

For k= 1 To 2 x=x+6 Next k Next j Next I

） Print x End Sub

程序运行后，单击命令按钮，输出结果是（ ） A.7 B.15 C.157 D.538

上一题 下一题 (26/40)单项选择题 第26题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x=0

Do Until x = -1

a=InputBox(\请输入A的值\a=Val(a)

b=InputBox(\请输入B的值\b=Val(b)

x=InputBox(\请输入x的值\x = Val(x) a=a+b+x Loop Print a End Sub

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（ ） A.2 B.3 C.14 D.15

上一题 下一题 (27/40)单项选择题 第27题

阅读下面的程序段： For I=1 To 3 For j = 1 To I For k =j To 3 a=a+1 Next k Next j Next I

执行上面的三重循环后，a的值为（ ） A.3 B.9

C.14 D.21

上一题 下一题 (28/40)单项选择题 第28题

在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load( ) Text1.Text = \For I = 1 To 10 Sum = Sum + I Next I

Text1.Text = Sum End Sub

上述程序的运行结果是（ ） A.在文本框Text1中输出55 B.在文本框Text1中输出0 C.出错

D.在文本框Text1中输出不定值 上一题 下一题 (29/40)单项选择题 第29题

在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click( ) x=0

Do While x ＜ 50 x=(x+2)*(x+3) n=n+1 Loop

Text1.Text = Str(n) Text2.Text = Str(x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ） A.1和0 B.2和72 C.3和50 D.4和168

上一题 下一题 (30/40)单项选择题 第30题

以下不能在\工程资源管理器\窗口中列出的文件类型是（ ） A.．bas B.．ocx C.．frm

D.．cls

上一题 下一题 (31/40)单项选择题 第31题

以下关于窗体的描述中，错误的是（ ）

A.执行Unload Form语句后,窗体Form消失,但仍在内存中 B.窗体的Ioad事件在加载窗体时发生

C.当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 D.窗体的Height、width属性用于设置窗体的高和宽 上一题 下一题 (32/40)单项选择题 第32题

下列可作为VIsual Basic变量名的是（ ） A.A#A B.4A C.a3 D.const

上一题 下一题 (33/40)单项选择题 第33题

函数String(n，\的功能是（ ） A.把数值型数据转换为字符串 B.返回由n个\字符

C.从字符串\中取出前n个字符

D.从字符串中第n个字符的位置开始取子字符串 上一题 下一题 (34/40)单项选择题 第34题

将数学表达式Cos(a+b)+5|2*-a|写成Visual Basic的表达式，其正确的形式是（ ） A.Cos(a+b)+5abs(2*(-a)) B.Cos(a+b)+5*|2*(-a)| C.Cos(a+b)+5*abs(2*(-a) D.(Cosa+b)+5*abs(2*(-a)) 上一题 下一题 (35/40)单项选择题 第35题

在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click( ) a$ = \b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a, , b, c, 1 End Sub

则在弹出的信息框的标题栏中显示的信息是（ ）

A.software and hardware B.software C.hardwafe D.1

上一题 下一题 (36/40)单项选择题 第36题

执行如下语句：a＝inputBox(\将显示一个输入对话框，在对话框的输入区中显示的信息是（ ） A.Today B.Tomorrow C.Yesterday

D.Day before yesterday

上一题 下一题 (37/40)单项选择题 第37题

表示滚动条控件取值范围最大值的属性是（ ） A.Max

B.LargeChange C.Value D.Max-Min 上一题 下一题 (38/40)单项选择题 第38题

在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是（ ） A.Private Sub Listl_C1ick( )

Labell.Caption＝list1.listlndex End Sub B.Private Sub Listl_C1ick( ) Labell.Name＝Listl.listindex End Sub C.Private Sub Listl_C1ick( )

Labell.Caption＝list1.text End Sub D.Private Sub Listl_C1ick( )

Labell.Name＝Listl．text End Sub 上一题 下一题 (39/40)单项选择题 第39题

假定有以下函数过程：

Function Fun(ByVal S As String) As String Dim s1 As String For I = 1 To Len(S)

s1 = UCase(Mid(S, I, 1)) + s1 Next I