1、【
简答题】
[10分]
解析：
按要求解答即可
2、【
简答题】
'提供给考生的程序
Private Function isprime(a As Integer) As Boolean
Dim flag As Boolean
flag = True
b% = 2
Do While b% <= Int(a / 2) And flag
If Int(a / b%) = a / b% Then
flag = False
Else
b% = b% + 1
End If
Loop
isprime = flag
End Function
[10分]
解析：
'要求考生编写的程序
Private Sub C1_Click()
a% = 15000
Do
a% = a% + 1
Loop Until isprime(a%)
Text1.Text = a%
End Sub
Private Sub C2_Click()
Open App.Path & "\out5.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
3、【
简答题】
[10分]
解析：
Private Sub Command1_Click()
CD1.ShowOpen
End Sub
4、【
简答题】
Private Function IsPrime(ByVal x As Integer) As Boolean
Dim i As Integer
For i = 2 To Sqr(x)
If x Mod i = 0 Then
IsPrime = False
Exit Function
End If
Next
IsPrime = True
End Function
Private Sub Command1_Click()
'考生编写程序开始
'======================================
？？？？
'=========================================
'考生编写程序结束
Open App.Path & "\out5.dat" For Output As #1
Print #1, Text1.Text, Label1(0).Caption, Label1(1).Caption, Label1(2).Caption
Close #1
End Sub
[10分]
解析：
Dim i As Integer
Dim n As Integer
Dim counter As Integer
Dim arr(3) As Integer
n = Val(Text1.Text)
counter = 0
For i = n - 2 To 3 Step -2
If IsPrime(i) Then
arr(counter) = i
counter = counter + 1
If counter = 3 Then
Exit For
End If
End If
Next
For i = 0 To 2
Label1(i).Caption = arr(i)
Next
5、【
简答题】
[10分]
解析：
Private Sub C1_Click()
End
End Sub
6、【
简答题】
'提供给考生
'Private Sub C1_Click()
'' For i = ? To ?
'' If Op1(i).? = True Then
'' Print "我的出生地是" + Op1(i).?
' End If
' Next
'End Sub
[10分]
解析：
Private Sub C1_Click()
For i = 0 To 2
If Op1(i).Value = True Then
Print "我的出生地是" + Op1(i).Caption
End If
Next
End Sub
7、【
简答题】
Private Sub C1_Click()
Dim k As Integer
For k = 0 To 2
' If Op1(k).? = True Then
' Call draw(?)
End If
Next k
End Sub
Sub draw(a As Integer)
P1.Print "选择了" & Op1(a).Caption
End Sub
[10分]
解析：
Private Sub C1_Click()
Dim k As Integer
For k = 0 To 2
If Op1(k).Value = True Then
Call draw(k)
End If
Next k
End Sub
Sub draw(a As Integer)
P1.Print "选择了" & Op1(a).Caption
End Sub
8、【
简答题】
[10分]
解析：
Private Sub C1_Click()
T1.Enabled = True
End Sub
Private Sub T1_Timer()
Text1.Text = Text1.Text + 1
End Sub
9、【
简答题】
'提供给考生的程序
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out4.txt" For Output As #1
Print #1, Cb1.Text, Cb2.Text, CInt(L1.Font.Size), L1.Font
Close #1
End Sub
[10分]
解析：
'要求考生编写的程序
Private Sub Cb1_Click()
L1.Font.Size = Cb1.Text
End Sub
Private Sub Cb2_Click()
L1.Font = Cb2.Text
End Sub
10、【
简答题】
[10分]
解析：
Private Sub Text1_Change()
P1.Print Text1.Text 'Text1.Text前可以加Me或Form1
'或 Text1.Parent.P1.Print Text1.Text Text1.Text前可以加Me或Form1
'或 Me.P1.Print Text1.Text Text1.Text前可以加Me或Form1
'或 Form1.P1.Print Text1.Text Text1.Text前可以加Me或Form1
End Sub
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00