VB教材章后习题Word文档格式.docx

1、不能显示图形是因为Style属性设成了Standard，只要改为Graphical即可，一般还要将Caption属性的值设置为空。9标签和文本框的区别是什么？【答】标签和文本框都可以在窗体上显示文字。区别在于：标签的内容在Caption属性内，在窗体上只能显示文字，不能编辑；文本框的内容在Text属性内，在窗体上可直接对其内容进行编辑。10当窗体上有3个文本框和1个命令按钮，若程序运行时，要求焦点定位在第三个文本框（Text3）处，应对何控件的什么属性进行何种设置？【答】对Text3控件进行Text3.TabIndex = 0的设置。11若要对窗体上的3个文本框输入数据，各控件焦点的移动可通过

2、Tab键（系统本身具有的），也可以通过回车键，则要对文本框的什么事件编程？【答】对文本框的KeyPress事件编程。例如，当焦点在Text1时，输入数据按Enter键后，让焦点跳到Text2文本框。程序如下： Private Sub Text1_KeyPress（KeyAscii As Integer） If KeyAscii = 13 Then Text2.SetFocus End If End Sub12当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到该文本框重新输入？【答】假定文本框的名称为Text1，则事件过程如下： If 出错条件判断成立

3、Then Text1 = ” Text1.SetFocus End If13当运行程序前，对某些控件设置属性值，除了在窗体中直接设置外，还可以通过代码设置，这些代码一般放在什么事件中？例如，程序要将命令按钮定位在窗体的中央，请写出事件过程。【答】这些代码一般放在Form_Load（）事件过程中。将窗体定位在屏幕的中央，只能通过属性窗口对Form1窗口的StartUpPosition属性设置为2（表示屏幕中心），该属性不能放在运行时设置。要将按钮定位在窗体的中央，事件过程如下： Private Sub Form_Load（） Command1.Left = Form1.ScaleWidth2Co

4、mmand1.Width2 Command1.Top = Form1.ScaleHeight2Command1.Height2其中，ScaleWidth和ScaleHeight表示窗体的相对宽度和高度。习题三1【答】。23456利用Shell（）函数，在VB程序中分别执行画图和Word应用程序。【答】调用Shell（）函数，形式为： Shell（”C:Program FilesAccessoriesMspaint.exe”,1）Program FilesMicroSoft OfficeWinword.exe”,1）7Visual Basic提供了哪些标准数据类型？声明类型时，其类型关键字分别是

5、什么？其类型符又是什么？【答】见教材P53表1.3.1。8哪种数据类型所需内存容量最少，且可存储例如3.2345这样的值？【答】单精度。9将数字字符串转换成数值，用什么函数？判断是否是数字字符串，用什么函数？取字符串中的某几个字符，用什么函数？大小写字母间的转换，用什么函数？【答】将数字字符串转换成数值，用Val函数； 用IsNumeric（）函数可判断是否是数字字符串； 用Mid（）函数取字符串中的某几个字符； 用Ucase（）函数将小写字母转换成大字母； 用Lcase（）函数将大写字母转换成小字母。10要使单精度变量x、y 、z分别保留1位、2位、3位小数点，并在窗体显示，使用什么函数？如

6、何写对应的Print方法？【答】使用Format（）函数，显示1位小数位：Print Format（x, ”0.0”）。显示2位小数位：Print Format（y, ”0.00”）。显示3位小数位：Print Format（z, ”0.000”）。习题四1指出下列赋值语句中的错误（包括运行时要产生的错误）。 10x = Sin（x） + y c = 3 + sqr（-3） c + x + y = c * y x = Sin（x） / （20 Mod 2）【答】 “10x”是一个非法的变量名。 用负数开平方。 左边为表达式。 分母为零。2MsgBox作为函数使用时与InputBox的区别？各自

7、获得的是什么值？【答】MsgBox返回所按按钮对应的值，InputBox返回文本框输入的值。3语句：If 表达式 Then 中的表达式可以是算术、字符、关系、逻辑表达式中的哪些？【答】可以是算术、关系、逻辑表达式。4指出下列语句中的错误。 If x y Then print x If 10 x = A and c az小写字母 End If【答】 “”应写成“=”。 VB中表示x的范围“10x10 And x 20 Then y = x * x + 3 * x + 2 ElseIf x 20 y = x * x + 3 * x + 2 Case Is y Then Max = x Else M

8、ay = y If z Max Then Max = z 利用IIf函数： Max = Iif（x y ,x ,y） Max = Iif（Max z ,Max ,z）6计算下列循环语句的次数： For I = -3 To 20 Step 4 For I = -3.5 To 5.5 Step 0.5 For I = -3.5 To 5.5 Step 0.5 For I = -3 To 20 Step 0【答】 循环6次、循环体内I的值分别为：-3，1，5，9，13，17、出循环后I的值为21。 循环19次。 不循环。 循环无数次，无法终止。7下列3090为语句标号，分别标记该语句，第40句共执行

