VB 表达式

Question

1. 在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入字符串。要求在命令按钮中编写事件过程，将文本框中输入的非字母字符写入名为outf.txt的文件中。
2. 要求在程序运行后，单击窗体使用Do …Loop While 编写1-2+3-4+……-100的事件过程。
3. 编写函数过程max，求数组中最大值。按command命令按钮，使用随机函数产生10~100 之间的10个随机数给数组赋初值，然后调用min，输出最大值。
4. 输入整数n，单击图片框，显示出具有n行的杨辉三角形如下。
5. 编写一子过程DeleStr(s1,s2)，将字符串s1中出现s2子字符串删去，结果存放在s1中。 在源字符串中输入任意字符串，在要删除的字符串中输入欲删除的子字符串，单击command按钮，调用DeleStr(s1,s2)，将结果在结果框中显示。
6. 建立一个10个元素的数组，随机产生10个[1，100]之间的正整数进行数组赋值，并输出其中最大数及最大数在数组中的位置。
7.在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入字符串。要求在命令按钮中编写事件过程，将文本框中输入的大写字母写入名为outf.txt的文件中
8. 编写一函数过程IsH(n),对已知正整数n,判断该数是否是回文数，函数的返回值类型为布尔型。（所谓回文数指顺读与倒读数字是相同的，即指最高位与最低位相同，依次类推。）
9.编写一个子过程用于判断给定的任意正整数是否是素数，并在“调用子过程”按钮中编写调用语句。

麻烦高手给予答案，万分感谢

Answer 1

第一题：
Option Explicit
Private Sub Command1_Click()
Dim s As String
s = UCase(Text1.Text)
Dim i
For i = 65 To 90
s = Replace(s, Chr(i), "")
Next
Open "c:\outf.txt" For Output As 1
Print #1, s;
Close
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
第二题：
Option Explicit
Private Sub Form_Click()
Dim i As Integer
Dim sum As Integer
i = 1
Do
sum = sum + i
i = i + 1
sum = sum - i
i = i + 1
Loop While i < 100
Print sum
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
第三题：
Option Explicit
Function max(N() As Integer)
Dim i As Integer
max = N(UBound(N))
For i = LBound(N) To UBound(N)-1
If max < N(i) Then max = N(i)
Next
End Function
Private Sub Command1_Click()
Dim i As Integer, N(0 To 9) As Integer
For i = 0 To 9
N(i) = Int((Rnd * 90) + 10)
Next
Print max(N)
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
第四题:
"如下"在哪里?看不到 做不了
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
第五题:
Option Explicit
Function DeleStr(ByRef s1 As String, s2 As String)
s1 = Replace(s1, s2, "")
End Function
Private Sub Command1_Click()
Dim s1 As String, s2 As String
s1 = Text1.Text
s2 = text2.Text
Call DeleStr(s1, s2)
text3.Text = s1
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
第六题:
Option Explicit
Function max(N() As Integer, ByRef M) As Integer
Dim i As Integer
max = N(UBound(N))
For i = LBound(N) To UBound(N) - 1
If max < N(i) Then
max = N(i)
M = i
End If
Next
End Function
Private Sub Command1_Click()
Dim i As Integer, N(0 To 9) As Integer
Dim M As Integer
For i = 0 To 9
N(i) = Int((Rnd * 99) + 1)
Next
Print "最大值是:" & max(N, M) & vbLf & "数组中的位置是:" & M
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
第七题:
Option Explicit
Private Sub Command1_Click()
Dim s As String, temp As Integer
Dim i
For i = 1 To Len(Text1.Text)
temp = Asc(Mid(Text1.Text, i, 1))
If temp >= 65 And temp <= 90 Then
s = s & Chr(temp)
End If
Next
Open "c:\outf.txt" For Output As 1
Print #1, s;
Close
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
第八题:
Option Explicit
Private Sub Command1_Click()
Print IsH(Val(Text1.Text))
End Sub
Function IsH(n) As Boolean
Dim i As Integer
For i = 1 To Int(Len(n) / 2)
If Mid(n, i, 1) <> Mid(n, Len(n) - i + 1, 1) Then
IsH = False
Exit Function
End If
Next i
IsH = True
End Function
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
第九题:
Option Explicit
Private Sub Command1_Click()
Print Prime(Val(Text1.Text))
End Sub
Function Prime(N As Long) As Boolean
Dim i As Long, SqrN
If N Mod 2 = 0 Then
Prime = False
Exit Function
End If
SqrN = Sqr(N)
For i = 3 To SqrN Step 2
If N Mod i = 0 Then Exit For
Next
PrimeA = (i > SqrN)
End Function
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