显示出所有这样的数及基个数。请您书写相应代码？

3道简单的VB编程题目，谢谢帮忙

LZ的三个简单问题代码如下，未详细设计，仅供参考： 具体是在工程的form1窗体中添加三个命令按钮，其它属性默认即可，将下面的代码拷贝过去并运行即可。 Private Sub Command1_Click(Index As Integer) '输出1-1/2+1/3-1/4+。 。。 +1/99-1/100 的和 Dim i As Double Dim sum As Double sum = 0 For i = 1 To 100 If i Mod 2 Then sum = sum + 1 / i Else sum = sum - 1 / i End If Next MsgBox sum...全部

  LZ的三个简单问题代码如下，未详细设计，仅供参考： 具体是在工程的form1窗体中添加三个命令按钮，其它属性默认即可，将下面的代码拷贝过去并运行即可。 Private Sub Command1_Click(Index As Integer) '输出1-1/2+1/3-1/4+。
  。。
  +1/99-1/100 的和 Dim i As Double Dim sum As Double sum = 0 For i = 1 To 100 If i Mod 2 Then sum = sum + 1 / i Else sum = sum - 1 / i End If Next MsgBox sum End Sub Private Sub Command2_Click() Dim val As String val = InputBox("请输入一个整数:", "判断是否素数") If val = "" Then Exit Sub MsgBox analyse(CLng(val)) End Sub Function analyse(val As Long) Dim i As Long For i = 2 To val - 1 If val Mod i = 0 Then analyse = 0 Exit Function End If Next analyse = 1 End Function Private Sub Command3_Click() Dim str As String, temp As String Dim p As Long, i As Long, j As Long, k As Long i = 0 j = 0 k = 0 str = InputBox("请输入一个字符串:", "统计分析串") If str = "" Then Exit Sub For i = 1 To Len(str) temp = Mid(str, i, 1) If IsNumeric(temp) Then i = i + 1 ElseIf (Asc(temp) >= Asc("A") And Asc(temp) = Asc("a") And Asc(temp) <= Asc("z")) Then j = j + 1 Else k = k + 1 End If Next MsgBox "数字：" & CStr(i) & " 字母：" & CStr(j) & "其它：" & CStr(k) '输出统计结果 MsgBox StrReverse(str) '反序输出 End Sub 。收起