单选题设在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *
10 TelNum As String * 20End
Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
A.Private Sub Command1_Click() Dim B As Books Open "c:/Person.txt" For
Output As #1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write
#1，B.Name, B.TelNum Close #1 End Sub B．Private Sub Command1_Click() Dim B As
Books Open "c:/Person.txt" For Input As #1 B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码") Print #1, B.Name, B.TelNum Close #1 End Sub
C．Private Sub Command1_Click() Dim B As Books Open "c:/Person.txt" For Output As
#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码") Write #1, B Close #1 End Sub
D.Private Sub Command1_Click() Open "c:/Person.txt" For Input As #1
Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, Name, TelNum
Close #1 End Sub
单选题某二叉树中有n个度为2的节点，则该二叉树中的叶子节点数为
单选题在数据库设计中，将E-R图转换成关系数据模型的过程属于( )。
单选题下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是( )。
单选题执行以下程序段后，变量c＄的值为______ 。 a＄=“Visual Basic Programing” b＄=“Quick” c＄= b＄ & UCase (Mid＄(a＄，7，6))＆Right ＄，(a ＄，11)
单选题希尔排序法属于哪一种类型的排序法______。 A) 交换类捧序法 B) 插入类排序法 C) 选择类排序法 D) 建堆排序法
单选题阅读程序： Function Fun(a As Integer) Static C b=0:b=b+2:c=c+2 Fun=a*b*c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 2 Print Fun(A)： Next End Sub 运行上面的程序，单击命令按钮，输出结果为( )。 A) 8 16 B) 9 18 C) 10 20 D) 7 14
单选题对于存在多个条件复杂组合的判断问题，其加工逻辑使用______ 描述较好。
单选题End语句在不同的环境下其用途是不同的。下列两条语句：End Sub和End Select所对应的用途是______。
单选题在窗体上画1个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load()
Open"C:/dat.txt"For Output As #1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If______=13 Then
If UCase(Text1.Text=______)Then
Close 1
End
Else
Write #1, Text1.Text
Text1.Text=""
End If
End If
End Sub
程序的功能是，在C盘根目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt中，并清空文本框中的内容；如果输入“END”，则结束程序，请选择适合空白处的语句______。
单选题在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode＋2) End Sub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为______。
单选题窗体上有名称为Text1、Text2的两个文本框，和一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中数值与该单选按钮所对应的运算(乘1、乘10或乘100)，并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的横线处应填入的内容是()。PrivateSubOption1_Click(IndexAsInteger)IfText1.Text＜＞""ThenSelectCase______Case0Text2.Text=Text1.TextCase1Text2.Text=Text1.Text*10Case2Text2.Text=Text1.Text*100EndSetectEndIfEndSub
单选题设有如下通用过程： 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
在窗体上画一个名称为Commandl的命令按钮。然后编写如下的事件过程： Private Sub
Commandl_Click() Dim Sl As String
SI="abcdef' Print UCase(Fun(S1) End
Sub 程序运行后，单击命令按钮，输出结果是______。
A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
单选题窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现如此功能：图1图2PrivateSubCommand1_Click()Dimn%,k%n=Len(Text1.Text)Fork=0ToList1.ListCount-1IfLeft(List1.List(k),n)=Text1.TextThenList1.RemoveItemkEndIfNextkEndSub在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把Fork=0ToList1.ListCount-1改为______。
单选题下面不能在信息框中输出“Visual Basic”的是( )。
单选题在窗体中添加一个列表框(listBox1)和一个命令按钮，并编写如下代码：
Private Sub Command1_Click()
Dim Entry,I,Nsg
Msg="Choose Ok to add 100 items to your list box."
MsgBox Msg
for I=1 To 100
Entry="Entr"& I
List1.AddItem Entry
Next I
End Sub
程序完成的功能是______。
单选题下列描述中正确的是
单选题在窗体上有两个文本框：Text1和Text2，然后编写如下事件过程： Private Sub Form_Load() Show Text1．Text=""：Text2．Text=""：Text2．SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Integer) Text1．Text=Text1．Text+Chr(KeyCode-4) End Sub 程序运行后，如果在Text2文本框中输入“ertyu”，则Text1文本框中的内容为( )。
单选题关子设置控件属性的叙述正确的是______ 。
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub
Command1_Click() c="ABCD" For
n=1 To 4 Print ______
Next End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD
BCD ABCD 则在 ______
处应填入的内容为
A. Left(c，n)
B. Right(c，n)
C. Mid(c，n，1)
D. Mid(c，n，n)