- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
小王编写了一个统计多选题分数的VB程序。得分规则是:多选题共有6个候选项(A、B、C、D、E、F),全部答对得2分,部分答对得1分,未作答或有错误答案0分。设计一个能够评分的程序,要求如下:在文本框Text1中输入标准答案,在文本框Text2中输入学生答案(输入时必须按字母从小到大顺序输入)。点击评分按钮Command1后,将得分显示在标签Label4中。程序界面如题图所示:
(1)要使程序运行后,窗体Form1的标题栏中显示“评分”,正确的做法是______(单选,填字母)
Form.Name="评分"
(2)实现上述功能的程序如下,请在划线处填入合适的代码:
Private Sub Command1_Click()
Dim cans As String ,ans As String ,ch As String ,c As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text
ans = ①____________
c = 0
For i = 1 To 6
f(64+i)=False
Next i
For i = 1 To Len(cans)
ch = Mid(cans, i, 1)
f(Asc(ch) - 64) = True
Next i
For i = 1 To ②___________
ch = Mid(ans, i, 1)
If f(Asc(ch) - 64) = False Then
c = 0: Exit For
Else
c = c + 1
End If
Next i
If c = 0 Then
Label4.Caption = "0分"
ElseIf c = Len(cans) Then
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
(3)若去除加框处代码,且将文本框Text2的内容改为“BCD”,标签Label4显示的内容是________。
(1)要使程序运行后,窗体Form1的标题栏中显示“评分”,正确的做法是______(单选,填字母)
A.将窗体的Text属性改为“评分” |
B.在Form_Load()事件中输入代码 Form1.Caption="评分" |
C.在Form1_Load()事件中输入代码 |
(2)实现上述功能的程序如下,请在划线处填入合适的代码:
Private Sub Command1_Click()
Dim cans As String ,ans As String ,ch As String ,c As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text
ans = ①____________
c = 0
For i = 1 To 6
f(64+i)=False
Next i
For i = 1 To Len(cans)
ch = Mid(cans, i, 1)
f(Asc(ch) - 64) = True
Next i
For i = 1 To ②___________
ch = Mid(ans, i, 1)
If f(Asc(ch) - 64) = False Then
c = 0: Exit For
Else
c = c + 1
End If
Next i
If c = 0 Then
Label4.Caption = "0分"
ElseIf c = Len(cans) Then
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
(3)若去除加框处代码,且将文本框Text2的内容改为“BCD”,标签Label4显示的内容是________。
用选择排序每次选出最大值对数据7,6,3,9,2进行降序排序,两轮后的结果是( )。
A.2,3,6,9,7 | B.9,6,3,7,2 | C.9,7,3,6,2 | D.9,7,6,3,2 |
现有36个人搬36块砖,男的搬4块,女的搬3块, 2个小孩抬一块。要求一次正好全搬完,问男、女、小孩各需多少人?如果用编程的方法求解,以下算法最合适的是( )。
A.解析法 | B.枚举法 | C.冒泡排序法 | D.选择排序法 |
关于对分查找和顺序查找算法的叙述,正确的是( )。
A.顺序查找需要排序,效率低;对分查找不需要排序,效率高。 |
B.顺序查找不需要排序,效率低;对分查找需要排序,效率高。 |
C.顺序查找不需要排序,效率高;对分查找需要排序,效率低。 |
D.顺序查找需要排序,效率高;对分查找不需要排序,效率低。 |
若输入28,运行结果是 。
Dim x as long
x=inputbox(“输入x的值”)
if x mod 3=0 then
x=x/3
else
x=x mod 3
end if
print x
Dim x as long
x=inputbox(“输入x的值”)
if x mod 3=0 then
x=x/3
else
x=x mod 3
end if
print x
A.2 | B.2.25 | C.9 | D.以上答案都错 |
代数式
在VB表达式中表示为( )。

A.(a+b)^2/ab | B.(a+b)^2/(ab) | C.(a+b)^2/(a*b) | D.(a+b)![]() |
以下流程图的运行结果为______


A.2 4 6 8 10 12 | B.2 4 8 16 32 | C.2 4 8 16 | D.2 4 8 16 32 64 |