3.综合应用

　　解析：素数的判断准则就是看是否该数除了1和其本身外别无其他约数即可。

　　文本框用Text属性来显示计算结果;命令按钮的标题由Caption属性来设置，单击命令按钮触发Click事件;为了检测单选按钮是否选中，可以通过检测Value属性来实现，当Value为True时，表示单选按钮被选中，否则未被选中。

　　解题步骤：

　　第一步：建立界面并设置控件属性。

　　题目提供了程序用到的控件及其属性，见表1-4。

　　表 1-4

　　控 件 属 性 设 置 值

　　单选按钮 Name Caption Op1 100-200之间素数

　　单选按钮 Name Caption Op2 200-400之间素数

　　文本框 Name Text1

　　命令按钮 Name Caption Cmd1 计算

　　命令按钮 Name Caption Cmd2 存盘

　　第二步：编写程序代码。

　　程序提供的代码：

　　标准模块代码

Option Explicit
Sub putdata(t_FileName As String, T_Str As Variant)
    Dim sFile As String
    sFile = "\" & t_FileName
    Open App.Path & sFile For Output As #1
    Print #1, T_Str
    Close #1
End Sub
Function isprime(t_I As Integer) As Boolean
   Dim J As Integer
   isprime = False
   For J = 2 To t_I / 2
      If t_I Mod J = 0 Then Exit For
   Next J
   If J > t_I / 2 Then isprime = True
End Function
窗体代码
Private Sub Cmd1_Click()
   Dim i As Integer
   Dim temp As Long
   'temp = ?
   If Opt2.Value Then
      For i = 200 To 400
         ' If isprime(?) Then
             temp = temp + i
          End If
      Next
   Else
      For i = 100 To 200
         If isprime(i) Then
            temp = temp + i
         End If
      Next
   End If
    ' Text1.? = temp
End Sub
Private Sub Cmd2_Click()
  putdata "\out.txt", Text1.Text
End Sub
参考代码：
Private Sub Cmd1_Click()
   Dim i As Integer
   Dim temp As Long
   temp = 0
   If Opt2.Value Then
      For i = 200 To 400
          If isprime(i) Then
             temp = temp + i
          End If
      Next
   Else
      For i = 100 To 200
         If isprime(i) Then
            temp = temp + i
         End If
      Next
   End If
   Text1.Text = temp
End Sub
Private Sub Cmd2_Click()
   putdata "\out.txt", Text1.Text
End Sub

　　第三步：调试并运行程序。

　　第四步：按题目要求存盘。

上一页  [1] [2] [3] [4]