你可能感兴趣的试题

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

则由关系R和S得到关系T的操作是（）。

在Visua1 Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是（）。

在窗体上画一个图片框，在图片框中画一个命令按钮，位置如图所示。

则命令按钮的Top属性值是（）。

在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Command1_Click（）
a$="software and hardware"
b$=Right（a$，8）
c$=Mid（a$，1，8）
MsgBox a$，b$，c$，1
End Sub
则在弹出的信息框标题栏中显示的标题是（）。

以下程序段的输出结果是（）。
x=1
y=4
Do Until y＞4
x=x*y
y=y+1
Loop
Print x

如果执行一个语句后弹出如图所示的窗口，则这个语句是（）。

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim a$，b$，c$，k%
a="ABCD"
b="123456"
c=""
k=1
Do While k＜=Len（a） Or k＜=Len（b）
If k＜=Len（a） Then
c=c＆Mid（a，k，1）
End If
If k＜=Len（b）Then
c=c＆Mid（b，k，1）
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是（）。

请阅读程序：　
Private Sub Form_Click()　
m=1
For i=4 To 1 Step-1
Print Str(m)；
m=m+1
For j=1 To i
Print"*"；
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是（）。

有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。
下面的事件过程中能正确实现这一功能的是（）。

请阅读程序：
Sub subP(b()As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4)As Integer
A(1)=5:a(2)=6:a(3)=7:a(4)=8
subP a()
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，则输出结果是（）。

有如下事件过程：
Private Sub Form Click()
Dim n A s Integer
x=0
n=InputBox(“请输入一个整数”)
For i=1 To n
For j=1 To i
x=x+i
Next j
Next i
Print x
End Sub
程序运行后，单击窗体，如果在输入对话框中输入：则在窗体上显示的内容是（）。

Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。
Function Isfab(x As Integer)As Boolean
Dim a As Integer，b As Integer，c As Integer，flag As Boolean
flag=False
a=1:b=1
Do While x＜b
c=a+b
a=b
b=c
If x=b Then flag=True
Loop
Isfab=flag
End Function
测试时发现对于所有正整数x函数都返回False，程序需要修改。下面的修改方案中正确的是（）。

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：
Private Sub Command1_Click()
Dim a
a=Array(1，2，3，4)
i=3:j=1
Do While i＞=0
s=s+a(i)*j
i=i-1
j=j*10
Loop
Print s
End Sub
运行上面的程序，单击命令按钮，则输出结果是（）。

请阅读程序：
Option Base1
Private Sub Form_Click()
Dim Arr(4，4)As Integer
For i=1 To 4
For j=1 To 4
Arr(i，j)=(i-1)*2+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j，i);
Next j
Print
Next i
End Sub
 程序运行后，单击窗体，则输出结果是（）。

下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str= “ABCDABCD”，ch= “B”，则函数的返回值为：“ACDACD”
Function delchar(str As String，ch As String)As String
Dim k As Integer，temp As String，ret As String
ret=""
For k=1 To Len(str)
temp=Mid(str，k，1)
If temp= ch Then
ret=ret＆temp
End If
Next k
delchar=ret
End Function
但实际上函数有错误，需要修改。下面的修改方案中正确的是（）。

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Dim S1 As String， S2 As String
Private Sub Form Load()
Text1.Text=""
Text2.Text=""
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
S2=S2＆Chr(KeyCode)
End Sub
Private Sub Forin_KeyPress(KeyAscii As Integer)
S1=S1＆Chr(KeyAscii)
End Sub
Private Sub Command1 Click
Text1.Text=S1
Text2.Text=S2
S1=""
S2=""
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（）。