VB题库上机答案.docVIP

第一套（窗体标题 设置按钮属性 命令按钮 等级考试）运行后 命令按钮不可见 命令按钮标题 字号 字体用三号字黑体 Private Sub Form_Click() Label1.Top = 0 Label1.Left = Form1.Width - Label1.Width End Sub 参考答案 第1个？处填入：1001 第2个？处填入：Min 第3个？处填入：arrN(i) Min或Min arrN(i) Function Fun() Dim s As Integer, i As Integer For i = 0 To 1000 If i Mod 7 0 Then s = s + 1 End If Next i Fun = s End Function 参考答案 Private Sub C1_Click() Call ReadData1 Call ReadData2 End Sub Private Sub C2_Click() Dim Arr3(1 To 20) As Integer Dim sum As Integer sum = 0 For i = 1 To 20 Arr3(i) = Arr1(i) - Arr2(i) sum = sum + Arr3(i) Next i Print sum=; sum WriteData dataout.txt, sum End Sub 第二套。（体育 美术） Private Sub Hide_Click() Text1.Visible = False End Sub Private Sub Show_Click() Text1.Visible = True End Sub 2 Private Sub C1_Click() Text1.PasswordChar = End Sub Private Sub C2_Click() Text1.PasswordChar = ? End Sub Private Sub C3_Click() Text2.Text = Text1.Text End Sub Private Sub P1_Click() CD1.ShowOpen End Sub 3 Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = True End Function 第三套 数学 语文 参考答案 Private Sub M1_Click() Text1.FontBold = True End Sub Private Sub M2_Click() Text1.FontItalic = True End Sub Private Sub M3_Click() Text1.FontUnderline = True End Sub Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Me.PopupMenu Format End If End Sub 参考答案 第1个？处填入：Show 第2个？处填入：Caption 第3个？处填入：k 第4个？处填入：PasswordChar 参考答案 第1个？处填入：Text1.Text 第2个？处填入：PasswordChar 第3个？处填入：0 第4个？处填入：False 第四套 猴子 Private Sub Command1_Click() Text1.PasswordChar = End Sub Private Sub Command2_Click() Text1.PasswordChar = * End Sub Private Sub Command3_Click() Text1 = Text1.SetFocus End Sub 2参考答案 第1个？处填入：Show 第2个？处填入：Caption 第3个？处填入：k 第4个？处填入：PasswordChar 参考答案 第1个？处填入：Step －1 第2个？处填入：List1.List(k) 第3个？处填入：k 第4个？处填入：Text1或Text1.Text 参考答案