《Visual Basic程序设计基础》习题参考答案(5)

二、选择题

1．C 2．B 3．C 4．A 5．A 6．C 7．A 8．C 9．C 10．B 11．A 12．B 13．B 14．C 15．C 三、填空题

1． Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 800 2．LoadPicture 3．AutoSize、Stretch、False、False 4．选中、属性 5．形状、矩形 6．Picture1.Picture=LodePicture(\7．图片框、其他控件 8．缇、SclaeMode 9．颜色

10．颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比 四、程序阅读题

程序1. 转动一条红色直线，其轨迹形成一个圆

程序2. 在窗体上随机的位置、用随机的颜色、半径绘制1000个空心的圆。

程序3. 在图片框内绘制多个黄色边框矩形，填充样式在“实心”、“透明”间交替变换。 五、程序填空题

1．（1）Combo1.ListIndex （2）Shape1.BorderStyle （3）Combo2.AddItem Str(i) 2．（1）Call pic （2）False （3）n = n + 1

（4）LoadPicture(\ （4）LoadPicture(fn) 六、程序设计题

程序1．界面设计略，过程设计如下： Private Sub Form_Load() Picture1.ScaleMode = 3 End Sub

Private Sub Command1_Click()

Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single x1 = InputBox(\ x2 = InputBox(\ Picture1.Line (x1, y1)-(x2, y2), , B End Sub

程序2．界面设计略，过程设计如下： Private Sub Form_click()

Dim r As Single, xo As Single, yo As Single If Form1.ScaleHeight < Form1.ScaleWidth Then r = Form1.ScaleHeight / 3 Else

r = Form1.ScaleWidth / 3 End If

xo = Form1.ScaleLeft + Form1.ScaleWidth / 2 yo = Form1.ScaleTop + Form1.ScaleHeight / 2 Form1.FillStyle = 0: Form1.FillColor = vbBlue

Form1.DrawWidth = 2: Form1.ScaleMode = 6 Form1.Circle (xo, yo), r, vbYellow End Sub

程序3．界面设计略，过程设计如下： Private Sub Form_Load() Dim i As Integer

For i = 1 To 7: List1.AddItem i: Next i Form1.ScaleMode = 1 End Sub

Private Sub List1_Click()

Form1.Cls: Form1.ScaleMode = List1.Text

Form1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _ Form1.ScaleTop + Form1.ScaleHeight / 2), 50 End Sub

第7章 对话框与菜单程序设计

一、判断题

1．√ 2．√ 3．√ 4．× 5．× 6．× 7．√ 8．√ 9．√ 10．√ 二、选择题

1．D 2．A 3．C 4．C 5．B 6．D 7．A 8．B 9．D 10．B 三、填空题

1．窗体控制菜单、下拉式菜单、快捷菜单 2．ShowFont 3．打开文件、另存为、颜色、字体、打印对话框 4．工程、部件 5．CommonDialog1.Action =3、CommonDialog1.ShowColor

6．提示信息、对话框类型、对话框标题 7．Click 8．工具 9．代码窗口、Click 10．相同、正 四、程序阅读题

程序1. 显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。 程序2. 显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的消息框。

五、程序填空题

1．（1）Int(Rnd*100) （2）Str(i) （3）Exit For

2．（1）False （2）Date （3）CommonDialog1.Color （4）m1 六、程序设计题

程序1．界面设计略，过程设计如下： Private Sub Command1_Click() CommonDialog1.ShowOpen

List1.AddItem CommonDialog1.FileName End Sub

程序2．界面设计略，过程设计如下： Private Sub Command1_Click() CommonDialog1.ShowSave

List1.AddItem CommonDialog1.FileName End Sub

程序3．界面设计如图10-9、表10-2所示，过程设计如下： Private Sub Sqr_Click() Shape1.Shape = 1 End Sub

Private Sub Rec_Click() …… 此处隐藏：365字，全部文档内容请下载后查看。喜欢就下载吧 ……