填空题在窗体上画两个文本框，其名称分别为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文本框中输入“efghi”，则Text1文本框中的内容为 【11】 。
填空题在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示。请填空。PrivateSubOption1_Click(1ndexAsInteger)SelectCase【8】Case0a=“宋体”Case1a=“黑体”Case2a=“楷体GB2312”EndSelectText1.【9】=aEndSub
填空题设a=1，b=2，c=3，d=4，表达式Not b=a Or 4 * a+1＞=d And c＜＞a+b的值为 【1】 。
填空题数据库设计分为以下6个设计阶段：需求解析阶段、 【5】 、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
填空题已知数组A(4,4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在 (13) 和 (14) 处填入所需的内容，使产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如： 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 Private Sub Command1_Click() Dim a(4,4) For k=1 To 4 For j=1 To 4 a(k,j)=j Print a(k,j)； Next Print Next For k=2 To 4 For j=1 To (13) t=a(j,k) a(j,k)= (14) a(k,j)=t Next Next For k=1 To 4 Print a(k,1)；a(k,2)；a(k,3)；a(k,4) Next End Sub
填空题在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，
然后编写如下事件过程：
Private Sub Command1 Click()
Text1．Text=InputBox("请输入数据1")
Text2．Text=InputBox("请输入数据2)
End Sub
程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入123和abc，则两个文本框中显示的内容分别为{{U}} 【9】 {{/U}}和{{U}} 【10】 {{/U}}。
填空题假设用一个长度为100的数组(数组元素的下标从0到99)作为栈的存储空间，栈底指针bottom指向栈底元素，栈顶指针top指向栈顶元素，如果bottom=99，top=60(数组下标)，则栈中具有______个元素。
填空题在窗体上画1个名称为Commandl的命令按钮和2个名称分别为Text1、Text2的文本框，如下图所示，然后编写如下程序；FunctionFun(xAsInteger,ByVhlyAsInmgcr)AsIntegerX=K+yIfx＜0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCornmandl_Click()DimaAsInteger,bAsIntegera=-10:b=5Tcxt1,Text=Fun(a,b)Text2,Text=Fun(a,b)EndSub程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是上[14]和[15]。
填空题下列语句的输出结果是{{U}} 【6】 {{/U}}。
Print Format$(6658.6，"000,000.00．")
填空题______的功能是显示当前过程所有局部变量的当前值；______的功能是查看指定表达式的值；______的功能是用于显示当前过程中的有关信息，当测试一个过程时，可在其中输入代码并立即执行。
填空题在窗体上画 1 个命令按钮和 1 个文本框，其名称分别为 Command1 和 Text1，然后编 写如下代码：
Dim SaveAll As String
Private Sub Command1_Click() Text1.Text = Left(UCase(SaveAll), 4) End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii)
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是 _________。
（ 10 ）在窗 体上画 1 个命令按钮 和 1 个通用对话框， 其名称分别 为 Command1 和CommonDialog1，然后编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1. _________ = "打开文件"" CommonDialog1.Filter = "All Files(*.*)|*.*" CommonDialog1.InitDir = "C:\" CommonDialog1.ShowOpen
End Sub 该程序的功能是，程序运行后，单击命令按钮，将显示"打开"文件对话框，其标题是" 打开文件"，在"文件类型"栏内显示"All Files(*.*)"，并显示C盘根目录下的所有文件， 请填空。
填空题下面是用冒泡法将5个整数按升序排列，请将程序补充完整。
Sub GASR()
Dim m
m=Array(10，1，5，6，7)
For i=0 To 3
For j={{U}} 【13】 {{/U}}
If m(i) ＞=m(j) Then
{{U}} 【14】 {{/U}}
m(i) =m(j)
m(j) =t
End If
Next j
{{U}} 【15】 {{/U}}
For i=0 To 4
Print m(i)
Next i
End Sub
填空题在VB中向组合框中增加数据项所采用的方法为{{U}} 【8】 {{/U}}。
填空题下面程序的功能是从键盘输入—个大于100的整数m，计算并输出满足不等式 1+22+32+42+…+n2＜m 的最大的n。请填空。 Private Sub Command1_Click() Dim s,m,n As Integer m=Val(InputBox("请输入一个大于100的整数")) n={{U}} 【6】 {{/U}} s=0 Do While s＜m n=n+1 s=s+n*n Loop Print "满足不等式的最大n是";{{U}} 【7】 {{/U}} End Sub
填空题在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机整数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后将计算结果显示在Label2中。请填空。PrivateSubCommand1_Click()Sum=0Fori=0To4Sum=Sum+______Next______=SumEndSub
填空题假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books
Name As String *10
TelNum As String*20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Click()
Dim B As Books
open "C=/person.txt" For output As#1
B.Name=InputBox("请输入姓名")
B.TelNum=InputBox("请输入电话号码")
write #1，______
Close #1
End Sub
填空题有如下函数过程：
Function gys(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜＞0
preminder=x/y
x=Y
y=preminder
Loop
gys=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是
________
。
Private Sub Command1_Click()
Dim a As Integer，b As Integer
a=10：b=2
x=gys(a，b)
Print x
End Sub
填空题在最坏情况下，冒泡排序的时间复杂度为
________
。
填空题在Visual Basic工程prjl中包含有两个窗体，窗体form1(主窗体)上有两个命令按钮command1和 command2，一个文本控件text1；窗体dialog是一个对话窗体，窗体包含两个命令按钮OK和Cancel，一个文本控件text1和一个标签控件labe11。
编写程序要求实现的功能为：窗体form 1上command1的caption属性值为name，程序运行后，当单击 eommand1时，弹出对话窗体dialog，其labe11控件中的提示信息为“please input your name：”，要求用户输入自己的姓名。如果单击OK按钮，保存当前输入的内容并返回form1界面，command1的caption属性值为email。若再次单击command1命令按钮，仍然出现dialog对话窗体，此时dialog的labe11提示用户输入自己的email，当用户输入email后，单击“确定”按钮，保存当前输入的内容并返回form1界面；如果单击Cancel按钮，则输入内容无效并返回form1。
Private Sub Command1_Click()
Dialog. Text1. Text = ""
Dialog. Show
End Sub
Private Sub Command2_Click()
Text1. Text = "email: "+ Dialog. email +" name: "+ Dialog. fname
End Sub
Private Sub Form_ Load()
Command1. Caption = "name"
{{U}} 【7】 {{/U}}. Caption = "please input your name:
Dialog. i = 0
End Sub
Option Explicit
Public i As Integer
Public email As String
Public fname As String
Private Sub CancelButton_Click()
i=0
email = ""
fname = ""
Forml. Command1. Capt ion = "name"
Dialog. Hide
Form1. Show
End Sub
Private Sub OKButton_ Click()
{{U}}【8】 {{/U}}
Select Case i
Case 1:
email = Text1. Text
Labe11. Caption = "please input your email:"
{{U}}【9】 {{/U}}. Caption = "email"
Case 2:
fname = Text1. Text
{{U}} 【10】 {{/U}}. Caption = "name"
i=0
End Select
Dialog. Hide
Form1. Show
End Sub
填空题一个控件在窗体上的位置由______和Top属性决定。