填空题以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。 请将空白处补充完整。 Private Sub Command1_Click() Dim N As String,C As String,D As String N=Text1.Text M=______ For i=M To 1 Step-1 C=Mid(N,i,1) D=D &______ Next i Text2.Text=D End Sub
填空题下列语句的输出结果为{{U}} 【6】 {{/U}}。
Print Format$(10009.36，"000，000.000")
填空题下列程序段的执行结果为 (11) 。 Dim A(10,10) For i=2 To 4 For i=4 To S A(i，j)=i*j Next Next Print A(2,5)+A(3,4)+A(4,5)
填空题在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdd) 和“减少菜单”(Name属性值为mnuDel)，另外设置一个标题为空的菜单项<控件数组)，其Name属性值为mnuDyn，Index值为0，Visible属性值为False；然后编写以下程序来实现增加和减少菜单项的功能，完成程序。
Dim Inxld As Integer
Private Sub mnuAdd_Click()
Dim mnuc As String
mnuc=InputBox("input caption")
InxId；InxId+1
{{U}} 【6】 {{/U}}mnuDyn(InxId)
mnuDyn(Inxld) ，Calption=mnuc
mauDyn(InxId) .Visible=True
End Sub
Private SubmnuDel_Click()
Dim i As Integer
If{{U}} 【7】 {{/U}}Then
MsgBox "菜单项已全部被删除"
Else
Unload mnuDyn(InxId)
InxId=InxId-1
End If
End Sub
填空题在一个窗体上有一个命令按钮CmdMax。单击CmdMax时，窗体上显示“字体由小变大”，字号每次增加2。请填空。 Private Sub Form_Load() Form1.Caption=“字体变化示范” CmdMax.Caption=“字体变大” End Sub Private Sub CmdMax_Click() (11) Form1.Print“字体由小变大” End Sub
填空题以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以 5余3，除以7余4，则输出；否则，将焦点定位在文本框Text中，选中其中的文本。 Private Sub Command1_Click() x＝Val(Text1.Text) If 【9】 Then Print x Else Text1.SetFoeus Text1.SetStart＝0 End If End Sub
填空题软件维护活动包括以下几类：改正性维护、适应性维护、______维护和预防性维护。
填空题在长度为n的有序线性表中进行二分查找。最坏的情况下，需要的比较次数为上______。
填空题测试用例包括输入值集和{{U}} 【1】 {{/U}}值集。
填空题在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、 C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。 Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text1．SetFocus End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Text2．Text= 【11】 End Sub
填空题运行下列程序，单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是 (14) 和 (15) 。 Private Sub Command1_Click( ) t = 1: x = 2: y = 3: z = 4 If t > 0 Or t = x And x ＜＞ y Or y ＞ z Then t = fun1(t， z) Print t Else t = fun1(x， y) Print t End If Print x Print y End Sub Function fun1(ByVal x As Integer， ByVal y As Integer)As Integer Do While y ＜＞ 0 t = x / y x = y y = t Loop fun1 = x End Function
填空题在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click()
S＄=InputBox("请输入一个字符串")
Text1.Text=S＄
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text，7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【 】。
填空题可以把具有相同属性的一些不同对象归类，称为 【3】 。
填空题当线性表采用顺序存储结构实现存储时，其主要特点是山{{U}} 【1】 {{/U}}。
填空题对长度为n的有序链表进行查找，最坏情况下需要的比较次数为 (1) 。
填空题软件测试分为白箱(盒)测试和黑箱(盒)测试。基本路径测试方法属于______ 测试。
填空题一个队列的初始状态为空。现将元素1，2，3，4，5，A，B，C，D，E依次入队，然后再依次退队，则元素退队的顺序为______。
填空题在程序设计阶段应该采取______和逐步求精的方法，把一个模块的功能逐步分解，细化为一系列具体的步骤，继而用某种程序设计语言写成程序。
填空题在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As String a="123456789" For i=1 To 5 Print Space(6-i);Mid $(a, ______, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，窗体上的输出结果是 5 456 34567 2345678 123456789 请填空。
填空题在窗体上画一个列表框，然后编写如下两个事件过程： Private Sub Form_Click( ) List1.RemoveItem 1 List1.RemoveItem 3 List1.Removeltem 1 End Sub Private Sub Form_Load( ) List1.AddItem "ItemA" List1.AddItem "ItemB" List1.AddItem "ItemC" List1.AddItem "ItemD" List1.Addltem "ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中所显示的项目为______。