2. 计算机
  3. 在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即，号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为Form1的窗体上

在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即，号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为Form1的窗体上

admin2009-02-25  34
问题 在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即，号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
   本题描述如下：
   在名称为Form1的窗体上有两个单选按钮，名称分别为Opt1和Opt2，标题分别为“100-200之间素数”和“200-400之间素数”，一个文本框，名称为Text1，和两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为“计算”和“存盘”，如图1-5所示。程序运行后，如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示出来。如果单击“存盘”按钮，则把计算结果存入“out.txt”文件中，该文件必须放在考生文件夹中。(在考生文件夹中有标准模块mode.bas，其中的putdata过程可以把结果存入指定的文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回 True，否则返回False，考生可以将该模块文件添加到自己的工程中。)
   注意：必须把200-400之间的素数之和存入考生文件夹下的out.txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名为． sjt5.vbp。
选项
答案素数的判断准则就是看是否该数除了1和其本身外别无其他约数即可。 文本框用丁Text属性来显示计算结果：命令按钮的标题由Caption属性来设置，单击命令按钮触发Click事件；为了检测单选按钮是否选中，可以通过检测Value属性来实现，当Value为了me时，表示单选按钮被选中，否则未被选中。解题步骤： 第一步：建立界面并设置控件属性。题目提供了程序用到的控件及其属性，见表1-4。 [*] 第二步：编写程序代码。 程序提供的代码： 标准模块代码 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 #l 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 第三步：调试并运行程序。第四步：按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/Ah1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)