1、【
简答题】
[10分]
解析：
Private Sub Command1_Click()
If Option1.Item(0) = True Then
Text2.Text = Format(Sin(Val(Text1.Text) * 3.14159 / 180), "0.000")
End If
If Option1.Item(1) = True Then
Text2.Text = Format(Cos(Val(Text1.Text) * 3.14159 / 180), "0.000")
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
mysub
End Sub
2、【
简答题】
[10分]
解析：
按要求解答即可
3、【
简答题】
[10分]
解析：
Private Sub Command1_Click()
Dim f1, f2, f As Long
Dim a(40) As Long
f1 = 1
f2 = 1
a(1) = f1
a(2) = f2
For i = 3 To Val(Text1.Text)
f = f1 + f2
a(i) = f
f1 = f2
f2 = f
Next
Text2.Text = a(40)
End Sub
Private Sub Command2_Click()
Open App.Path & "\out5.txt" For Output As #1
Print #1, Text2.Text
Close #1
End Sub
4、【
简答题】
[10分]
解析：
Dim a(50) As Long
Private Sub Command1_Click()
Dim f As Long
a(1) = 1
a(2) = 1
For i = 3 To Val(Text1.Text)
f = a(i - 2) + a(i - 1) + 1
a(i) = f
Next
Text2.Text = f
End Sub
Private Sub Command2_Click()
Open App.Path & "\out5.txt" For Output As #1
Print #1, Text2.Text
Close #1
End Sub
Private Sub Form_Load()
End Sub
5、【
简答题】
Private Sub Command1_Click()
' For k = 0 To ?
If Option1(k).Value Then
' n = ?
End If
Next k
Option1(n).Value = False
n = n + 1
If n = 4 Then
' n = ?
End If
Option1(n).Value = True
End Sub
[10分]
解析：
Private Sub Command1_Click()
For k = 0 To 3
If Option1(k).Value Then
n = k
End If
Next k
Option1(n).Value = False
n = n + 1
If n = 4 Then
n = 0
End If
Option1(n).Value = True
End Sub
6、【
简答题】
[10分]
解析：
按要求解答即可
7、【
简答题】
Private Sub Command1_Click()
' Timer1.Enabled = ?
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub HScroll1_Change()
' ? .Interval = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
' Picture1.Left = ? + 10
End Sub
[10分]
解析：
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub HScroll1_Change()
Form1.Timer1.Interval = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
Picture1.Left = Form1.Picture1.Left + 10
End Sub
8、【
简答题】
[10分]
解析：
Private Sub Form_Click()
'Picture1.Picture = LoadPicture("")
'或
Picture1 = LoadPicture("")
'或 Picture1.Picture = LoadPicture()
'或 Picture1 = LoadPicture()
End Sub
Private Sub Picture1_Click()
Picture1.Picture = LoadPicture("pic1.bmp")
'或 Picture1 = LoadPicture("pic1.bmp")
End Sub
9、【
简答题】
[10分]
解析：
Private Sub Command1_Click()
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Text2.SetFocus
End Sub
10、【
简答题】
Private Sub Command1_Click()
Dim tmpStr As String * 50
'Select Case ?
Case 0
tmpStr = Left(Trim(Text1.Text), 3)
Case 1
tmpStr = Right(Trim(Text1.Text), 3)
Case 2
'tmpStr = Mid(Trim(Text1.Text), ? )
End Select
'Text2.Text = ?
End Sub
[10分]
解析：
Private Sub Command1_Click()
Dim tmpStr As String * 50
Select Case Form1.Combo1.ListIndex
Case 0
tmpStr = Left(Trim(Text1.Text), 3)
Case 1
tmpStr = Right(Trim(Text1.Text), 3)
Case 2
tmpStr = Mid(Trim(Text1.Text), 3, 4)
End Select
Text2.Text = tmpStr
End Sub
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00