在名称为Form1的窗体上添加一个标题为“滚动条控件”的标签.docVIP

基础题（1） 基础题（2） 参考答案 Private Sub Form_Load() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Shape1.Top = Shape1.Top + 100 End Sub 简单题（1） 程序提供代码 Private Sub Text2_Change() If ? = 1 Then 　Text3.PasswordChar = ? Else 　Text3.PasswordChar = ? End If Text3.Text = ? End Sub 程序结束 参考答案 第1个？处填入：Check1.Value 第2个？处填入： 第3个？处填入：# 第4个？处填入：Text2 简单题（2） 程序提供代码 Private Sub Command1_Click() Dim x As Integer, k As Integer x = Val(Text1(1)．Text) For k = 2 To ? 　　　　x = FindMin(Val(Text1(k)．Text), ？) Next lblResult.Caption =？ End Sub Public Function FindMin(x As Integer, y As Integer) If x ? y Then 　　　　FindMin = y Else 　　　　FindMin = x End If End Function 程序结束 参考答案 第1个？处填入：5 第2个？处填入：x 第3个？处填入：x 第4个？处填入： 综合题 程序提供代码 Dim a(7, 7) As Integer 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 7 　　　　　　For j = 1 To 7 　　　　　　　　Input #1, a(i, j) 　　　　　　Next j 　　　　Next i Loop Close #1 End Sub Private Sub Command1_Click() Dim Sum As Long ＝＝＝＝考生编写程序开始＝＝＝＝＝＝＝＝＝＝ ＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝＝ Save End Sub Public Sub Save() Open App.Path \out5.txt For Output As #1 Print #1, lblFirst.Caption, lblSecond.Caption Close #1 End Sub 程序结束 参考答案 Dim i As Integer, n As Integer For i = 1 To 7 If a(i, 1) Mod 7 = 0 Then n = n + 1 ElseIf a(1, i) Mod 7 = 0 Then n = n + 1 ElseIf a(7, i) Mod 7 = 0 Then n = n + 1 ElseIf a(i, 7) Mod 7 = 0 Then n = n + 1 End If Next i lblFirst = n For i = 1 To 7 sum = sum + a(1, i) + a(i, 1) + a(7, i) + a(i, 7) Next sum = sum - a(1, 7) - a(1, 7) - a(7, 1) - a(7, 7) lblSecond = sum