VB编程语言~~编程序！！（3个问题）

来源：百度知道 编辑：UC知道 时间：2024/06/18 07:18:27
1、计算函数F=1!+2!+3!+……+(N+1)!+N! 的值？
2、在窗体中，放置两个文本框，TEXT1、TEXT2，TEXT1中要求用户输入一个字符串，单击命令按钮后，将TEXT1中的数字字符显示到TEXT2中，如（"1ab23" 显示 123）？
3、找出100以内的素数。每个素数用逗号隔开？

三个问题才给10分，也太少了，呵呵……不过还是帮你解决一下。
1、代码如下：
Private Sub Form_Load()
Dim I As Integer
Dim S, T As Single
Dim N As Integer
Show
Cls
S = 0: T = 1
N = Val(InputBox("请输入N的值"))
If N >= 35 Then
MsgBox "输入的N值过大", vbOKOnly, "提示"
Exit Sub
Else
For I = 1 To N
T = T * I
S = S + T
Next I
End If
Print "N=" & N & vbCrLf & "F=" & S
End Sub
2、代码如下：
Private Sub Command1_Click()
Dim L As Integer
Dim I As Integer
Dim C As String
L = Len(Text1.Text)
For I = 1 To L
C = Mid(Text1.Text, I, 1)
If Asc(C) >= 48 And Asc(C) <= 57 Then
Text2.Text = Text2.Text & C
End If
Next I
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
3、代码如下：
Private Sub Form_Load()
Dim I,