VB程序设计试题试卷1参考答案.doc

《VB程序设计试题试卷1参考答案.doc》由会员分享，可在线阅读，更多相关《VB程序设计试题试卷1参考答案.doc（4页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、VB程序设计试题试卷1参考答案VB程序设计试题（1）参考答案一、选择题1-5 DDBAC6-10DBABD11-15ACBAC16-20CBDCA二、判断题1、F2、F3、T4、F5、T6、F7、T8、T9、T10、F三、填空1、Scalemode2、RGB(255,0,0)3、picture1.line （100，100）-（500，500）4、.mdb5、职工6、表类型、动态类型、快照类型7、dir1.path=drive1.driveFile1.path=dir1.path四、程序阅读题1、52、If Button=1 Then PopupMenu Menu1233、 AC4、Commo

2、nDialog1.ShowColorText1.ForeColor = CommonDialog1.Color五、编程题1、用随机函数产生50个10100之间的互不相同的整数，存于一数组中，并以升序每行10个数打印输出到窗体上。Private Sub Command1_Click()Dim a(1 To 50) As Integer, i%, j%, t%, p%, n%, x% n = 0 已经产生的元素个数 Randomize Do While n n Then n = n + 1 a(n) = x End If Loop For i = 1 To 49 使用选择法排序 p = i For

3、 j = i + 1 To 50 If a(p) a(j) Then p = j Next j t = a(p): a(p) = a(i): a(i) = t Next I For i = 1 To 50 打印输出 Pictue1.Print a(i); If i Mod 10 = 0 Then Pictue1.Print Next iEnd Sub2、输入系列字符串，按升序排列输出。要求：（1）每输入一个字符串，按回车键后即把该字符串存放到数组中，并输出在排序前的文本框Text2中。字符数组“升序”排列，并在排序后的文本框Text3中输出。（2）程序运行后窗体界面如图所示。Dim a() A

4、s String, n%Private Sub Text1_KeyPress(KeyAscii As Integer) Dim i As Integer, j As Integer, k As Integer, t As String If KeyAscii = 13 Then n = n + 1 ReDim Preserve a(n) 动态存储数组a增加1个元素，前n-1个元素值保持不变。 a(n) = Text1.Text Text2.Text = Text2.Text + Text1.Text + Chr(13) + Chr(10) Text1.Text = Text3.Text = F

5、or i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then p = j Next j t = a(i) a(i) = a(p) a(p) = t Next I For i = 1 To n Text3.Text = Text3.Text & a(i) & Chr(13) + Chr(10) Next i End IfEnd Sub 3、设计一个画板程序，程序运行后可以根据选择的线型的粗细、颜色，用鼠标的左键模拟笔在绘图区随意绘图，用鼠标的右键可擦除所绘制的线条，要求：（10分）（1） 绘图区使用图片框，名称为picture1,并将其

6、设置为固定边框，白色背景。（2） 单击“清除”按钮则清除图片框中的图形。（3） 粗细线型分别设置为1磅和5磅（设置图片框的Drawwidth属性）,标题为“细”的单选钮名称是option1, 标题为“粗”的单选钮名称是option2。请依据设计界面添加详细的代码。程序设计界面如图所示：Private Sub Command2_Click() 清除 Picture1.ClsEnd Sub 当鼠标按下键记录下当前坐标Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single

7、) Picture1.CurrentX = X Picture1.CurrentY = YEnd Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 判断画笔的粗细 If Option1.Value = True Then Picture1.DrawWidth = 1 End If If Option2.Value = True Then Picture1.DrawWidth = 5 End If 判断鼠标左键是否按下 If Button = vbLeftButton Then Picture1.ForeColor = color Picture1.Line -(X, Y) 画线 End If 判断鼠标右键是否按下 If Button = vbRightButton Then Picture1.ForeColor = vbWhite Picture1.DrawWidth = 5 Picture1.Line -(X, Y) 擦除End If