回 帖 发 新 帖 刷新版面

主题:[讨论]急需解决

1.包含至少2个窗体。
   2.在启动窗体中出现你自己的个人信息(专业、班级、汉语姓名、国籍)。
   3.程序中必须包含以下所有的对象(每个对象都有具体功能):
     (1)命令按钮;
     (2)文本框;
     (3)标签对象;
     (4)图片对象;
     (5)框架对象;
     (6)单选框对象;
     (7)复选框对象;
     (8)横向滚动条;
     (9)纵向向滚动条;
   4.程序中必须包含2个以上的VB内部函数。

   2.一个大于等于6的偶数可以表示为两个素数之和。例如:  6=3+3    8=3+5     10= 3+7 
算法设计:设N为大于等于6的任一偶数,将其分解为N1和N2两个数,使用N1+N2=N,分别判断N1 和N2是否为素数,若都是,则为一组解。若N1不是素数,就不必再检查N2是否素数。  要求自定义一个函数(isPrime)实现判断一个数是否素数。

   1.程序开始运行时,“开始”按钮有效,“下一题”按钮无效。
   2.按“开始”按钮后,“开始”按钮为无效,并随机产生两个0-9的整数用于运算,输入答案后,按“下一题”按钮,判断结果是否正确并统计答案正确的个数,且产生下一题。
   3.运算到20道题后,“下一题”按钮失效,“开始”有效,并显示正确的个数。
  [color=FF00FF]谁知道以上的VB问题怎么编码吗?[/color]

回复列表 (共4个回复)

沙发

判断素数的函数代码如下:

Function begPrime(number As Long) As Boolean
Dim i As Long
For i = 2 To number - 1
  If number Mod i = 0 Then Exit Function
Next
begPrime = True
End Function

函数返回值为真就是素数

板凳

[quote]判断素数的函数代码如下:

Function begPrime(number As Long) As Boolean
Dim i As Long
For i = 2 To number - 1
  If number Mod i = 0 Then Exit Function
Next
begPrime = True
End Function

函数返回值为真就是素数[/quote]
这个代码好!收下了!

3 楼

For i = 2 To number - 1

可以改写成
For i = 2 To sqr(number )
循环次数可以大幅度减少。

4 楼

[quote]For i = 2 To number - 1

可以改写成
For i = 2 To sqr(number )
循环次数可以大幅度减少。[/quote]
这个也很好,收下了

我来回复

您尚未登录,请登录后再回复。点此登录或注册