1、【
简答题】
[10分]
解析：
按要求解答即可
2、【
简答题】
Private Sub Command1_Click()
'Call ShowName(?)
End Sub
Private Sub Label1_Click()
'Call ShowName(?)
End Sub
'Private Sub ShowName(c As ?)
If TypeOf c Is CommandButton Then
Label2.Caption = "单击" & Command1.Caption
End If
If TypeOf c Is Label Then
' ? = "单击" & Label1.Caption
End If
End Sub
[10分]
解析：
Call ShowName(Command1)
Call ShowName(Label1)
Private Sub ShowName(c As Control)
Label2.Caption = "单击" & Label1.Caption
3、【
简答题】
Dim a(10) As Integer
Public Sub Save()
Open App.Path & "\out5.txt" For Output As #1
Print #1, Label4.Caption
Close #1
End Sub
Private Sub Command1_Click()
Open App.Path & "\Data5.txt" For Input As #1
' Do While Not ?
For i = 1 To 10
Input #1, a(i)
' s = s & ?
Next i
Loop
Close #1
Label2.Caption = s
End Sub
Private Sub Command2_Click()
'============以下考生编写程序开始=================
??(1)??
'============考生编写程序结束=====================
For i = 1 To 10
s = s & Str(a(i))
Next i
Label4.Caption = s
Save
End Sub
[10分]
解析：
Do While Not EOF(1)
s = s & Str(a(i))
(1)
For i = 10 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
4、【
简答题】
Dim a(5, 5) As Integer
Dim b(5) As Integer
Dim c(5) As Integer
Private Sub Command1_Click()
N = 5
For i = 1 To N
'===============考生编写程序开始======================
???
'===============考生编写程序结束======================
Next i
Save
End Sub
Private Sub Form_Load()
read
End Sub
Public Sub read()
Open App.Path & "\Data5.txt" For Input As #1
Do While Not EOF(1)
For i = 1 To 5
For j = 1 To 5
Input #1, a(i, j)
Next j
Next i
Loop
Close #1
End Sub
Public Sub Save()
Open App.Path & "\out5.txt" For Output As #1
For i = 1 To 5
Print #1, b(i), c(i)
Next i
Close #1
End Sub
[10分]
解析：
b(i) = a(i, 1)
For j = 2 To 5
If b(i) < a(i, j) Then
b(i) = a(i, j)
c(i) = j
End If
Next j
5、【
简答题】
[10分]
解析：
按要求解答即可
6、【
简答题】
Private Sub Command1_Click()
Dim n As Integer
Dim b As Integer
Dim a(3) As Integer
s = RTrim(Text1.Text)
'n = ? (Text1.Text)
For i = 1 To n
'b = ? (Mid(s, i, 1))
'Select Case ?
Case 48 To 57
a(0) = a(0) + 1
Case 65 To 90
a(1) = a(1) + 1
Case 97 To 122
a(2) = a(2) + 1
End Select
Next
'For i = 0 To ?
'? = a(i)
Next
End Sub
[10分]
解析：
n = Len(Text1.Text)
b = Asc(Mid(s, i, 1))
Select Case b
For i = 0 To 2
x(i).Caption = a(i)
7、【
简答题】
Private Sub remove(La As ListBox, Lb As ListBox)
' For i = 0 To ? – 1
' Lb.AddItem ?.List(i)
Next
' ?.Clear
End Sub
Private Sub Command1_Click()
Call remove(List1, List2)
End Sub
Private Sub Command2_Click()
Call remove(List2, List1)
End Sub
[10分]
解析：
For i = 0 To La.ListCount - 1
Lb.AddItem La.List(i)
La.Clear
8、【
简答题】
Private Sub Form_Load()
Picture1(0).Left = 0
Picture1(0).Top = 100
For k = 1 To 7
' Picture1(k).Visible =?
Next
End Sub
Private Sub Command1_Click()
' Timer1.Enabled =?
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static i As Integer
Picture1(i).Visible = False
i = i + 1
' If i = ? Then
' i =?
End If
Picture1(i).Visible = True
End Sub
[10分]
解析：
Picture1(k).Visible = False
Timer1.Enabled = True
If i = 8 Then
i = 0
9、【
简答题】
[10分]
解析：
Private Sub Form_Click()
x = InputBox("请输入", "等级考试", "Basic")
End Sub
10、【
简答题】
[10分]
解析：
Private Sub Form_Load()
Form1.Caption = "标签"
End Sub
Private Sub Form_Click()
Label1.Visible = True
End Sub
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00