1、【
简答题】
Option Base 1
Dim x As String, max_n As Integer
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
s = Input(LOF(1), #1)
Close #1
Text1.Text = s
End Sub
Private Sub Command2_Click()
Dim a(26) As Integer
' sl = ?
st = Text1.SelText
Text2 = ""
If sl = 0 Then
MsgBox "请先选择文本"
Else
For i = 1 To sl
c = Mid(st, i, 1)
If c <> " " Then
n = Asc(UCase(c)) - Asc("A") + 1
' a(n) = ?
End If
Next i
max_n = a(1): n = 1
' For j = ? To 26
' If ? Then
max_n = a(j)
End If
Next j
For i = 1 To 26
' If ? Then
Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1)
End If
Next i
End If
End Sub
[10分]
解析：
Option Base 1
Dim x As String, max_n As Integer
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
s = Input(LOF(1), #1)
Close #1
Text1.Text = s
End Sub
Private Sub Command2_Click()
Dim a(26) As Integer
sl = Text1.SelLength
st = Text1.SelText
Text2 = ""
If sl = 0 Then
MsgBox "请先选择文本"
Else
For i = 1 To sl
c = Mid(st, i, 1)
If c <> " " Then
n = Asc(UCase(c)) - Asc("A") + 1
a(n) = a(n) + 1
End If
Next i
max_n = a(1): n = 1
For j = 2 To 26
If a(j) > max_n Then
max_n = a(j)
End If
Next j
For i = 1 To 26
If a(i) = max_n Then
Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1)
End If
Next i
End If
End Sub
2、【
简答题】
[10分]
解析：
按要求解答即可
3、【
简答题】
[10分]
解析：
按要求解答即可
4、【
简答题】
Option Base 1
Dim n%, tag_in%
Dim stud(1 To 10) As StudType
Private Sub Command1_Click()
If n < 10 Then
tag_in = 0
n = n + 1
Else
tag_in = 1
MsgBox "输入的学生人数已超过数组声明的个数！"
End If
If tag_in = 0 Then
If Text1 = "" Then
MsgBox "学号不能为空，请重输！"
' n =?
Else
' ? = Text1
stud(n).Name = Text2
stud(n).Average = Val(Text3)
End If
End If
Text1 = "": Text2 = "": Text3 = ""
End Sub
Private Sub Command2_Click()
Dim t As StudType
Picture1.Cls
For j = 1 To n - 1
' For k = ? To n
' If stud(k).Average > stud(j).? Then
t = stud(k)
' stud(k) = ?
stud(j) = t
End If
Next k
Next j
For j = 1 To n
Picture1.Print stud(j).Num; stud(j).Name; stud(j).Average
Next j
End Sub
[10分]
解析：
Option Base 1
Dim n%, tag_in%
Dim stud(1 To 10) As StudType
Private Sub Command1_Click()
If n < 10 Then
tag_in = 0
n = n + 1
Else
tag_in = 1
MsgBox "输入的学生人数已超过数组声明的个数！"
End If
If tag_in = 0 Then
If Text1 = "" Then
MsgBox "学号不能为空，请重输！"
n = n - 1
Else
stud(n).Num = Text1
stud(n).Name = Text2
stud(n).Average = Val(Text3)
End If
End If
Text1 = "": Text2 = "": Text3 = ""
End Sub
Private Sub Command2_Click()
Dim t As StudType
Picture1.Cls
For j = 1 To n - 1
For k = j + 1 To n
If stud(k).Average > stud(j).Average Then
t = stud(k)
stud(k) = stud(j)
stud(j) = t
End If
Next k
Next j
For j = 1 To n
Picture1.Print stud(j).Num; stud(j).Name; stud(j).Average
Next j
End Sub
5、【
简答题】
[10分]
解析：
Private Sub Command1_Click()
Text1.FontBold = True
End Sub
Private Sub Command2_Click()
Text1.FontItalic = True
End Sub
6、【
简答题】
Option Base 1
Dim x As String, max_n As Integer
Private Sub Command1_Click()
Open App.Path & "\in4.dat" For Input As #1
s = Input(LOF(1), #1)
Close #1
Text1.Text = s
End Sub
Private Sub Command2_Click()
Dim a(26) As Integer
sl = Text1.SelLength
st = Text1.SelText
Text2.Text = ""
' If ? Then
MsgBox "请先选择文本！"
Else
' For i = 1 To ?
c = Mid(st, i, 1)
If c <> " " Then
n = Asc(UCase(c)) - Asc("A") + 1
' a(n) = ?
End If
Next
' For i = 1 To ?
If a(i) = 0 Then
Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1)
End If
Next
End If
End Sub
[10分]
解析：
If sl = 0 Then
For i = 1 To sl
a(n) = a(n) + 1
For i = 1 To 26
7、【
简答题】
Dim a(100) As Integer, num As Integer, n As Integer
Private Sub Command1_Click()
Dim k As Integer
n = 60
Open App.Path & "\in4.dat" For Input As #1
For k = 1 To n
Input #1, a(k)
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
Close #1
End Sub
Private Sub Command2_Click()
num = InputBox("请输入一个数")
End Sub
Private Sub Command3_Click()
For i = 1 To n '“读数据”事件过程中已给出n的初值
' If num = ? Then Exit For
Next i
' If ? Then
MsgBox "该数不存在于数组中，不能执行删除操作！"
Else
n = n - 1
' For j = i To ?
' a(j) = ?
Next
End If
Text1 = ""
'以下程序段将执行删除操作后的数组a重新显示在Text1中
' For k = 1 To ?
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
End Sub
[10分]
解析：
If num = a(i) Then Exit For
If i > n Then
For j = i To n
a(j) = a(j + 1)
For k = 1 To n
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00