- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 过程和自定义函数
- 枚举算法及程序实现
- + 解析算法及程序实现
- 递归算法及程序实现
- 排序算法及程序实现
- 查找算法及程序实现
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
如1图所示程序的功能是把输入的自然数分解为三个互不相同的质数(三个质数的和等于输入的自然数),并把分解产生的质数按升序顺序显示在左边的列表框中,其中“开始处理”按钮的名称是“Command1”。例如输入20,单击“开始处理”按钮后,则在列表框中会显示下列数据:
2 5 13
2 7 11

(1)程序中函数f(x)的功能是判断x是否为质数,如果是质数则返回值为True,否则返回False。该函数的算法流程图如2图所示,根据流程图,完善程序中Function f(x)部分。

(2)主程序流程图如下图所示。其中n为输入的自然数,a1、a2、a3为分解出的三个正整数,t为a1、a2、a3是否同时为素数且三数相加是否为n的逻辑值。

则主程序流程图中①处应填写的内容是:
(3)在主程序Private Sub Command1_Click()中,主要采用的算法是:__________。
Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer
Dim t As Boolean
Function f(x) As Boolean
End Function
Private Sub Command1_Click()
n = Val(Text1.Text)
For a1 =" 2" To n
For a2 =" a1+1" To n
For a3 =" a2+1" To n
t="(a1" + a2 + a3 =" n)" And f(a1) And f(a2) And f(a3)
If t Then
List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))
End If
Next a3
Next a2
Next a1
End Sub
2 5 13
2 7 11

(1)程序中函数f(x)的功能是判断x是否为质数,如果是质数则返回值为True,否则返回False。该函数的算法流程图如2图所示,根据流程图,完善程序中Function f(x)部分。

(2)主程序流程图如下图所示。其中n为输入的自然数,a1、a2、a3为分解出的三个正整数,t为a1、a2、a3是否同时为素数且三数相加是否为n的逻辑值。

则主程序流程图中①处应填写的内容是:
(3)在主程序Private Sub Command1_Click()中,主要采用的算法是:__________。
Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer
Dim t As Boolean
Function f(x) As Boolean
End Function
Private Sub Command1_Click()
n = Val(Text1.Text)
For a1 =" 2" To n
For a2 =" a1+1" To n
For a3 =" a2+1" To n
t="(a1" + a2 + a3 =" n)" And f(a1) And f(a2) And f(a3)
If t Then
List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))
End If
Next a3
Next a2
Next a1
End Sub
以下程序代码中的赋值语句S=S+1/i共执行了( )次。
S=0
For i ="5" to 15
S = S+l/i
i = i+1
next
Print S
S=0
For i ="5" to 15
S = S+l/i
i = i+1
next
Print S
A.5 | B.6 | C.10 | D.11 |
数组a中的数据存放情况如下表,以下关系表达式成立的是( )。
a[1] | a[2] | a[3] | a[4] | a[5] | a[6] | a[7] | a[8] |
1 | 3 | 4 | 12 | 8 | 6 | 5 | 7 |
A.a[a[3]]= 4 |
B.a[a[8]]= 8 |
C.a[6]>a[5]-a[a[1]+1] |
D.a[a[2]+a[1]]<>a[4] |