下载文档原格式
visualbasic程序设计教程第四版答案【篇一：visual_basic程序设计教程(第4版)_课后答案】一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述vb的特点。
答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述vb的安装过程。
答：①向光驱中放入vb安装光盘；②计算机将运行自动安装程序，若没有，执行vb目录下的setup.exe；③根据提示逐一回答问题，并点击“下一步”；④点击“完成”；2、如何启动vb。
答：三种方法：①单击“开始”按钮，选择“程序”菜单下的“microsoft visual basic6.0 中文版”菜单项并单击；②双击桌面上的vb6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启动vb；第二章习题参考答案一、选择题：1-10、 dcacdbcbbc11-20、badcabbaab21-29、aacbbcddc二、填空题1．窗体、控件2．属性值3．属性窗口设置、代码窗口设置4．事件过程5．对象名、下划线、事件名6． form_click第三章习题参考答案一、选择题1、b2、c3、a4、b5、a6、c7、c二、填空题1、 11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。
string、byte、integer、long、single、double、currency、boolean 、date、object、variant2、双引号(英文)、#3、 ascii、1、24、 public、通用、dim、static、private、static5、、+、+6、 now()、time、日期型三、解答题1、(3)2、(1 )3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）4、315、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y)（3）sqr(abs(a*b-c^3))（4）sqr(s*(s-a)*(s-b)*(s-c))6、7、（1）13 （2）17（3）#1999-11-12#（4）zxy123abc8、（1）19（2）8.16666666666667（3）5．25（4）29、（1）-4 （2）2 . 82842712474619（3）-3（4）49（5）”hello”（6）he7）16 （8）“-459.65” （9）510、（4）11、（2）12、（4）第四章习题参考答案一、选择题：1—7: daabbcd二、填空题1． 500.00%2．将字号扩大为原来的二倍3． b三、编程题（略）1．文本框、标签和命令按钮的名称分别为text1、label1、command1 private sub command1_click()label1.caption=text1.textcommand1.caption=text1.textend sub2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。
《Visual Basic程序设计基础》习题《Visual Basic程序设计基础》教材习题第1章 Visual Basic 6.0程序设计概述习题一、判断题1．Visual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。
2．属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。
3．同一窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。
4．在Visual Basic 中，有一些通用的过程和函数作为方法供用户直接调用。
5．控件的属性值不可以在程序运行时动态地修改。
6．许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。
7．所谓保存工程，是指保存正在编辑的工程的窗体。
8．在面向对象的程序设计中，对象是指可以访问的实体。
9．决定对象是否可见的属性是Visible属性，决定对象可用性的属性是Enabled属性。
10．保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。
11．xxx.vbp文件是用来管理构成应用程序xxx的所有文件和对象的清单。
12．事件是由Visual Basic预先定义的对象能够识别的动作。
13．事件过程可以由某个用户事件触发执行，它不能被其他过程调用。
14．窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。
15．同一个窗体文件只能用于一个工程中。
16．由Visual Basic语言编写的应用程序有解释和编译两种执行方式。
17．在打开一个Visual Basic工程进行修改后，要另存为一个版本，只需单击“工程另存为…”就行，因为系统将同时保存其他文件。
18．单击“启动”菜单项将窗体装入内存时，一定触发窗体的load事件和Activate 事件。
19．“方法”是用来完成特定操作的特殊子程序。
20．“事件过程”是用来完成事件发生后所要执行的程序代码。
第1章Visual Basic 6.0程序设计概述一、判断题1．√2．√3．×说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。
4．√5．×6．√7．×8．√9．√10．×11．√12．√13．×14．√15．×16．√17．√18．√19．√20．√二、选择题1. C2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．A 11．C 12．D三、填空题1．对象、事件2．属性、方法、事件3．控件、屏幕（Screen）4．对象5．Left、Top 6．属性、<对象名>.<属性名>=<表达式>7．网格8．F o rm19．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）10．Activate、Deactivate四、程序设计题程序1．界面设计参看图10-1、10-2以及表10-1。
表10-1 实例2各控件的主要属性设置过程设计如下：Private sub Form_Click()Command2.Enabled = FalseEen SubPrivate Sub Command1_Click()Label2.Visible = FalseLabel1.Caption = Text1.Text + ": 欢迎使用" + Label1.Caption Text1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()EndEnd Sub程序2．界面设计略，过程设计如下：Private Sub Command1_Click() '字体变大Form1.FontSize = Form1.FontSize + 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command2_Click() '字体变小Form1.FontSize = Form1.FontSize - 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command3_Click() '字体加粗Form1.FontBold = TrueForm1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command4_Click() '字体不加粗Form1.FontBold = FalseForm1.Cls: Print "欢迎使用VB"End Sub运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。
《Visual Basic程序设计基础》教材习题第1章Visual Basic 6.0程序设计概述习题一、判断题1．Visual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。
2．属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。
3．同一窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。
4．在Visual Basic中，有一些通用的过程和函数作为方法供用户直接调用。
5．控件的属性值不可以在程序运行时动态地修改。
6．许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。
7．所谓保存工程，是指保存正在编辑的工程的窗体。
8．在面向对象的程序设计中，对象是指可以访问的实体。
9．决定对象是否可见的属性是Visible属性，决定对象可用性的属性是Enabled属性。
10．保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。
11．xxx.vbp文件是用来管理构成应用程序xxx的所有文件和对象的清单。
12．事件是由Visual Basic预先定义的对象能够识别的动作。
13．事件过程可以由某个用户事件触发执行，它不能被其他过程调用。
14．窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。
15．同一个窗体文件只能用于一个工程中。
16．由Visual Basic语言编写的应用程序有解释和编译两种执行方式。
17．在打开一个Visual Basic工程进行修改后，要另存为一个版本，只需单击“工程另存为…”就行，因为系统将同时保存其他文件。
18．当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate事件19．“方法”是用来完成特定操作的特殊子程序。
20．“事件过程”是用来完成事件发生后所要执行的程序代码。
二、选择题1．工程文件的扩展名为。
A、.frxB、.basC、.vbpD、.frm2．以下4个选项中，属性窗口未包含的是。
第一章VB概述一．选择题二．填空题1．视图工具箱2．对象事件驱动3．代码窗体设计器4．属性方法事件5．对象的特征6．一个对象可执行的动作7．属性窗口赋值语句三．简答题1．略2．略四．编程题【属性窗口设置】Caption 这是我的第一个练习【代码窗口设置】Private Sub Form_Click()Print "我可以用Visual Basic语言编写程序了！"End Sub第二章窗体与常用控件一．选择题二．填空题1．Value2．下拉列表框3．Scroll4．LargeChange5．ASCII码6．Enabled7．ListCount8．PopupMenu9．Alt10．复选11．CommonDialog1.ShowColor 或者 ShowColor12．Flags13: 114．-15．GFED第三章VB程序设计基础一．选择题二．填空题1．Right(CStr(x) , 1) & Left(CStr(x) , 1)2．x Mod 5=0 Or x Mod 9=03．False4．CDEF5．s >= "A" And s <= "Z" Or s >= "a" And s <= "z"6． x >= 0 And x < 1007．Int(Rnd * (X - 2) + 3)8．Sqr(cos(23 * 3.14 / 180) / (x ^ 2 * Log(y)))9．-4 -5 -410．"请输入圆的半径：" "求圆的面积" 211．"圆的半径值必须介于1到10之间，请重输" 48 "求圆的面积"第四章VB控制结构一．选择题二．填空题1． 4.8 202． y = 113． 1！+2！+3！+4！+5！4． 9k5． 0n6． 27． x >= 0x > max8． 5 713 1214 119．sum=0sum+jst & k & "+"10．4111011． i + 1List1.RemoveItem j12．Combo1.List(i)=Combo1.Textflag = FalseCombo1.AddItem Combo1.Text 三．编程题1．Private Sub Form_Click()Dim x As Singlex = Val(InputBox("请输入一个x的值：")) If x <= 0 Thenfx = -1ElseIf x < 1 Thenfx = Sqr(x)Elsefx = x ^ 3 + 2End IfMsgBox ("运算结果为：" & fx)End Sub2．Private Sub Form_Click()Dim n As Integer, k As Integer, s As Stringn = Val(InputBox("请输入一个正整数："))k = 2s = n & "="DoIf n Mod k = 0 Thens = s & k & "*"n = n \ kElsek = k + 1End IfLoop Until n = ks = s & kPrint sEnd Sub3．Private Sub Form_Click()Dim s As String, i As IntegerDim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer s = Text1.TextFor i = 1 To Len(s)If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" ThenIf Val(Mid(s, i, 1)) Mod 2 <> 0 Thena = a + 1Elseb = b + 1End IfElseIf Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Thenc = c + 1ElseIf Mid(s, i, 1) >= "a" And Mid(s, i, 1) <= "z" Thend = d + 1Elsee = e + 1End IfNext iPrint "奇数个数为："; aPrint "偶数个数为："; bPrint "大写字母个数为："; cPrint "小写字母个数为："; dPrint "其他字符个数为："; eEnd Sub4．Private Sub Form_Click()Dim n As Integer, sum As Integern = Val(InputBox("请输入一个正整数："))Do Until n = 0sum = sum + n Mod 10n = n \ 10LoopMsgBox ("各位数字之和为：" & sum)End Sub5．Private Sub Form_Click()Dim n As Long, i As Integer, L As Integern = Val(InputBox("请输入一个正整数："))L = Len(CStr(n))For i = 1 To L / 2If Mid(CStr(n), i, 1) <> Mid(CStr(n), L, 1) Then Exit ForEnd IfL = L - 1Next iIf i > L / 2 ThenMsgBox ("该数是回文数。
Visual basic 程序设计习题参考答案第一章Visual basic 程序设计一、选择题二、填空题三、简答题1、简述visual basic 的特点。
（1）具有可视化的设计平台（2）面向对象的设计方法（3）事件驱动的编程机制（4）结构化程序设计语言（5）开放的数据库功能与网络支持2、什么是对象、类、属性、事件和方法？在可视化编程语言中，对象是代码和数据的集合，它可以是窗体和控件，也可以是菜单和数据库等。
描述一个对象有三个基本要素：属性、方法和事件。
类是一组用来定义对象的相关过程和数据的集合，即同类对象的集合和抽象。
属性是描述对象的一组特性。
方法是对象能够执行的动作，它是对象本身内含的函数或过程，用于完成某种特定的功能。
事件是发生在对象上并且能够被对象识别的动作，即由系统预先设置好的、能被对象识别的动作，如Click(单击)、DblClick(双击)、Load(窗体的装载)、KeyPress(按键)、Change(改变)、MouseMove (鼠标的移动)等，每一种对象能识别的事件是不同的5、什么是事件驱动的编程机制？当某个事件(一般由用户操作来触发) 发生时，系统就会自动执行此事件的事件过程。
由事件控制整个程序的执行流程。
事件过程要经过事件的触发才能被执行，这种工作模式称为事件驱动方式。
第二章 Visual basic 程序设计基础一、选择题二、填空题第三章数据输入输出一、选择题二、填空题第四章选择结构和循环结构程序设计一、选择题二、填空题第五章数组一、选择题二、填空题第六章过程一、选择题二、填空题三、简答题1、简述事件过程和通用过程的含义和联系。
VB应用程序是由过程组成的，过程是完成某种特殊功能的一组独立的程序代码。
VB中的过程有两大类：事件过程和通用过程事件过程是当发生某个事件时，对该事件作出响应的程序段。
事件过程由VB自行声明，用户不能增加或删除。
事件过程是VB 应用程序的主体。
通用过程是独立于事件过程之外，可供其他过程调用的程序段。
一、选择题1.A2.D3.D4.A二、填空题1.windows2.学习版、专业版、企业版，企业版3.height、width4.Dblchick5.shift、ctrl6.红第2章一、选择题1.D2.B3.A4.B5.D二、填空题1.对象框、属性显示方式、属性列表、属性解释2.Text1.text=”Hello”3.标准控件、Active控件、可插入对象4.用鼠标单击窗口的任何部位、执行“视图”菜单中的“属性窗口”命令、按F4键、按组合键Ctrl+PgDn或Ctrl+PgUp5.shift或ctrl一、选择题1.B2.C3.A4.A5.C二、填空题1.const2.string*153.过程4.！5.通用第4章一、选择题1.B2.C3.A4.B5.B二、填空题1.-562.5、10、2003、63.””、# #4.12345.68一、选择题1.C2.A3.C4.C二、填空题1. 572. 002.45、2.449、24.49E-01、-2.4495第6章一、选择题1.B2.C二、填空题1.AutoSize2.0、03.Picture三、编程题1.略2.略第7章一、略二、2、721、略2、略3、略4、略第9章1、略2、略3、略第10章一、选择题1.C2.A二、填空题1.左键、右键、中键2.MousePointer、99、MouseIcon一、选择题1.B2.D3.D4.C二、填空题1.菜单项属性区、编辑区、菜单项显示区2.43.Unload4.IniDir、FileName三、编程题略第12章一、选择题1.B2.C二、填空题1. MDIChild、True2.QueryUnload3.Arrange一、编程题1.略2.略3.略4.略5.略6.略。
1、选择题（1）A（2）C（3）A（4）B（5）B（6）D（7）D（8）B（9）D（10）B2、填空题（1）a=10,b=20a=20,b=10（2）**pp=603、程序设计题（1）#include<stdio.h>char *month_name(int n);void main(){int n;printf("\nPlease enter 1 integer:");scanf("%d",&n);printf("%d month :%s\n",n,month_name(n));}char *month_name(int n){static char*name[]={"illegal month","Jan","Feb","Mar","Apr","May","Jun","July","Aug","Sept","Oct","Nov","Dec"};return ((n<1||n>12)?name[0]:name[n]);}（2）#include<stdio.h>#define N 10sort(int data[]){int i,j,min_a,temp;for(i=0;i<N;i++){min_a=i;for(j=i+1;j<N;j++)if(*(data+j)<*(data+min_a))min_a=j;if(min_a!=i){temp=*(data+min_a);*(data+min_a)=*(data+i);*(data+i)=temp;}}}main(){int i,j,data[N],temp;int min_a;printf("\nPlease input %d int:\n",N);for(i=0;i<N;i++)scanf("%d",&data[i]);sort(data);printf("After sorted:\n");for(i=0;i<N;i++)printf(" %d",data[i]);}（3）#include <stdlib.h>void reverse(char *c);void main(){char str[80];puts("Please enter 1 string\n");gets(str);reverse(str) ;puts("After reversed\n");puts(str);}void reverse(char *c){char *p,*q,temp;int size=0;for(p=c;*p!='\0';p++)size++;size=size/2;for(q=c,p--;q<c+size;q++,p--){temp=*q;*q=*p;*p=temp;}}（4）#include<stdio.h>#include<string.h>void sort(char *keyword[],int size);void print(char *keyword[],int size)void main(){char *keyword[]={"if","else","case","switch","do","whlie","for","break","continue"};sort(keyword,9);print(keyword,9);}void sort(char *keyword[],int size){int i,j,min_location;char *temp;for(i=0;i<size-1;i++){min_location=i;for(j=i+1;j<size;j++)if(strcmp(keyword[min_location],keyword[j])>0) min_location=j;if(min_location!=i){temp=keyword[i];keyword[i]=keyword[min_location];keyword[min_location]=temp;}}}void print(char *keyword[],int size){int i;for(i=0;i<size;i++)printf("\n%s",*(keyword+i));}（5）#include<stdio.h>void fun_char(char str1[],char str2[],char str3[]);void main(){char str1[80],str2[80],str3[80],c,i;printf("\nPlease enter 2 string:");scanf("%s%s",str1,str2);fun_char(str1,str2,str3);printf("Third string is %s.",str3);}void fun_char(char *str1,char *str2,char *str3){int i,j,k,flag;i=0,k=0;while(*(str1+i)!='\0'){j=0;flag=1;while(*(str2+j)!='\0'&&flag==1){if(*(str2+j)==*(str1+i)) flag=0;j++;}if(flag){*(str3+k)=*(str1+i); k++;}i++;}*(str3+k)='\0';}（6）#include<stdio.h>int count_word(char *str);void main(){char str1[80],c,res;puts("\nPlease enter a string:");gets(str1);printf("There are %d words in this sentence",count_word(str1)); }int count_word(char *str){int count ,flag;char *p;count=0;flag=0;p=str;while(*p!='\0'){if(*p==' ')flag=0;else if(flag==0){flag=1;count++;}p++;}return count;}（7）#include<stdio.h>#include<string.h>char *encrypt(char *string);char *decrypt(char *string);main(){char item[80];char *point;char *pEncrypted;char *pDecrype;printf("Please enter the string need to encrypt:\n");gets(item);point=item;pEncrypted=encrypt(point);printf("\nThe string after encrypted is:\n%s\n",pEncrypted); pDecrype=decrypt(pEncrypted);printf("\nThe string after decrypted is:\n%s\n",pDecrype);free(pEncrypted);free(pDecrype);}char *encrypt(char *string){char *q,*t;q=(char *)malloc(sizeof(char)*80);if(!q){printf("No place to malloc!");return 0;}t=q;while(*string!='\0'){*q=*string-2;string++;q++;}*q='\0';return t;}char *decrypt(char *string){char *q,*t;q=(char *)malloc(sizeof(char)*80); if(!q){printf("No place to malloc!");return 0;}t=q;while(*string!='\0'){*q=*string+2;string++;q++;}*q='\0';return t;}。
《Visual Basic程序设计》课后习题第一章VB程序设计概述习题1.简述VB 6.0的主要特点。
2.Visual Basic 6.0有多种类型的窗口，若要在设计时看到代码窗口，应怎样操作？3.叙述建立一个完整应用程序的过程。
4.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件，再保存什么文件？若不这样做，系统会出现什么信息？5.Visual Basic6. 0窗体设计器的主要功能是什么？6.如何使用VB 6.0的帮助系统？第二章VB编程基础习题1.要判断在文本框中是否按下Enter键，应在文本框的（）事件中判断。
2.文本框中的Scrollbars属性设置了非零值，却没有效果，原因是（）。
3.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对（）属性设置就有效。
4.要使控件在运行时不可显示，应对（）属性进行设置。
5.要使Forml窗体的标题栏显示“欢迎使用”语句应写为（）6.不论任何控件，共同具有的属性是（）。
7.要使命令按钮不可操作，要对（）属性设置。
8.在窗体上建立了文本框对象Textl,可以通过（）事件获得输入键盘的KeyAscii码。
9.在新建工程时，使窗体上的所有控件具有相同的字体格式，应对（）的（）属性进行设置。
第三章VB语言基础习题1.下列哪些是VB的合法常量，分别指出其类型。
(1)100. 0(2)%100(3) 1E1 (5)123,456(6)0100(7) ASDF (9)#2000/10/7#(10)100#(11)&0100(14) T2.把下列算术表达式写成VB表达式(4) 123D3(8) "12345”(12) &H123(13)true10X+V3F,, s z …e10 +lnl0（1）~XY~（2）\X + Y\ + Z5（3） Sin（45"） + ,（4）（1+XY）11J X + P + I3.根据条件写出相应的VB表达式（1）产生“C”到“L”范围内的一个大写字符。
《Visual Basic程序设计基础》教材习题参考答案第1章 Visual Basic 6.0程序设计概述一、判断题1．√2．√3．×说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。
4．√5．×6．√7．×8．√9．√10．×11．√12．√13．×14．√15．×16．√17．√18．√19．√20．√二、选择题1. C2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．A 11．C 12．D三、填空题1．对象、事件2．属性、方法、事件3．控件、屏幕（Screen）4．对象5．Left、Top 6．属性、<对象名>.<属性名>=<表达式> 7．网格8．F o rm19．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）10．Activate、Deactivate四、程序设计题程序1．界面设计参看图10-1、10-2以及表10-1。
表10-1 实例2各控件的主要属性设置过程设计如下：Private sub Form_Click()Command2.Enabled = FalseEen SubPrivate Sub Command1_Click()Label2.Visible = FalseLabel1.Caption = Text1.Text + ": 欢迎使用" + Label1.CaptionText1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()EndEnd Sub程序2．界面设计略，过程设计如下：Private Sub Command1_Click() '字体变大Form1.FontSize = Form1.FontSize + 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command2_Click() '字体变小Form1.FontSize = Form1.FontSize - 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command3_Click() '字体加粗Form1.FontBold = TrueForm1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command4_Click() '字体不加粗Form1.FontBold = FalseForm1.Cls: Print "欢迎使用VB"End Sub运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。
第6章图形控件和图形方法
一、判断题
1．√2．×3．√4．×5．√6．×7．×8．×9．√10．√
二、选择题
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("C:\Windows\Cloud.bmp")
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("c:\windows\1.bmp") （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("x1="): y1 = InputBox("y1=")
x2 = InputBox("x2="): y2 = InputBox("y2=")
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。
