VB二级错题总结.doc

1. 以下叙述中错误的是A) 在Keyup和Keydown事件过程中，从键盘上输入A或A被视作相同的字母(即具有相同的Keycode) B) 在Keyup和Keydown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的Keycode) C) Keypress事件中不能识别键盘上某个键的按下与释放D) Keypress事件中可以识别键盘上某个键的按下与释放2.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A） Private Sub List1_Click() B）Private Sub List1_Click() Label1.Caption = List1.Listindex Label1. Name = List1. Listindex End Sub End Sub C） Private Sub List1_Click() D）Private Sub List1_Click() Label1.Name = List1.Text Label1.Caption = List1.Text End Sub End Sub3. 在窗体上画一个名称为Commondialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为Save，缺省文件名为Savefile，在文件类型栏中显示*.Txt。则能够满足上述要求的程序是A）Private Sub Command1_Click() Commondialog1.Filename = SavefileCommondialog1.Filter=AllFiles|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Filterindex = 2 Commondialog1.Dialogtitle = Save Commondialog1.Action = 2 End SubB）Private Sub Command1_Click() Commondialog1.Filename = Savefile Commondialog1.Filter = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Filterindex = 1 Commondialog1.Dialogtitle = Save Commondialog1.Action = 2 End SubC）Private Sub Command1_Click() Commondialog1.Filename = Save Commondialog1.Filter = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Filterindex = 2 Commondialog1.Dialogtitle = Savefile Commondialog1.Action = 2 End SubD）Private Sub Command1_Click() Commondialog1.Filename = Savefile Commondialog1.Filter = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Filterindex = 1 Commondialog1.Dialogtitle = Save Commondialog1.Action = 1 End Sub4.在窗体上画一个名称为Text1的文本框，并编写如下程序：Private Sub Form_Load() Show Text1.Text = Text1.SetfocusEnd SubPrivate Sub Form_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) Print 程序设计End SubPrivate Sub Text1_Keydown(Keycode As Integer, Shift As Integer) Print Visual Basic;End Sub程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是A）Visual Basic B）程序设计C）A程序设计 D）Visual Basic程序设计5. 在窗体上画一个名称为Commanddialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：Private Sub Command1_Click()Commondialog1.Filename =Commondialog1.Filter=All File|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommondialog1.Filterindex=2Commondialog1.Dialogtitle=VbtestCommondialog1.Action=1End Sub对于这个程序，以下叙述中错误的是A） 该对话框被设置为“打开”对话框B） 在该对话框中指定的默认文件名为空C） 该对话框的标题为VbtestD） 在该对话框中指定的默认文件类型为文本文件(*.Txt)6.把窗体的Keypreview属性设置为True，然后编写如下两个事件过程：Private Sub Form_Keydown(Keycode As Integer, Shift As Integer) Print Chr(Keycode)End SubPrivate Sub Form_Keypress(Keyascii As Integer) Print Chr(Keyascii)End Sub程序运行后，如果直接按键盘上的A键（即不按住Shift键），则在窗体上输出的字符分别是 【A】 和 【a】 。7. 在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption 属性分别为城市名称和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示已成功添加输入项如图所示；如果存在，则在Label2中给出提示输入项已在组合框中。请在 【12】、【13】 和【14】处将程序补充完整。Private Sub Combo1_ 【 Keypress 】 (Keyascii As Integer)If Keyascii = 13 ThenFor I = 0 To Combo1.Listcount-1If Combo1.Text = 【Combo1.List(I)】 ThenLabel2.Caption = 输入项已在组合框中Exit SubEnd IfNext ILabel2.Caption = 已成功添加输入项Combo1. 【AddItem】 Combo1.TextEnd IfEnd Sub8. 设有语句X=Inputbox(“输入数值”，“0”，“示例”)程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是A) 变量X的值是数值10 B) 在Inputbox对话框标题栏中显示的是“示例”C) 0是默认值 D) 变量X的值是字符串“10”9. 从键盘上输入两个字符串，分别保存在变量Str1、Str2中。确定第二个字符串在第一个字符串中起始位置的函数是A) Left B) Mid C) String D) Instr10.在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1_Click()A$ = Software And HardwareB$ = Right(A$, 8)C$ = Mid(A$, 1, 8)Msgbox A$, , B$, C$, 1End Sub则在弹出的信息框的标题栏中显示的信息是A）Software And Hardware B）Software C）Hardware D）111.执行语句：A = Inputbox(Today, Tomorrow, Yesterday, , , Day Before Yesterday, 5)将显示一个输入对话框，在对话框的输入区中显示的信息是A）Today B）Tomorrow C）Yesterday D）Day Before Yesterday12.以下叙述中错误的是A）用Shell函数可以调用能够在Windows下运行的应用程序B）用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数C）调用Shell函数的格式应为：=Shell ()D）用Shell函数不能执行DOS命令13.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是Abdfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command1_Click( ) Dim Str As String, S As String, C As String Str = Ucase(Text1) S = C = Z While C = A If Instr(Str, C) = 0 Then S = 【7】 S&C End If C = Chr$(Asc(C) 【8】 -1 ) Wend If S Then Text1 = S End IfEnd Sub14.在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption 属性分别为城市名称和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示已成功添加输入项如图所示；如果存在，则在Label2中给出提示输入项已在组合框中。请在 【12】、【13】 和【14】处将程序补充完整。Private Sub Combo1_ 【 Keypress 】 (Keyascii As Integer)If Keyascii = 13 ThenFor I = 0 To Combo1.Listcount-1If Combo1.Text = 【Combo1.List(I)】 ThenLabel2.Caption = 输入项已在组合框中Exit SubEnd IfNext ILabel2.Caption = 已成功添加输入项Combo1. 【AddItem】 Combo1.TextEnd IfEnd Sub15. 窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上（见图）；另有1个名称为Timer1的计时器控件，其属性值为True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序： Private Sub Timer1_Timer() For k = Line1.X1 To Line2.X1 Step 100 If Shape1.Left + Shape1.Width B C后，窗体上显示的是 A）True B）False C）1 D）出错信息20. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() X = -5 If Sgn(X) Then Y = Sgn(X 2) Else Y = Sgn(X) End If Print Y End Sub程序运行后，单击命令按钮，窗体上显示的是A) -5 B) 25 C) 1 D) -121. 以下关于Msgbox的叙述中，错误的是A）Msgbox函数返回一个整数B) 通过Msgbox函数可以设置信息框中图标和按钮的类型C) Msgbox语句没有返回值D) Msgbox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量22. 执行如下两条语句，窗体上显示的是A=9.8596Print Format(A,$00,00.00)A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.8623.设A=5,B=4,C=3,D=2，下列表达式的值是 32*B Or A=C And BC Or CDA)1B)TrueC)FalseD)224. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim I As Integer,N As Integer For I=0 To 50 I=I+3 N=N+1 If I10 Then Exit For Next Text