1、【
简答题】
[10分]
解析：
按要求解答即可
2、【
简答题】
[10分]
解析：
Private Sub Form_Click()
Pic.Print "VB等级考试"
End Sub
3、【
简答题】
Private Sub Command1_Click()
Randomize
For k = 0 To 9
Text1(k) = CInt(Rnd() * 899 + 100)
Next
End Sub
Private Sub Command2_Click()
'================================================
'算法：
'1）令i指向第1个数，j指向最后1个数，并先暂存最后一个数；
'2）检查第i个数是否为偶数，若不是，再检查下一个，直到第i个是
' 偶数，则把此偶数放到第j个位置，j向前移1个位置；
'3）检查第j个数是否为奇数，若不是，再检查前一个，直到第j个是
' 奇数，则把此奇数放到第i个位置，i向后移1个位置；
'4）重复2）、3），直到i=j
'5）把开始暂存的数放到i的位置
'=================================================
[10分]
解析：
Dim i%, j%, temp%, flag As Boolean
i = 0
j = 9
temp = Text1(j)
flag = True
While (i < j)
If flag Then
If Text1(i) Mod 2 = 0 Then
Text1(j) = Text1(i)
j = j - 1
flag = Not flag
Else
i = i + 1
End If
Else
If Text1(j) Mod 2 = 1 Then
Text1(i) = Text1(j)
i = i + 1
flag = Not flag
Else
j = j - 1
End If
End If
Wend
Text1(i) = temp
End Sub
4、【
简答题】
'给考生的程序
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out3.txt" For Output As #1
Print #1, Op1.Value, Op2.Value, Text1.Text
Print #1, Ch1.Value, Ch2.Value, Text2.Text
Close #1
End Sub
[10分]
解析：
'要求考生编写的程序
Private Sub C1_Click()
Dim a As String
a = "我是"
If Op1.Value Then
Text1.Text = a & Op1.Caption
Else
Text1.Text = a & Op2.Caption
End If
a = "我的爱好是"
If Ch1.Value = 1 Then
Text2.Text = a & Ch1.Caption
a = Text2.Text
End If
If Ch2.Value = 1 Then
Text2.Text = a & Ch2.Caption
End If
End Sub
5、【
简答题】
Option Base 1
Dim sum(6) As Integer
Private Sub Command1_Click()
Open App.Path & "\in5.txt" For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
End Sub
Private Sub Command2_Click()
=========
?????
=========
End Sub
Private Sub Command3_Click()
Open App.Path & "\out5.txt" For Output As #1
For i = 1 To 6
Print #1, sum(i)
Next i
Close #1
End Sub
[10分]
解析：
For i = 1 To 6
sum(i) = 0
Next i
If Len(Text1.Text) = 0 Then
MsgBox "请先使用“读数”功能！"
Else
For i = 1 To Len(Text1.Text)
c = LCase(Mid(Text1.Text, i, 1))
Select Case c
Case "i"
sum(1) = sum(1) + 1
Case "j"
sum(2) = sum(2) + 1
Case "k"
sum(3) = sum(3) + 1
Case "l"
sum(4) = sum(4) + 1
Case "m"
sum(5) = sum(5) + 1
Case "n"
sum(6) = sum(6) + 1
End Select
Next i
End If
6、【
简答题】
Private Function xn(m As Integer) As Long
Dim i As Integer
Dim tmp As Long
'tmp = ?
For i = 1 To m
'tmp =?
Next
'? = tmp
End Function
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim t As Integer
Dim z As Long, x As Single
n = Val(Text1.Text)
x = Val(Text2.Text)
z = 0
For i = 2 To n
t = x - i
'z = z + ?
Next
Label1.Caption = z
Call SaveResult
End Sub
Private Sub SaveResult()
Open App.Path & "\out3.dat" For Output As #1
Print #1, Label1.Caption
Close #1
End Sub
[10分]
解析：
'1
'tmp*i或 i*tmp
'xn
'xn(t)
'4037040
7、【
简答题】
Dim i As Integer
Private Sub Form_Load()
'i = ?
'Timer1.Interval = ?
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'Label1.Caption = ?
If i = 3 Then
i = 0
Else
i = i + 1
End If
End Sub
[10分]
解析：
i = 0
Timer1.Interval = 1000
Label1.Caption = List1.List(i)
8、【
简答题】
Dim arr
Private Sub Form_Load()
' ?= Array("第一项", "第二项", "第三项", "第四项")
Label1.Caption = arr(0)
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'? i As Integer
'Label1.Caption =?
If i = 3 Then
'i =?
Else
i = i + 1
End If
End Sub
[10分]
解析：
arr = Array("第一项", "第二项", "第三项", "第四项")
Static i As Integer
Label1.Caption = arr(i)
i = 0
9、【
简答题】
[10分]
解析：
Private Sub subMenu1_Click()
Command1.Visible = True
End Sub
Private Sub subMenu2_Click()
Command1.Visible = False
End Sub
10、【
简答题】
[10分]
解析：
Private Sub Shape1_Click()
Me.Sha1.Shape = 1
End Sub
Private Sub Shape2_Click()
Form1.Sha1 = 3
End Sub
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00