《Visual Basic程序设计基础》教材习题参考答案第七章
visualbasic程序设计教程第四版答案
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程序设计课后习题答案
习题 11. 填空题(1) Visual Basic 是一种面向 的可视化程序设计语言，采取了 的编程机制。
(2) Visual Basic 的对象主要分为 和 两大类。
(3) 在 Visual Basic 中，用来描述一个对象外部特征的量称之为对象的 。
(4) 在 Visual Basic 中，设置或修改一个对象的属性的方法有两种，它们分别是： 和 。
(5) 在 Visual Basic 中，每个对象一般都能感知和接收多个不同的事件，并能对这些事件作出响应，其响应方式就是通过调用执行一个与之相对应的 来实现的。
(6) 在 Visual Basic 中，事件过程的名字由 、 和 所构成。
(7) 若用户单击了窗体 Form1，则此时将被执行的事件过程的名字应为：。
(8) Visual Basic 的集成开发环境主要由6个部分组成，它们分别是： 、 、 、 、 、 。
2.简答题(1) 简述Visual Basic 的特点(2) 什么是对象的属性、事件和方法？(3) Visual Basic 如何完成对用户操作的响应?(4) 什么是事件? 事件过程的一般格式是怎样的？如何编写对象的事件过程?习题 22.1 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。
100.0 %100 1E1 123D3 123,456 0100“ASDF” “1234.5” #2004/10/7# 100# π&O78 &H123 True T -1123! 345.54#2.2 下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.3452.3 下列符号中，哪些可以是Visual Basic 的合法变量名？A123 a12_3 123_a a,123 a 123 IntegerXYZ False Sin(x) 变量名 sinx π2.4 把下列数学表达式写成Visual Basic 表达式：（1）5||z y x ++ （2）6)1(xy +（3）xy y x 310+ （4）a acb b 242-+-（5）3211111r r r ++ （6）110ln 45sin 10++++y x e2.5 写出下列表达式的值：（1）123 + 23 Mod 10 \ 7 + Asc("A")（2）Int(68.555 * 100 + 0.5) / 100（3）#11/22/2004# - 10（4）"ZXY" & 123 & "abc"2.6 设a=7，b=3，c=4，求下列表达式的值：（1）a + 3 * c （2）a ^ 2 / 4（3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 52.7 写出下列函数的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计")（5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2)（7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3)（9）Left("Hellow VB!", 3) （10）Val("16个加23个")（11）Str(-459.55) （12）UCase("Visual Basic")2.8 选择题（1）可以同时删除字符串前导和尾部空格的函数是 。
《Visual Basic程序设计基础》陈庆章 课后习题参考答案精编版
《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会产生适时错误。
visual basic 程序设计课后习题参考答案
［Exit Function］ End Function
(4). Function 过程的调用方法： ①直接调用 像使用 VB 内部函数一样，只需写出函数名
和相应的参数即可 ②用 Call 语句调用 与调用 Sub 过程一样来调用 Function
过程，当用这种方法调用 Function 过程时，将会放弃返回值 3、简述 VB 过程中参数传递的两种方式。
第五章 数 组
4
一、选择题
1 2 3 4 5 6 7 8 9 10 DADEBBCCC A
二、填空题
1 2、12、1、3、-1、2 0123 2222
2 2101 4444
3 name、index 4 preserve、erase 5 ubound、lbound
第六章 过 程
一、选择题
1 2 3 4 5 6 7 8 9 10 DCDCBABAB D 11 12 13 14 15 16 17 18 19 20 ACCDABCDB C
二、填空题
1 bas 2 形式、实际 3 a()、Ubound(b)、n=n-1 4 30、70 5 fedcba、static
三、简答题
6 static 7 static 8 12、7 9 visual basic 程序设计 10 -100
1、简述事件过程和通用过程的含义和联系。
5
VB 应用程序是由过程组成的，过程是完成某种特殊功能的一 组独立的程序代码。VB 中的过程有两大类：事件过程和通用过程
Visual basic 程序设计习题参考答案
第一章 Visual basic 程序设计
一、选择题
1 2 3 4 5 6 7 8 9 10
DC
CDCBAC B
visual_Basic程序设计教程_课后习题答案及练习
第三章 VB基本语言
一、填空题
1、一般可以使用__________关键字声明常量。
2、______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种
数据类型。
3、变量的声明分为两种方法：__________和____________。 4、在VB中，用___________________语句设定数组的下界，用_____________ 和__________________语句分别返回数组的上、下界。 5、在代码模块中加入Option Explicit的目的是 _____________________。 6、function aa (a1 as date,optional a2 as boolean) as single，写出optional 命令的作用__________________。 7、在VB中，我们用一个简单的______语句就能实现退出程序。 8、生成消息框的命令是____________，生成输入框的命令是 ____________。 9、通用对话框（commondialog）属activex控件，它可以显示多个标准 对话框，包括打开/另存为、字体、打印等对话框，若要显示所有文 件，则应设置其属性filter=____________，若要使它显示为打印对话 框，则应使用什么方法____________。 10、从字符串中任意位置截取字符的函数是__________。 11、语句For j = 3 To 20 Step 3 使循环体执行了______次。 12、对于正在使用的动态数组Arraya()，要增加一个单元，但不能破坏数组内的数据，则应
二、选择题
1、下面不是VB工作模式的是（ ） A．设计模式 B．运行模式 C．汇编模式 D．中断模式 2、可视化编程的最大优点是（ ） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（ ） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键 C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（ ） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（ ） A．可视化 B．面向对象 C．面向图形 D．事件驱动
C语言程序设计教程第七章课后习题参考答案
C语言程序设计教程第七章课后习题参考答案P198 3 求主、副对角线元素之和#include#define M 4#define N 4int main(){int a[M][N]={1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16}; int i,j,m=0,n=0;for(i=0;i<m;i++)< p="">{for(j=0;j<n;j++)< p="">{printf("%4d",a[i][j]);}printf("\n");}for(i=0;i<m;i++)< p="">{for(j=0;j<n;j++)< p="">{if(i==j)m+=a[i][j];}}printf("主对角线元素之和为:%d\n",m);for(i=0;i<m;i++)< p="">{for(j=0;j<n;j++)< p="">{if(i+j==3)n+=a[i][j];}}printf("副对角线元素之和为:%d\n",n); return 0;}P198 4数组逆序存放#includevoid input(int a[],int n);void reverse(int a[],int n);int main(){int a[5];int size=sizeof(a)/sizeof(int);input(a,size);reverse(a,size);printf("\n");return 0;}void input(int a[],int n){int i;printf("请输入%d个整数:\n",n);for(i=0;i<n;i++)< p="">{scanf("%d",&a[i]);}}void reverse(int a[],int n) {int i,t;for(i=0;i<="" p="">{t=a[i];a[i]=a[5-i-1];a[5-i-1]=t;}for(i=0;i<n;i++)< p=""> {printf("%-3d",a[i]);}}198 4数组逆序存放(2)#includevoid reverse(int a[],int n); void print(int a[],int n);int main(){int a[]={1,2,3,4,5,11,16,13}; int size=sizeof(a)/sizeof(int); print(a,size);reverse(a,size);printf("\n");return 0;}void print(int a[],int n){int i;printf("原:\n");for(i=0;i<n;i++)< p="">{printf("%-4d",a[i]);}printf("\n");}void reverse(int a[],int n){int t,i;printf("逆序:\n");for(i=0;i<="" p="">{t=a[i];a[i]=a[n-1-i];a[n-1-i]=t;}for(i=0;i<n;i++)< p="">{printf("%-4d",a[i]);}}P198 5对称矩阵#includevoid print(int a[][3],int rows,int cols); int fun(int a[][3],int rows,int clos); void main(){int a[3][3],i,j;printf("input:\n");for(i=0;i<3;i++){for(j=0;j<3;j++)scanf("%d",&a[i][j]);}print(a,3,3);if(fun(a,3,3)==0)printf("此矩阵是对称矩阵\n");elseprintf("此矩阵不是对称矩阵\n"); } void print(int a[][3],int rows,int cols) {int i,j;for(i=0;i<rows;i++)< p="">{for(j=0;j<cols;j++)< p="">printf("%-4d",a[i][j]);printf("\n");}}int fun(int a[][3],int rows,int clos) {int i,j,x=0;for(i=0;i<rows;i++)< p="">{for(j=0;j<clos;j++)< p="">{if(a[i][j]!=a[j][i]) x++;}}if(x>0) return 1;else return 0;}P198 5对称矩阵(2)#include#define M 3#define N 3void print(int a[][N],int m,int n); int yan(int a[][N],int m,int n); int main(){int a[][N]={1,2,3,4,5,6,7,8,9}; print(a,M,N);if(yan(a,M,N))printf("YES\n");elseprintf("NO\n");return 0;}void print(int a[][N],int m,int n) {int i,j;for(i=0;i<m;i++)< p="">{for(j=0;j<n;j++)< p="">{printf("%-4d",a[i][j]);}printf("\n");}}int yan(int a[][N],int m,int n){int i,j,x=0;for(i=0;i<m;i++)< p="">{for(j=0;j<n;j++)< p="">{if(a[i][j]!=a[j][i]) x++;}}if(x>0) //不是对称矩阵return 0;return 1;}P198 6矩阵求和#include#define M 3#define N 3void input(int a[][N],int m,int n);void sum(int a[][N],int b[][N],int m, int n); void print(int a[][N],int m,int n);int main(){int a[M][N];int b[M][N];printf("请输入%d*%d阶矩阵A:\n",M,N);input(a,M,N);print(a,M,N);printf("请输入%d*%d阶矩阵B:\n",M,N);input(b,M,N);print(b,M,N);printf("A+B=\n");sum(a,b,M,N);return 0;}void input(int a[][N],int m,int n){int i,j;for(i=0;i<m;i++)< p="">{for(j=0;j<n;j++)< p="">{scanf("%d",&a[i][j]);}}}void print(int a[][N],int m,int n){int i,j;for(i=0;i<m;i++)< p="">{for(j=0;j<n;j++)< p="">{printf("%4d",a[i][j]);}printf("\n");}}void sum(int a[][N],int b[][N],int m,int n) {int i,j;int c[M][N];for(i=0;i<m;i++)< p="">{for(j=0;j<n;j++)< p="">{c[i][j]=a[i][j]+b[i][j];}}print(c,M,N);}P198 7模拟骰子投掷#include#include#define N 10000int main(){int a[N],i;double x=0,y=0,z=0,l=0,m=0,n=0; for(i=0;i<n;i++)< p="">{a[i]=rand()%6+1;if(a[i]==1)x++;if(a[i]==2)y++;if(a[i]==3)z++;if(a[i]==4)l++;if(a[i]==5)m++;if(a[i]==6)n++;}printf("出现1的概率为:%lf\n",x/N); printf("出现2的概率为:%lf\n",y/N); printf("出现3的概率为:%lf\n",z/N); printf("出现4的概率为:%lf\n",l/N); printf("出现5的概率为:%lf\n",m/N); printf("出现6的概率为:%lf\n",n/N); return 0;}P67 1最大奇、偶数#include#define M 10int main(){int i,a[M];int max1=-1,max2=-1;for(i=0;i<m;i++)< p="">{printf("请输入第%d个正整数:",i+1); scanf("%d",&a[i]);}for(i=0;i<m;i++)< p="">{if(a[i]%2!=0){if(a[i]>max1)max1=a[i];}else{if(a[i]>max2)max2=a[i];}}if(max1==-1)printf("没有奇数\n");elseprintf("最大奇数是%d\n",max1); if(max2==-1)printf("没有偶数\n");elseprintf("最大偶数是%d\n",max2); return 0;}P69 3#includeint main(){int a[20];int p=0,n=0,i,j=0;double avg,sum=0;printf("请输入非0整数:"); while(1){scanf("%d",&a[j]);if(a[j]==0)break;j++;}for(i=0;i<j;i++)< p="">{sum=sum+a[i];}avg=sum/j;printf("平均数:%lf",avg);for(i=0;i<j;i++)< p="">{if(a[i]>0)p++;if(a[i]<0)n++;}printf("正数个数:%d 负数个数:%d\n",p,n); return 0;}P75 2冒泡排序#include#define N 10void bubble_sort(int a[],int n);void main(){int i, a[N]={1,3,6,8,9,2,11,12,14,7}; printf("原数组为:\n");for(i=0;i<n;i++)< p="">{printf("%4d",a[i]);}bubble_sort(a,N);printf("\n");}void bubble_sort(int a[],int n) {int i,j,tmp;for(i=0;i<n-1;i++)< p=""> {for(j=0;j<n-i-1;j++)< p=""> {if(a[j]>a[j+1]){tmp=a[j];a[j]=a[j+1];a[j+1]=tmp;}}}printf("\n");printf("排序后的数组为:\n"); for(i=0;i<n;i++)< p=""> {printf("%4d",a[i]);}}P76 3 成绩#includevoid input(int cla[50][3],int n); void print(int cla[50][3],int n);void sort(int cla[50][3],int n);void main(){int cla[50][3];int n;printf("请输入学生人数(小于50)：\n"); scanf("%d",&n);if(n<=0 || n>=50)printf("error,请输入正确的人数。
VisualBasic程序设计综合教程第7章过程
7.2 过程 7.2.1 过程的概念 1 过程 过程是构成程序的一个模块，往往用来完成一个相对独立的功能。过程可以使程序更清晰，更具有结构性，所以把程序分割成较小的逻辑部件就可以简化程序设计的任务,这些部件称为过程。 2 用过程编程有两大好处
(1) 过程可以把程序划分成离散的，较小的逻辑单元，每个单元都比无过程的整个程序容易调试，而且过程可用于压缩重复任务或共享任务。 (2) 一个程序中的过程，往往不必修改或只需稍作改动，便可以成为另一个程序的构件。 3 Visual Basic中过程的分类 (1) 通用过程 通用过程包括子程序过程（或称作Sub过程）和函数过程（或称作Function 过程）。 (2) 事件过程
'编写求平均成绩过程st_sum Public Sub st_sum() For i = 1 To 10 Sum = Sum + stscore(i) Next i Text3 = Sum / 10 '在文本框中输出 End Sub '编写求最高，最低成绩过程Max_min Public Sub Max_min() Max = stscore(1) Min = stscore(1) For i = 1 To 10 If Max < stscore(i) Then Max = stscore(i) If Min > stscore(i) Then Min = stscore(i) Next i Text1 = Max '在文本框中输出 Text2 = Min '在文本框中输出 End Sub
Label3
Caption
平均成绩
Label4
Caption
从高到底排序
Text1
Text
Text1
VB教材课后习题答案
<大学程序设计基础-Visual Basic>教材课后习题答案第1章一、选择题1 2 3 4 5 6 7B D BC B B D第2章一、选择题1 2 3 4 5 6 7 8 9 10B C B C B C A A A A11 12 13 14A B A A二、填空题1.rem或’ _ ：2.“” # #3.5x2-3x-2sinA/34.3214565.300三、操作题1、程序段：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s As Long, c As Longx = Text1.Texty = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = "长方形的面积为" + Str(s)Label4.Caption = "长方形的周长为" + Str(c)End Sub3、程序段：Private Sub Command1_Click()Text1.Text = "第一"End SubPrivate Sub Command2_Click()Text1.Text = "第二"End Sub4、程序代码：Private Sub Text1_Change()Text1.MaxLength = 10End Sub5、程序代码：Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub第3章一、选择题1 2 3 4 5 6 7D A D B A D B二、填空题1. False2.B^2-4*a*c else三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。
如果能构成一个三角形，则计算三角形的面积。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第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()
Shape1.Shape = 0
End Sub
Private Sub Oval_Click()
Shape1.Shape = 2
End Sub
Private Sub Circle_Click()
Shape1.Shape = 3
End Sub
Private Sub Rrec_Click()
Shape1.Shape = 4
End Sub
Private Sub RSqr_Click()
Shape1.Shape = 5
End Sub
Private Sub Shp_Click()
Shape1.FillStyle = 2
End Sub
Private Sub Shzh_Click()
Shape1.FillStyle = 3
End Sub
Private Sub Xiex_Click()
Shape1.FillStyle = 4
End Sub
Private Sub ShPJ_Click()
Shape1.FillStyle = 6
End Sub
Private Sub XJ_Click()
Shape1.FillStyle = 7
End Sub
Private Sub FillColor_Click()
CommonDialog1.ShowColor
Shape1.FillColor = CommonDialog1.Color End Sub
Private Sub Exit_Click()
End
End Sub。