在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Optio...

单项选择题

下面是求最大公约数的函数的首部：
Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer
若要输出8、12、16这3个数的最大公约数，下面正确的语句是______。

A．Print gcd(8, 12), gcd(12, 16), gcd(16, 8)
B．Print gcd(8, 12, 16)
C．Print gcd(8), gcd(12), gcd(16)
D．Print gcd(8,g cd(12, 16))

单项选择题

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

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

单项选择题

下面程序运行时，若输入395，则输出结果是______。
Private Sub Command1_Click()
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10, x\100, (x Mod 100)\10
End Sub

A．3 9 5
B．5 3 9
C．5 9 3
D．3 5 9

单项选择题

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中：
Privme Sub Command1_Click()
Open "out.txt" For Output As #2
Print "Text1"
Close #2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是______。

A．把Print "Text1"改为Print #2, Text1
B．把Print "Text1"改为Print Text1
C．把Print "Text1"改为Write "Text1"
D．把所有#2改为#1

单项选择题

VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母______。

A．这3个事件都会触发
B．只触发KeyPress事件
C．只触发KeyDown、KeyUp事件
D．不触发其中任何一个事件

单项选择题

设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是______。

A．Form1_MouseDown
B．Win_MouseDown
C．Form_MouseDown
D．MouseDown_Form1

单项选择题

要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是______。

A．Private Sub P1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Print X, YEnd Sub
B．Privme Sub P1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Pieture. Print X. YEnd Sub
C．Private Sub P1_MouseMove(Button As Integer, Shift As Imeger, X As Single, Y As Single)P1. Print X, YEnd Sub
D．Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)P1. Print X, YEnd Sub

单项选择题

为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为______。

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

单项选择题

在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为______。

A．Text1. Clear
B．Text1. Visible=False
C．Text1. Hide
D．Text1. Enabled=False

单项选择题

为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是______。

A．按住Alt键，不要松开，然后单击每个要选中的控件
B．按住Shift键，不要松开，然后单击每个要选中的控件
C．按住Ctrl键，不要松开，然后单击每个要选中的控件
D．拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内

单项选择题

假定在图片框Picture1中装入了一个图片，在程序运行中，为了清除该图片(注意，清除图片，而不是删除图片框)，应采用的正确方法是______。

A．单击图片框，然后按Del键
B．执行语句Picture1. Picture=LoadPicture(" ")
C．执行语句Picture1. Picture=" "
D．执行语句：Picture1. Cls

单项选择题

要想使列表框只允许单选列表项，应设置的属性为______。

A．Style
B．Selected
C．MultiSelect
D．Enabled

单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Fori=0 To 50
i=i+3
n=n+1
If i＞10 Then Exit For
Next
Text1. Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。

A．2
B．3
C．4
D．5

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim I, Num
Randomize
Do
For I=1 To 1000
Num=Int(Rnd*100)
Print Num;
Select Case Num
Case 12
Exit For
Case 58
Exit Do
Case 65, 68, 92
End
End Select
Next I
Loop
End Sub
上述事件过程执行后，下列描述中正确的是______。

A．Do循环执行的次数为1000次
B．在For循环中产生的随机数小于或等于100
C．当所产生的随机数为12时结束所有循环
D．当所产生的随机数为65、68或92时窗体关闭、程序结束

单项选择题

在窗体上画一个名为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1, 2, 3, 4)
j=1
For i=4 To 1 Step_1
s=s+a(i)j
j=j10
Next i
Print s
End Sub
运行上面的程序，其输出结果是______。

A．1234
B．12
C．34
D．4321

单项选择题

设有如下通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String, strL As Integer
tStr=" "
strL=Len(xStr)
i=1
Do While i＜=strL/2
tStr=tStr & Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Chck()
Dim S1 As String
S1="abcdef"
Print UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，输出结果是______。

A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC

单项选择题

某人为计算n!(0＜n＜=12)编写了下面的函数过程：
Private Function fun(n As Integer)As Long
Dim P As Long
P=1
For k=n-1 To 2 Step-1
p=p*k
Next k
fun=p
End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是______。

A．把p=1改为p=n
B．把For k=n-1 To 2 Step-1改为For k=1 To n-1
C．把For k=n-1 To 2 Step-1改为For k=1 To n
D．把For k=n-1 To 2 Step-1改为For k=2 To n

单项选择题

假定有以下函数过程：
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1=LCase(Mid(S, i, 1))+s1
Next i
Fun=s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为______。

A．ABCDEFG
B．abcdefg
C．GFEDCBA
D．gfedcba

单项选择题

为计算a"的值，某人编写了函数power如下：
Private Function power(a As Integer, n As Integer)As Long
Dim s As Long
p=a
For k=1 To n
p=p*a
Next k
power=p
End Function
在调试时发现是错误的，例如Print power(5,4)的输出应该是625，但实际输出是3125。程序需要修改。
下面的修改方案中有3个是正确的，错误的一个是______。

A．把For k=1 To n改为For k=2 To n
B．把p=p*a改为p=p^n
C．把For k=1 To n改为For k=1 To n-1
D．把p=a改为P=1

