1、【
简答题】
Dim a(5, 40)
Private Sub Command1_Click()
Dim ch As String
ch$ = ""
Open App.Path & "\in5.dat" For Input As #1
For i = 1 To 5
For j = 1 To 40
Input #1, a(i, j)
ch = ch & a(i, j) & " "
Next j
ch = ch & Chr(13) & Chr(10)
Next i
Close #1
Text1.Text = ch
End Sub
Private Sub Command2_Click()
'===================考生编写的程序==============
???
'================================================
End Sub
Private Sub Command3_Click()
Open App.Path & "\out5.dat" For Output As #1
For k = 0 To 4
Print #1, Label1(k)
Next k
For k = 0 To 4
Print #1, Text2(k)
Next k
Close #1
End Sub
[10分]
解析：
s = 0
For i = 1 To 5
For j = 1 To 40
If a(i, j) < 50 Then
s = s + a(i, j)
n = n + 1
End If
Next j
Label1(i - 1) = s
Text2(i - 1) = Format(s / n, ".##")
Next i
2、【
简答题】
Private Sub Command1_Click()
' Timer1.Enabled = ?
Command1.Caption = IIf(Command1.Caption = "开始", "停止", "开始")
End Sub
Private Sub Form_Load()
' ?
End Sub
Private Sub Timer1_Timer()
Static n
Dim a As Integer
n = n + 1
a = n Mod 3
' Select Case ?
Case 1
Label1.Caption = "欢迎您参加等级考试！"
Case 2
Label1.Caption = "请您认真复习！"
' Case ?
Label1.Caption = "祝您获得好成绩！"
End Select
End Sub
[10分]
解析：
Timer1.Enabled = Not Timer1.Enabled
Timer1.Interval = 2000
Select Case a
Case 0
3、【
简答题】
[10分]
解析：
按要求解答即可
4、【
简答题】
[10分]
解析：
按要求解答即可
5、【
简答题】
Private Sub Command1_Click()
Dim flag As Boolean
flag = False
Picture1.Print Label1.Caption, Text1.Text
Picture1.Print Frame1.Caption; "：",
For k = 0 To 3
If Option1(k).Value = True Then
Picture1.Print Option1(k).Caption
End If
Next k
For k = 0 To 2
' If Check1(k).Value = ? Then
If Not flag Then
Picture1.Print Frame2.Caption; "：",
flag = True
End If
Picture1.Print Check1(k).Caption; " ";
End If
Next k
Picture1.Print
End Sub
Private Sub Command2_Click()
' ? = ""
For k = 0 To 3
Option1(k).Value = False
Next k
For k = 0 To 2
Check1(k).Value = 0
Next k
Picture1.Cls
Command1.Enabled = False
End Sub
Private Sub Option1_Click(Index As Integer)
' ?
End Sub
[10分]
解析：
If Check1(k).Value = 1 Then
Text1.Text = ""
Command1.Enabled = True
6、【
简答题】
Private Sub Command1_Click()
Dim a%, b%, c%, n%
n = Val(Text1.Text)
' a = Val( ? )
b = Val(List1.List(List1.ListCount - 1))
c = a + b
Do While c < n
' a = ?
b = c
' List1.AddItem ?
c = a + b
Loop
End Sub
[10分]
解析：
a = Val(List1.List(List1.ListCount - 2))
a = b
List1.AddItem b
7、【
简答题】
Private Sub Command1_Click()
n = Val(Text1.Text)
' ?
For k = 1 To n
List1.AddItem Int(Rnd * 100)
Next k
End Sub
Private Sub Command2_Click()
' For k = List1.ListCount - 1 To ? Step -1
If Val(List1.List(k)) Mod 2 = 1 Then
' s = s + Val( ? )
' List1.RemoveItem ?
List1.RemoveItem k
End If
Next k
' ? = s
End Sub
[10分]
解析：
List1.Clear
For k = List1.ListCount - 1 To 0 Step -1
s = s + Val(List1.List(k))
Text2.Text = s
8、【
简答题】
[10分]
解析：
按要求解答即可
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00