VB程序设计考试题(A卷)dd.docVIP

VB程序设计考试笔试题（90分钟） 专业年级 姓名 学号 填空(2分*20空=40分) 1．表达式30/57 And -3 的值是 --3 。 2．表达式20*4\9 的值是 8 。 3．表达式 ”123”+”456” 的值是 123456 。 4．表达式 4^0.5*3-5 mod 2 的值是 5 。 5．已知Rnd(0)=0.457，则表达式 Rnd(0)*10 的值是 4.57 。 6．Timer控件的唯一事件是 Timer 。 7．菜单项中的分隔条是用 “—” 符号来生成的。 8．创建弹出式菜单是用 mousedown 方法。 9．KeyPress和 Keydown事件的区别在于 。 10．在MouseDown事件中，当按下鼠标左键时，参数Button的值是 1 。 11．在下列语句中， Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Command1.Move X,Y End Sub X和Y的含义是 x轴的指向沿水平向右的坐标，y轴的指向沿垂直向下的坐标 。 12．如果要在位置(1000,1000)处画一个点，则要用语句 pset 来实现。 13．VB程序结构分为顺序、 选择 和 循环 三种。 14．当Timer控件的Interval=0时，它的Timer事件 不响应 。 15．要使用ActiveX控件，则要从 中添加。 16．给一个PictureBox控件调用图片可有两种方法，一种是直接设置它的Picture属性，另一种是采用 paintpicture方法 。 17．画直线的语句是Line (x1,y1)-(x2,y2)，画矩形（中部被填充）的语句是 line（x1，y1）—step（x2，y2），，bf 。 18．RGB函数中的三个分量分别代表 RED。GREEN。BLUE 。 19．Data控件通过 和RecordSource属性与数据库相关联。 二、读写程序（5分*6题=30分） 1． Dim x, sum as Integer For x=1 to 10 sum=sum+x Next x Print sum 把上面的For语句改写成While 语句： Dim x, sum As Integer While x = 10 sum = sum + x x = x + 1 Wend Print sum 2． Select Case Case 1,3,5,7,8,10,12 Monthday=31 Case 4,6,9,11 Monthday=30 Case 2: Monthday=28 EndSelect 把上面的语句改写成If … Then … ElseIf … 形式。 Private Sub Form_Click() Dim m, Monthday As Integer m = Val(InputBox()) Select Case m Case 1, 3, 5, 7, 8, 10, 12 Monthday = 31 Case 4, 6, 9, 11 Monthday = 30 Case 2 Monthday = 28 End Select Print Monthday End Sub Private Sub Form_Load() Form1.Show Dim m, Monthday As Integer m = Val(InputBox()) If m = 1 Then Monthday = 31 El