单项选择题

某人编写了下面的程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=InputBox("请输入整数")
b=InputBox("请输入整数")
pro a
pro b
Call pro(a+b)
End Sub
Private Sub pro(n As Integer)
While(n＞0)
Print n Mod 10;
n=n\0
Wend
Print
End Sub
此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123和234，则应该输出：
3 2 1
4 3 2
7 5 3
但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是______。

A．把过程pro的形式参数n As Integer改为ByVal n As Integer
B．把Call pro(a+b)改为pro a+b
C．把n=n\10改为n=n/10
D．在pro b语句之后增加语句c%=a+b，再把Call pm(a+b)改为pro c

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c=1234
c1=Trim(Str(c))
For i=1 To 4
Print
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在横线处应填入的内容为。

A．Right(c1, i)
B．Left(c1, i)
C．Mid(c1, i, 1)
D．Mid(c1, i, i)

单项选择题

假定有以下程序段：
For i=1 To 3
For j=5 To 1 Step-1
Print ij
Next j
Next i
则语句Print ij的执行次数是______。

A．15
B．16
C．17
D．18

单项选择题

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为(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

单项选择题

有三个关系R、S和T如下：

其中关系T由关系R和S通过某种操作得到，该操作为______。

A．选择
B．投影
C．.交
D．.并

单项选择题

设窗体文件中有下面的事件过程：
Private Sub Command1_Click()
Dim s
a%=100
Print a
End Sub
其中变量a和s的数据类型分别是______。

A．整型，整型
B．变体型，变体型
C．整型，变体型
D．变体型，整型

单项选择题

以下能够触发文本框Change事件的操作是______。

A．文本框失去焦点
B．文本框获得焦点
C．设置文本框的焦点
D．改变文本框的内容

在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1 Step_1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是______。

你可能感兴趣的试题

对于循环队列，下列叙述中正确的是______。

下列数据结构中，能够按照“先进后出”原则存取数据的是______。

下列数据结构中，属于非线性结构的是______。

下列选项中不属于结构化程序设计原则的是______。

算法的空间复杂度是指______。

软件设计中划分模块的一个准则是______。

软件详细设计产生的图如下： 该图是______。

数据库管理系统是______。

设x是整型变量，与函数IIf(x＞0，-x，x)有相同结果的代数式是______。

下面不能在信息框中输出“VB”的是______。

在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是______。

在E-R图中，用来表示实体联系的图形是______。

下面关于标准模块的叙述中，错误的是______。

下面正确使用动态数组的是______。

下面是求最大公约数的函数的首部： Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer 若要输出8、12、16这3个数的最大公约数，下面正确的语句是______。

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

下面程序运行时，若输入395，则输出结果是______。 Private Sub Command1_Click() Dim x% x=InputBox("请输入一个3位整数") Print x Mod 10, x\100, (x Mod 100)\10 End Sub

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中： Privme Sub Command1_Click() Open "out.txt" For Output As #2 Print "Text1" Close #2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是______。

VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母______。

设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是______。

要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是______。

为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为______。

在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为______。

为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是______。

假定在图片框Picture1中装入了一个图片，在程序运行中，为了清除该图片(注意，清除图片，而不是删除图片框)，应采用的正确方法是______。

要想使列表框只允许单选列表项，应设置的属性为______。

在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1 Step_1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是______。

假定有以下程序段： For i=1 To 3 For j=5 To 1 Step-1 Print i*j Next j Next i 则语句Print i*j的执行次数是______。

有三个关系R、S和T如下： 其中关系T由关系R和S通过某种操作得到，该操作为______。

设窗体文件中有下面的事件过程： Private Sub Command1_Click() Dim s a%=100 Print a End Sub 其中变量a和s的数据类型分别是______。

以下能够触发文本框Change事件的操作是______。

在窗体上画一个名为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1, 2, 3, 4)
j=1
For i=4 To 1 Step_1
s=s+a(i)j
j=j10
Next i
Print s
End Sub
运行上面的程序，其输出结果是______。

软件详细设计产生的图如下：

该图是______。

下面是求最大公约数的函数的首部：
Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer
若要输出8、12、16这3个数的最大公约数，下面正确的语句是______。

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

下面程序运行时，若输入395，则输出结果是______。
Private Sub Command1_Click()
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10, x\100, (x Mod 100)\10
End Sub

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中：
Privme Sub Command1_Click()
Open "out.txt" For Output As #2
Print "Text1"
Close #2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是______。

在窗体上画一个名为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1, 2, 3, 4)
j=1
For i=4 To 1 Step_1
s=s+a(i)j
j=j10
Next i
Print s
End Sub
运行上面的程序，其输出结果是______。

假定有以下程序段：
For i=1 To 3
For j=5 To 1 Step-1
Print ij
Next j
Next i
则语句Print ij的执行次数是______。

有三个关系R、S和T如下：

其中关系T由关系R和S通过某种操作得到，该操作为______。

设窗体文件中有下面的事件过程：
Private Sub Command1_Click()
Dim s
a%=100
Print a
End Sub
其中变量a和s的数据类型分别是______。