单项选择题

用来设置文字字体是否为粗体的属性是______。

A．Fontltalic
B．FontUnderline
C．FontSize
D．FontBold

你可能感兴趣的试题

单项选择题

若在窗体模块的声明部分声明了如下自定义类型和数组：
Private Type ree
Code As Integer
Caption As String
End Type
Dim arr(5)As rec
则下面的输出语句中正确的是______。

A．Print arr.Code(2)，arr.Caption(2)
B．Print arr.Code，arr.Caption
C．Print arr(2).Code，arr(2).Caption
D．Print Code(2)，Caption(2)

单项选择题

以下选项中，不合法的Visual Basic的变量名是______。

A．a5b
B．_xyz
C．a_b
D．andif

单项选择题

以下自定义数据类型的语句中，正确的是______。

A．Type studentID As String * 20name As String * 10age As IntegerEnd student
B．Type studentID As String * 20name As String * 10age As IntegerEnd Type
C．Type studentID As Stringname As Stringage As IntegerEnd student
D．TypeID As String * 20name As String * 10age As IntegerEnd Type student

单项选择题

以下变量名中合法的是______。

A．x2-1
B．Print
C．str_n
D．2x

单项选择题

以下合法的VB变量名是______。

A．#_1
B．123_a
C．string
D．x_123

单项选择题

以下变量名中合法的是______。

A．x-2
B．12abc
C．sum_total
D．print

单项选择题

下列符号常量的声明中不合法的是______。

A．Const a As Single=3.5
B．Const a As Double=5+8
C．Const a As Integer="25"
D．Const a="OK"

单项选择题

以下合法的VB变量名是______。

A．_x
B．2y
C．a#b
D．x_1_x

单项选择题

下列合法的变量名是______。

A．snm-a
B．num_9
C．print $
D．5avg

单项选择题

以下合法的VB变量名是______。

A．_a
B．yPrint
C．a-b
D．Type

单项选择题

设有如下通用过程：
Public Function f(x As Integer)
Dim Y As Integer
x=20
y=2
f=x*y
End Function
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
x=10
y=5
y=f(X)
Print x;y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。

A．10 5
B．20 40
C．20 5
D．10 40

单项选择题

在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click()
X=5:Y=3
Call proe(X,Y)
Label1.Caption=X
Label2.Caption=Y
End Sub
Private Sub proc(a As Integer,ByVal b As Integer)
X=a*a
Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。

A．25和3
B．5和3
C．25和6
D．5和6

单项选择题

标准模块中有如下程序代码：
Public x As Integer, y As Integer
Sub var_pub()
x=10:y=20
End Sub
在窗体上有1个命令按钮，并有如下事件过程：
Private Sub Command1_Click()
Dim x As Integer
Call var_pub
x=x+100
y=y+100
Print x;y
End Sub
运行程序后单击命令按钮，窗体上显示的是______。

A．100 100
B．100 120
C．110 100
D．110 120

单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下：
Private Sub Command1_Click()
Dim p As Integer
p=m(1)+m(2)+m(3)
Print p
End Sub
Private Function m(n As Integer)As Integer
Static s As Integer
For i=1 To n
s=s+1
Next
m=s
End Function
运行程序，第2次单击命令按钮Command1时的输出结果为______。

A．6
B．10
C．16
D．28

单项选择题

窗体上有名称为Command1的命令按钮，名称分别为Label1、Label2和Label3的标签。编写如下程序：
Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
n=5
z=z+n
y=y+n
x=x+y
Label1=x
Label2=y
Label3=z
End Sub
运行程序，连续3次单击命令按钮后，3个标签中分别显示的是______。

A．5 5 5
B．15 10 5
C．15 15 15
D．30 15 5

单项选择题

在一个工程的窗体中有如下代码：
Public x As Integer
Private Sub Form_Load()
Dim y As Integer
End Sub
在该工程的标准模块的声明部分有如下代码：
Public a As Integer
Private b As Integer
关于上述代码，以下叙述中错误的是______。

A．变量x的作用域是整个工程
B．变量y的作用域是Form_Load过程
C．变量a的作用域是整个工程
D．变量b的作用域是整个标准模块

单项选择题

以下关于变量作用域的叙述中，错误的是______。

A．在标准模块声明部分用Public声明的变量的作用域为整个工程文件
B．在标准模块声明部分用Private声明的变量的作用域为该标准模块
C．在窗体的声明部分不能用Private声明变量
D．在过程中不能使用Public声明变量

单项选择题

在窗体模块的声明部分声明变量时，不能使用的关键字是______。

A．Dim
B．Public
C．Private
D．Static

单项选择题

在窗体上画一个命令按钮，然后编写如下程序：
Sub inc(a As Integer)
Static x As Integer
x=x+a
Print x;
End Sub
Private Sub Command1_Click()
inc 2
inc 3
inc 4
End Sub
程序运行后，第一次单击命令按钮时的输出结果为______。

A．2 3 4
B．2 5 9
C．11 14 18
D．4 9 16

单项选择题

