VB编程题目求教若已建立了Form1、Form2两个窗体，默认启动窗体为Form1。通过 (1) 菜单的(2) 的 (3

VB编程题目求教
若已建立了Form1、Form2两个窗体，默认启动窗体为Form1。通过 (1) 菜单的(2) 的 (3) 选项卡，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行 (4) 句。
9．在文本框中，通过 (5) 属性能获得当前插入点所在的位置。
10．表示x是5的倍数或是9的倍数的逻辑表达为 （7） 。

程序填空
1、输入文本框中若干字符，统计有多少个元音字母、有多少个其他字母，直到按 Enter 键结束，并显示结果，大小写不区分。其中 Count Y 中放元音字母个数，Count C 中放其他字符个数。
Dim Count Y%, Count C%
Private Sub Tex1_KeyPress(KeyAscii As Integer)
Dim C$
C = （1 ）
If “A”<=C And C<= “Z” Then
Select Case （2 ）
Case （3）
Count Y = Count Y + 1
Case （4）
Count C = Count C + 1
End Select
End If
If （5） Then
Print “元音字母有”；Count Y；“个”
Print “其他字母有”；Count C；“个”
End If
End Sub
2、下面的程序是将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序。
Private Sub Form_Click( )
Dim a ,i%,n%,m%
a=Array(19,17,15,13,11,9,7,5,3,1)
n=Ubound(a)
ReDim (6)
m=Val(InputBox(“输入欲插入的数”))
For I =Ubound(a)-1 To 0 Step （7）
If m >=a(i) Then
（8）
If i=0 Then a(i)=m
Else
（9）
Exit for
End If
Next i
For i =0 To （10）
Print a ( i )
Next i
End Sub

2、子过程MoveStr()是把字符数组移动m个位置，当Tag为True左移，则前m个字符移到字符数组尾，例如，“abcdefghij”左移3个位置后，结果为“defghijabc”;当Tag为False右移，则后m个字符移到字符数组前，如“abcdefghij”右移3个位置后，结果为“hijabcdefg”。
子过程如下：
Public Sub MoveStr(a$(),m%,Tag As Boolean)
Dim i%,j%,t$
If (4) Then
For I=1 To m
(5)
For j=0 To (6)
a(j)=a(j+1)
Next j
(7)
Next I
Else
For i=1 To m
(8)
For j=Ubound(A) (9)
a(j)=a(j-1)
Next j
(10)
Next I
End If
End Sub

编程
随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。

2、编程实现右图所示的结果。 就是一个三角形 1到9最后是0为止
1
222
33333
44444444

3、随机产生10个1~10正整数放于数组a中，利用顺序查找方法，完成键盘输入的某一关键值；若找到则输出显示关键值在数组中的位置，否则显示“查找失败”。