填空题通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。
Private Sub Combo1_Cliek()
Text1. FontName=Combo1. List(Combo1. Listlndex)
End Sub
Private Sub Form_Load()
With Combol
Addltem"宋体"
Addltem"隶书"
Addltem"黑体"
·Addltem"楷体_GB2312""
·Listlndex＝0
End With
Text1.{{U}} 【8】 {{/U}}30
Textl.{{U}} 【9】 {{/U}}=Combol.List(0)
End Sub
填空题Jackson结构化程序设计方法是英国的M.Jackson捉出的，它是一种面向 【3】 的设计方法。
填空题在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并对文本框中显示出来，如图所示。请填空。 OptionBase1 Dima(3，2)AsInteger PrivateSubCommand1_Click________ Fori=1To3 Fori=1To2 ________=i+j Nextj Nexti EndSub PrivateSubCommand2_Click________ Forj=1To3 Fori=1To2 s=s+________ Nexti Nextj Text1．Text=________ EndSub
填空题在文本框中，通过______，属性能获得当前插入点所在的位置。
填空题排序是计算机程序设计中的一种重要操作，常见的排序方法有插入排序、{{U}} 【1】 {{/U}}和选择排序等。
填空题根据假定的条件，判断应该选择哪条途径来执行相应的程序语句序列，这样的程序结构是{{U}} 【2】 {{/U}}。
填空题设有以下程序：
Option Base 1
Private Sub Command1_Click( )
Dim arr1 ,Max as Integer
art1 = Array(12,435,76,24,78,54,866,43)
{{U}} 【14】 {{/U}}= arr1(1)
For i = 1 To 8
If arrl(i)＞Max Then{{U}} 【15】 {{/U}}
Next i
Print "最大值："； Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
填空题下面是程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下： 程序不完整，请填空，将程序的补充完整 OptionExplicit DimxAsSingle DimyAsSingle DimzAsSingle PrivateSubCommand1_Click________ x=Val(InputBox("x=")) y=Val(InputBox("y=")) PrivateSubCommand2_Click________ If 【13】 Then z=x^2+y^2 ElseIf 【14】 Then z=x^2-2*y^2 【15】 z=y^2-3*x^2 EndIf Form1．Print"当x，y的值为："；x，y Form1．Print"f(x，y)的值为:"：z Endsub
填空题下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值，请完善下列程序。 Furiction SumD (n As Integer)As Single s = 1 i = 1 Do i = i + 1 s = s + 1 / i Loop Until 【12】 SumD = s End Function Private Sub Form Click() sum1=SumD(100) Print "sum1="； sum1 End Sub
填空题阅读以下程序： Prlvate Sub Form_Click() Dim k，n，m As Integer n=10 m=1 k=1 Do While k＜=n m=m*2 k＝k+1 Loop Print m End Sub程序运行后，单击窗体，输出结果为 【8】 。
填空题为了把一个Visua1BASIC应用程序装入内存，只要装入{{U}} 【6】 {{/U}}文件即可。
填空题在菜单编辑器中建立一个菜单，其主菜单项的名称为nmuEdit，Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnvEdit对应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form{{U}} 【2】 {{/U}}(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 2 Then
{{U}}【3】 {{/U}}mnuEdit
End If
End Sub
填空题在属性窗口中，属性列表可以按两种顺序排列，这两种顺序是 【6】 和 【7】 。
填空题下述语句段在运行时的显示结果是【 】。
Cis
x=10．34 + 8
Print Len(x)
填空题在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2中输入lmn，那么在文本框Text1中显示的内容将是 【8】 。 Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress(KeyAseii As Integer) Text1.Text=Text1.Text+Chr(KeyAscii-5) End Sub
填空题记时器控件能有规律的以厂定时间间隔触发{{U}} 【6】 {{/U}}事件，并执行该事件过程中的程序代码。
填空题窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如，单击如下左图中的"重庆"，则与"北京"交换，得到右图的结果。下面是可实现此功能的程序，请填空。PrivateSubCombo1_Click()Dimtemptemp=Combo1.Text______Combo1.List(0):Combo1.List(0)=tempEndsub
填空题关系式x≤-5或x≥5所对应的布尔表达式是{{U}} 【7】 {{/U}}。
填空题在Visual Basic 6.0中，InputBox函数用于产生一个______对话框。
填空题请在下列空白处填入合适的语句，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6x6阶矩。 Private Sub Command1_Click() Dim s(6,6) For i=1 To 6 For i=1 To 6 If i=i Then (13) Else (14) End If Print (15) Nexti Print Next i End Sub