设窗体上有一个Command1命令按钮，还有以下程序代码：
Private Sub Command1_Click()
Static x As Integer
x=x+1
Call proc(x)
Print x,
End Sub
Private Sub proc(a As Integer)
Static x As Integer
x=x+a
a=x
End Sub
程序运行后，3次单击命令按钮，则产生的输出是______。

A．1 2 3
B．1 3 5
C．1 3 7
D．2 4 6

单项选择题

现有如下语句：
x=IIf(a＞50,Int(a\3),a Mod 2)
当a=52时，x的值是______。

A．0
B．1
C．17
D．18

单项选择题

在窗体上画一个文本框，其名称为Text1，然后编写以下程序：
Private Sub Form_Load()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii)
KeyAscii=Asc(UCase(Char))
End Sub
以上程序的功能是______。

A．把输入到文本框中的字母转换为小写显示
B．把从键盘上输入的字符在文本框中原样显示
C．把输入到文本框中的字母转换为大写显示
D．把输入到文本框中的字符转换为其ASCII码显示

单项选择题

语句：Print Asc(Chr $ (Mid$("98765432",4,2)))的输出是______。

A．65
B．.A
C．8765
D．.W

单项选择题

表达式Sgn(0.25)的值是______。

A．-1
B．0
C．1
D．0.5

单项选择题

要计算x的平方根并存入变量Y，正确的语句是______。

A．y=Exp(x)
B．y=Sgn(x)
C．y=Int(x)
D．y=Sqr(x)

单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下：
Private Sub Command1_Click()
m=-3.6
If Sgn(m)Then
n=Int(m)
Else
n=Abs(m)
End If
Print n
End Sub
运行程序，并单击命令按钮，窗体上显示的内容为______。

A．-4
B．-3
C．3
D．3.6

单项选择题

以下表达式与Int(3.5)的值相同的是______。

A．CInt(3.5)
B．Val(3.5)
C．Fix(3.5)
D．Abs(3.5)

单项选择题

以下能对正实数d的第3位小数四舍五入的表达式是______。

A．0.01*Int(d+0.005)
B．0.01*Int(100*(d+0.005))
C．0.01*Int(100*(d+0.05))
D．0.01*Int(d+0.05)

单项选择题

可以产生30～50(含30和50)之间的随机整数的表达式是______。

A．Int(Rnd*21+30)
B．Int(Rnd*20+30)
C．Int(Rnd*50-Rnd*30)
D．Int(Rnd*30+50)

单项选择题

能够产生1到50之间(含1和50)随机整数的表达式是______。

A．Int(Rnd*51)
B．Int(Rnd(50)+1)
C．Int(Rnd*50)
D．Int(Rnd*50+1)

单项选择题

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)＜＞""Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String,i As Integer
For i=Len(ss)To 1 Step-1
m=m+Mid(ss,i,1)
Next
Text1.Text=UCase(m)
End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是______。

A．NUMBER 100
B．REBMUN
C．REBMUN 100
D．001 REBMUN

单项选择题

下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是______。
Private Sub Command1_Click()
Dim count(25)As Integer,ch As String
ch=UCase(InputBox("请输入字母字符串"))
For k=1 To Len(ch)
n=Asc(Mid(ch,k,1))-Asc("A")
If n＞=0 Then
count(n)=count(n)+1
End If
Next k
iTI=count(0)
For k=1 To 25
If m＜count(k)Then
m=count(k)
End If
Next k
Ptint m
End Sub

A．0
B．1
C．2
D．3

单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下：
Private Sub Command1_Click()
Dim m As String
m=InputBox("请输入字符串")
Print pick_str(m)
End Sub
Private Function pick_str(s As String)As String
temp=""
i=1
sLen=Len(s)
Do While i＜=sLen/2
temp=temp+Mid(s,i,1)+Mid(s,sLen-i+1,1)
i=i+1
Loop
pick_str=temp
End Function
运行程序，单击命令按钮，并在输入对话框中输入“basic”，则在窗体上显示的内容为______。

A．bcai
B．cbia
C．bcais
D．cbias

单项选择题

在窗体上画一个文本框，名称为Textl，然后编写如下程序：
Private Sub Form_Load()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Form_Click()
Dim a As String,s As String
a=Text1.Text
s=""
For k=1 To Len(a)
s=UCase(Mid(a,k,1))+s
Next k
Text1.Text=s
End Sub
程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容______。

A．与原字符串相同
B．与原字符串中字符顺序相同，但所有字母均转换为大写
C．为原字符串的逆序字符串，且所有字母转换为大写
D．为原字符串的逆序字符串

