1、【
简答题】
Option Base 1
Private Sub Command1_Click()
Dim arrN(30) As Integer
Dim Max As Integer
Randomize
For i = 1 To 30
'arrN(i) = Int(Rnd * ?)
Next i
'? = arrN(1)
For i = 2 To 30
'If ? Then
Max = arrN(i)
End If
Next i
Print Max
End Sub
[10分]
解析：
Option Base 1
Private Sub Command1_Click()
Dim arrN(30) As Integer
Dim Max As Integer
Randomize
For i = 1 To 30
arrN(i) = Int(Rnd * 1000)
Next i
Max = arrN(1)
For i = 2 To 30
If arrN(i) > Max Then
Max = arrN(i)
End If
Next i
Print Max
End Sub
2、【
简答题】
Dim a(50) As Integer
Private Sub C1_Click()
Dim k As Integer, ch As String
Open App.Path & "\in5.dat" For Input As #1
ch = ""
For k = 1 To 50
' Input #1, ?
ch = ch + Str(a(k)) + " "
Next k
Close #1
' Text1.Text = ?
End Sub
[10分]
解析：
Dim a(50) As Integer
Private Sub C1_Click()
Dim k As Integer, ch As String
Open App.Path & "\in5.dat" For Input As #1
ch = ""
For k = 1 To 50
Input #1, a%(k%)
ch = ch + Str(a(k)) + " "
Next k
Close #1
Text1.Text = ch$
End Sub
Private Sub C2_Click()
Dim k As Integer, i As Integer, j As Integer, ch As String
For i = 1 To 49
k = i
For j = i + 1 To 50
If a(k) > a(j) Then
k = j
End If
Next j
j = a(k)
a(k) = a(i)
a(i) = j
Next i
ch = ""
For k = 1 To 50
ch = ch + Str(a(k)) + " "
Next k
Text2.Text = ch
End Sub
Private Sub C3_Click()
Open App.Path & "\out5.dat" For Output As #1
Print #1, Text2.Text
Close #1
End Sub
3、【
简答题】
[10分]
解析：
Private Sub Command1_Click()
Combo1.AddItem Text1.Text '或 Combo1.AddItem Text1
End Sub
Private Sub Command2_Click()
Print Combo1.ListCount
End Sub
4、【
简答题】
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
Dim mat%(M, N)
' Dim ?
' Open App.Path & "\" & "datain.txt" ? As #1
For i = 1 To N
For j = 1 To M
' ?
Next j
Next i
Close #1
Print
Print "初始矩阵为："
Print
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); mat(i, j);
Next j
Print
Next i
Print
Print "左上 - 右下对角线上的数为："
For i = 1 To N
For j = 1 To M
' If ? Then Print Tab(5 * j); Mat(i, j) ;
Next j
Next i
End Sub
[10分]
解析：
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
Dim mat%(M, N)
Dim i, j
Open App.Path & "\" & "datain.txt" For Input As #1
For i = 1 To N
For j = 1 To M
Input #1, mat%(i, j)
Next j
Next i
Close #1
Print
Print "初始矩阵为："
Print
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); mat(i, j);
Next j
Print
Next i
Print
Print "左上 - 右下对角线上的数为："
For i = 1 To N
For j = 1 To M
If 0 = i - j Then Print Tab(5 * j); mat(i, j);
Next j
Next i
End Sub
5、【
简答题】
[10分]
解析：
Private Sub Cmd1_Click()
Cmd1.Left = 0
Cmd1.Top = 0
End Sub
Private Sub Cmd2_Click()
Me.Cmd2.Width = Form1.Cmd2.Width + Cmd2.Width
Form1.Cmd2.Height = Me.Cmd2.Height + Form1.Cmd2.Height
End Sub
6、【
简答题】
Private Sub Command1_Click()
Dim n As Integer, k As Integer, m As Integer
Dim c As String, a As String
For k = 0 To 2
If Op1(k).Value Then
' n = Val(Op1(k). ? )
End If
Next k
m = Len(Text1.Text)
a = ""
' For k = 1 To ?
' c = Mid$(Text1.Text, ? , 1)
c = String(1, Asc(c) + n)
If c > "z" Or c > "Z" And c < "a" Then
c = String(1, Asc(c) - 26)
End If
' ? = a + c
Next k
Text2.Text = a
End Sub
[10分]
解析：
Private Sub Command1_Click()
Dim n As Integer, k As Integer, m As Integer
Dim c As String, a As String
For k = 0 To 2
If Op1(k).Value Then
n = Val(Op1(k).Caption)
End If
Next k
m = Len(Text1.Text)
a = ""
For k = 1 To m
c = Mid$(Text1.Text, k, 1)
c = String(1, Asc(c) + n)
If c > "z" Or c > "Z" And c < "a" Then
c = String(1, Asc(c) - 26)
End If
a = a + c
Next k
Text2.Text = a
End Sub
7、【
简答题】
[10分]
解析：
Private Sub Command1_Click()
Command1.Left = Command1.Left - 100
Command1.Top = Command1.Top - 30
'或 Command1.Left = -100 + Command1.Left
' Command1.Move Command1.Left - 100
' Command1.Move -100 + Command1.Left
End Sub
8、【
简答题】
Sub SaveData()
Open App.Path & "\" & "outtxt.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Function Fun()
' 需要考生编写的代码
[10分]
解析：
For i = 1 To 1000
If i Mod 5 = 0 Or i Mod 7 = 0 Then
Y = Y + 1
End If
Next i
Fun = Y
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00