算法与程序设计 知识点题库
Dim s As Double, x As Double, n As Integer, i As Integer
s=0:n=0
For i= 1 to 4
n=n+1
x=(n-1)/(n+1)
s=s+x
Next i
该程序段计算的数学表达式是（ ）
右框内划线处的内容可以是( )
编写一个验证哥德巴赫猜想的VB程序:程序运行时，在文本框Text1中输入一个大于或等于4的偶数，单击“验证”按钮Command1后，如果哥德巴赫猜想验证成功，则在文本框Text2中显示“Yes”，并在列表框List1中显示用两个素数表示该偶数的等式，否则显示“No”。程序运行效果如图所示。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Function judge(x As Integer)As Boolean
‘函数judge的功能是判断整数x是不是素数，若是素数则返回True，否则返回False
Dim j As Integer
judge=True
j=2
Do While j<=x-1 And judge=True
If x Mod j=0 Then
judge=False
Else
j=j+1
End If
Loop
End Function
Private Sub Command1_Click()
Dim n As Integer, p As Integer, q As Integer, flag As Boolean
n=Val(Text1.Text)
p=1
flag=False
Do While 
And p<n ‘
p=p+1
‘
If judge(p)And judge(q)Then
Text2.Text=“Yes”
flag=True
List1.AddItem Str(n)+“=”+Str(p)+“+”+Str(q)
End If
Loop
If flag=False Then
Text2.Text=“No”
End Sub
|
d[1] |
d[2] |
d[3] |
d[4] |
d[5] |
d[6] |
d[7] |
|
65 |
73 |
75 |
82 |
85 |
91 |
95 |
①按分数从高到低排序。若分数相同，则按学号进行升序排序。
②以班级为单位，排出从1号开始的机房座位表。章老师编写了一个位置编排功能的VB程序，在文本框Text1中输入班级名称，单击“读数据库”按钮Command1后，从数据库读取数据并显示在列表框List1中；单击“编排”按钮Command2，在列表框List2中输出学号、姓名、成绩和位置信息。运行界面如下图所示。
实现以上功能的 VB 程序如下，请回答下列问题：
-
（1） 分析程序，可知数据库的文件名为。
-
（2） 请在划线处填入合适的代码。
Dim n As Integer
Dim xh(1 To 40) As Integer, xm(1 To 40) As String, cj(1 To 40) As Integer
Private Sub Command1_Click()
'本过程在文本框 Text1 中输入班级名称，从数据库中读取指定班级的学号、姓名和成绩的'数据分别存储在数组 xh,xm 和 cj 中
Dim conn As New ADODB.Connection
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="
+ App.Path + "\js.accdb"
conn.Open
Dim rs As New ADODB.Recordset rs.ActiveConnection = conn
rs.Open "select * from 技术"
'本过程的其他语句略
End Sub
Private Sub Command2_Click()
Dim wz(1 To 40) As Integer
Dim i As Integer, j As Integer
List2.AddItem "学号" & " " & "姓名" & " " & "成绩" & " " & "位置"
For i = 1 To n
①
Next i
For i = 1 To n
For j = 1 To n
If ② Then wz(i) = wz(i) + 1
End If
Next j
List2.AddItem adj(Str(xh(i))) + adj(xm(i)) + adj(Str(cj(i))) + adj(Str(wz(i)))
Next i
End Sub
Function adj(c As String) As String '固定输出5个字符长度
Dim i As Integer
③
For i = 1 To 5 - Len(c)
adj = adj + " "
Next i
End Function
① ② ③
-
（1） 本题适用的算法是和此算法的基本结构是（ ）。A . 查找算法，循环中嵌套分支 B . 枚举算法，循环中嵌套分支 C . 查找算法，循环中嵌套循环 D . 枚举算法，循环中嵌套循环
-
（2） 判断1000-9999范围内的整数x是同构数的条件是（ ）。A . x=x mod 1000 B . x=x^2 mod 1000 C . x=x mod 10000 D . x=x^2 mod 10000
-
（3） 编写程序，实现算法功能。
For i=1To 9
For j=i To 9
a=i*j
List1.AddItem i&"*"&j&"="&a
Next j
Next i
a=23
b=int(a/10)
a= a-b * 10
print(a,b)