单项选择题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：
Private Sub Command1_Click()
Dim x1 As Integer,x2 As Integer,x3 As Integer
s=Trim(Text1.Textl
strLen=Len(s)
For i=1 To strLen
C=Mid(s,i,1)
Select Case C
Case "0" To "9"
x1=x1+1
Case "A" To "Z"
x2=x2+1
Case "a" To "Z"
x3=3+1
Case Else
x4=x4+1
End Select
Next
Print"x1";x1,"x2";x2,"x3";x3,"x4";x4
End Sub
以下关于上述程序的叙述中，正确的是______。

A．s是去掉文本框中字符串末尾的空格
B．Select Case C有误，Case后应该是一个表达式
C．各Case分支条件有误，不能用To表示字符的取值区间
D．x4是字符串中非字母、非数字字符的个数

单项选择题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。要求编写一个程序，统计文本框中0～9各数字字符的个数。某人编写如下程序：
Private Sub Command1_Click()
Dim count(10) As Integer
第1个For循环
For i=0 To 9
count(i)=0
Next
S=Trim(Text1.Text)
strLen=Len(S)
第2个For循环
For i=1 To strLen
C=Mid(g,i,1)
If e＞="0" And C＜="9" Then
x=Val(c)
count(i)=count(i)+1
End If
Next
第3个For循环
For i=0 To 9
Print Str(i), count(i)
Next
End Sub
运行程序后，发现不能实现题目的要求，程序应该进行的修改是______。

A．将第2个For循环的初值改为0
B．将第2个For语句改为For i=0 To 9
C．去掉x=Val(c)语句
D．将count(i)=count(i)+1改为count(x)=count(x)+1

单项选择题

要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是______。

A．If x mod 7=2 Then Print x
B．If x-(x\7)*7=2 Then Print x
C．If x-(x/7)*7=2 Then Print x
D．If x-Int(x/7)*7=2 Then Print x

单项选择题

下面程序计算并输出的是______。
Private Sub Command1_Click()
a=10
s=0
Do
s=s+aaa
a=a-1
Loop Until a＜=0
Print s
End Sub
A.1³+2³+3³+…+10³的值
B.10!+…+3!+2!+1!的值
C.(1+2+3+…+10)³的值
D.10个10³的和

单项选择题

在窗体上画一个名称为Command1的命令按钮，并编写如下事件过程：
Private Sub Command1_Chck()
x=1
s=0
For i=1 To 5
x=x/i
s=s+x
Next
Print s
End Sub
该事件过程的功能是计算______。

A．S=1+2+3+4+5
B．

单项选择题

下面的程序是利用公式：π=4-4/3+4/5-4/7+4/9-4/11+…计算π的近似值
Pvivate Sub Command1_Click()
Dim PI As Double, x As Double, k As Long, sign As Integer
sign=1
k=1
PI=0
Do
x=sign4/(2k-1)
PI=PI+x
k=k+1
sign=
Loop Until Abs(x)＜0.000001
Print PI
End Sub
在空处应填写的是。

A．sign+1
B．-sign
C．.x
D．.k

单项选择题

假定Picture1和Text1分别为图片框和文本框的名称，则下列错误的语句是______。

A．Print 25
B．Picture1.Print 25
C．Text1.Print 25
D．Debug.Print 25

单项选择题

有如下语句序列：
Dim a,b As Integer
Print a
Print b
执行以上语句序列，下列叙述中错误的是______。

A．输出的a值是0
B．输出的b值是0
C．a是变体类型变量
D．b是整型变量

单项选择题

以下不能用Print方法输出数据的对象或窗口是______。

A．窗体
B．立即窗口
C．图片框
D．代码窗口

单项选择题

下列程序段的输出结果是______。
x=5
Print x+1; x+1

A．6 6
B．5 5
C．6 7
D．5 6

单项选择题

Print Format(1234.56, "###.#")语句的输出结果是______。

A．123.4
B．1234.6
C．1234.5
D．1234.56

单项选择题

执行下列语句：
strInput=InputBox("请输入字符串","字符串对话框","字符串")
将显示输入对话框。此时如果直接单击“确定”按钮，则变量strInput的内容是______。

A．“请输入字符串”
B．“字符串对话框”
C．“字符串”
D．空字符串

单项选择题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：
Private Type x
a As Integer
b As Integer
End Type
Private Sub Command1_Click()
Dim y As x
y.a=InputBox("")
If y.a\2=y.a/2 Then
y.b=y.a*y.a
Else
y.b=Fix(y.a/2)
End If
Text1.Text=y.b
End Sub
对以上程序，下列叙述中错误的是______。

A．x是用户定义的类型
B．InputBox函数弹出的对话框中没有提示信息
C．若输入的是偶数，y.b的值为该偶数的平方
D．Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回

单项选择题

窗体上有一个名称为Command1的命令按钮，其事件过程如下：
Private Sub Command1_Click()
x="VisualBasicProgramming"
a=Right(x,11)
b=Mid(x,7,5)
e=MsgBox(a,,b)
End Sub
运行程序后单击命令按钮，以下叙述中错误的是______。

A．信息框的标题是Basic
B．信息框中的提示信息是Programming
C．e的值是函数的返回值
D．MsgBox的使用格式有错

单项选择题

下列叙述中正确的是______。

A．MsgBox语句的返回值是一个整数
B．执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作
C．MsgBox语句的第一个参数不能省略
D．如果省略MsgBox语句的第三个参数(Title)，则信息框的标题为空

单项选择题

用来设置文字字体是否为粗体的属性是______。

A．Fontltalic
B．FontUnderline
C．FontSize
D．FontBold