9、了几次？第50句共执行了几次？第90句语句显示的结果是多少？30 For J = 1 To 12 Step 340 For K = 6 To 2 Step -250 Mk = K60 Print J,K70 Next K80 Next J90 Print J,K,Mk【答】第40句是外循环的循环体，共执行了4次；第50句是内循环的循环体，共执行了12次；第90句语句显示的结果是：13 0 2 。8如果事先不知道循环次数，如何用For Next结构来实现？【答】将循环终值设置为一个非常大的值，然后在循环体内增加If语句，判断是否满足循环结束条件。形式如下： For 循环变量 = 1 To 非常大

10、的数 If 循环结束条件 Then Exit For Next 循环变量9利用循环结构，实现如下功能： 分别统计1100中，满足3的倍数、7的倍数的数各为多少个？ 将输入的字符串，以反序显示。例如输入“ASDFGHJKL”，显示“LKJHGFDSA”。【答】 S = 0 For I = 1 To 10 S = S + （I + 1） * （2 * I + 1） Next I S3 = 0 S7 = 0 For I = 1 To 100 If I Mod 3 = 0 Then S3 = S3 + 1 If I Mod 7 = 0 Then S7 = S7 + 1 S = InputBox（“请输

11、入字符串：”） For I = Len（S） To 1 Step -1 Print Mid（S,I,1）;10下面程序运行后的结果是什么？该程序的功能是什么？ Private Sub Command1_Click（） Dim x$,n% n = 20 x = Do While n 0 a = n Mod 2 n = n 2 x = Chr（48 + a） & x Loop Print x【答】运行后结果为10100，该程序的功能是将十进制数转换成二进制字符串。11下面程序运行后的结果是什么？ Dim x%,y%,z% x = 242 : y = 44 z = x * y Do Until x

12、= y y Then x = x - y Else y = y - x Print x,z/x【答】运行后结果为22和484，该程序的功能是用辗转相减法求x、y的最大公约数和最小公倍数。12利用随机函数产生20个50100范围内的随机数，显示它们的最大值、最小值和平均值。【答】 Private Sub Command1_Click（） Max = 50 Min = 100 Sum = 0 For i = 1 To 20 x = Int（Rnd * 51 + 50） Print x; If x Max Then Max = x If x Max Then Max = c（i,j） : Maxi

13、= i : Maxj = j End if 二维数组形式输出，必须通过两重循环。 对于下三角形式比较简单，每一行总是从最左边开始输出，只要控制每一个元素的宽度即可；而对于上三角形式，则要控制每一行第一个元素输出的位置，这一般是通过Tab函数实现。 输出下三角元素： For j = 1 To i Print a（i,j） ; Space（4 Len（a（i,j）; 输出上三角元素： For j = i To 4 Print Tab（j * 4） ; b（i,j）;说明：Space（4Len（a（i,j）表示每个元素占4位，其中空格数目与实际数值位数有关。 For i = 1 To 4 t = a

14、（1,i） : a（1,i） = a（3,i） : a（3,i） = t 矩阵的对角线有主对角线和副对角线两条。 Sum = 0 Sum = Sum + a（i,j） + a（i,5 - i） 关键要找出两维数组各元素和一维数组各元素的关系。 Dim a（3,3）,d（15） For j = 0 To 3 For i = 0 To 3 k = j * 4 + i d（k） = a（i,j） Next j8声明一个有20个元素的一维字符类型数组，要求： 由随机数形成小写字母构成的数组，每个元素的字符个数由随机数产生，范围111。 要求将生成的数组分4行显示。 显示生成的字符数组中字符最多的元素。

15、【答】 可利用随机函数产生长度不超过11个字符的字符串。 Dim st（1 To 20） As String,c As String * 1 Dim i%,n% For i = 1 To 20 n = Int（Rnd * 11 + 1） For j = 1 To n c = Chr（Int（Rnd * 26 + 97） st（i） = st（i） & c 分4行显示，则每行显示5个数组元素，可利用Mod取余运算实现。考虑到每个数组元素的字符长度不等，需增加空格来对齐。 字符数组生成后，实现输出的程序段如下： Print st（i）; Space（15 Len（st（i）; If i Mod 5 = 0 Then Print 求最长的数组元素，程序段如下： maxlen = 0 maxstr = “ If Len（st（i） maxlen Then maxlen = Len（st（i） maxstr = st（i） End if Print maxlen, maxstr9自定义一个职工类型，包含职工号、姓名和工资。声明一个职工类型的动态数组。输入n个职工的数据，要求按工资递减的