windows编程例卷.doc
一、选择题2VB中坐标的度量单位是（A）ATwips BPixels C英寸 D磅3常用的ESC键的键值为（ B ）注：TAB 9 END 35A13 B27 C30 D324单击命令按钮，不可触发下面的(B )事件。AClick BkeyDown CmouseDown DMouseUp注：鼠标事件：Click事件、Dbclick事件、mousedown和mouseup事件、mousemove事件、dragdrop事件、downclick和upclick事件。5菜单项显示分隔线是通过设置Caption属性为（B）来实现的。A& B- C+ D=6以下不属于Visual Basic系统的文件类型是(B )A.frm B.bat C.vbg D.vbp7VB中日期型的类型符为（C ）A& B- C# D=8在VB的书写规范中，以下叙述是错误的（C ）AVB不区别变量的大小写。BVB中在同一行中可以写多条语句。CVB中同一行语句之间的分隔符是“；”。DVB中可用“_”来续写下一行。9对DO LOOP循环语句，则以下叙述中错误的是（A ）A若"条件"是一个为0的常数，则一次也不执行循环体B"条件"可以是关系表达式、逻辑表达式或常数C循环体中可以使用Exit Do语句 D如果"条件"总是为True，则不停地执行循环体10语句MyStr = Format(Date, "yyyy年mm月dd")执行后MyStr的值为（D）A20081226 B2008-12-26 C12-26-2008 D2008年12月2611以下控件那个不具有Caption属性（ B ）ALabel BText CCommandButton DCheckBox12决定控件在运行时是否可见的属性是（C ） ATop BHeight CVisible DEnbled13设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是(D)AList1.List BList1.ListIndex CList1.Index DList1. Text14要使shape 控件以实心方式填充，应该设置其( B)属性。AFillColor BFillStyle CBackStyle DShape15如果希望文件列表框只显示可执行文件，应该修改（ C ）属性。APattern BFilter CPath DFilename16通过对话框控件的返回值Filename 表示所选择文件的 (D）。A路径名 B全名 C文件主名 D文件扩展名二、填空题1.定义一个全局变量的关键字是 public 。2函数int(-6.14159)的值为 -7 ，而left(“abcdefadfag”,6)的值为 abcdef 。3若整型变量a=2,b=3 ,则下列程序段执行后整型C的值为 2 。 If a>5 then If b<4 then c=a b else c=b-a Else If b >3 then c=a*b else c=a mod b End if4在VB中，如果用“有模式”方式显示一个窗口，则style参数值为 1 。5为了使标签能自动调整大小以显示全部文本内容，应把标签的Autosize属性设置为 true 。6假定有一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是text1.setfocus。7计时器事件之间的间隔通过interval属性来实现。 有时候需要暂时关闭计时器，这可以通过 enabled属性来实现。8要使控件能通过数据控件链接到数据库上，必须设置绑定控件的 datasource 属性；要使绑定控件能与有效的字段建立联系，则需设置绑定控件的 datafield 属性。三 、程序填空题1. 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1100之间能够被7整除的数添加到列表框。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load() For i=1 To 100 If i Mod 7 =0 Then List1.AddItem i End If Next End SubPrivate Sub Command1_Click() Sum =0 For i=0 To List1.ListCount 1 Sum =Sum+ list1.list(i) Next Text1.Text=SumEnd Sub四 、程序阅读题阅读下列程序，写出运行结果1.程序1 Dim b As Integer , k As Integerb = 1For k = 1 to 5b = b*k If b >= 15 Then Exit For Else K = k + 1 End ifNext kPrint k, b结果：5 152程序2运行时，若Text1.Text 为空，在Text1获得输入焦点后，依次按下列按键： “1”、“2”、“”、“3”、“4”、“”、“5”、“6”、“/”、“1”、“4”请写出窗体上的输出结果。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then KeyAscii = Asc("*") End If End Sub当输入09时text1中显示*号，当输入其他字符时按原来的显示。五 、程序设计题1在d:dataMydata.mdb中有一张user表，其中有两个字段“username”和“password”，请设计一个用户登录验证程序利用该表实现对用户输入的用户名和密码进行合法性检查。要求：（1） 请给出界面的草图及使用的控件。（2） 用户密码最多允许输错三次。解：使用的空间有两个标签（label），两个文本框(text)，两个按钮(commandbutton)和一个ADO数据控件(Adodc)。此题还没做完，也还没有思路。第5页 共5页
