当前位置：文档之家› Visual Basic 6.0 程序设计教程答案龚沛曾(第三版)

Visual Basic 6.0 程序设计教程答案龚沛曾(第三版)

习题一

2. 需要重新安装

3. VB启动时可以看到

6. 保存两个文件。窗体文件（FRM）-工程文件（VBP）。

7. 默认保存在VB6.EXE所在的文件夹。

8. 帮助系统要另外安装（MSDN）

其他题目答案可在教材中找到。

习题二

第1-9题答案在教材中找。

10. 启动窗体时将命令按钮定位在窗体中央的代码

Private Sub Form_Load()

Command1.Left = Form1.ScaleWidth / 2 - Command1.Width / 2

Command1.Top = Form1.ScaleHeight / 2 - Command1.Height / 2

End Sub

11．图片文件在 C:\Program Files\Microsoft Visual Studio\Common\Graphics 文件夹。

安装VB时可选择是否安装这些图片文件。

习题三

1. 合法常量：

(1) Double(2) 错误(3) Double(4) Double

(5) 错误(6) Integer(7) String(8) String

(9) Date(10) Double(11) 错误（汉字字符）(12)Integer(八进制) (13) 错误（八进制无数码8）(14) Integer(15) Boolean(16) 错误

(17) 错误（十六进制无数码g）(18) Single

说明：浮点型变量默认为Double类型而非Single。

2. 合法变量名：

(1) √(2) √(3) 误：数字开头(4) 误：含空格

(5) 误：关键字(6) √(7) 误：关键字(8) 误：有括号

(9) √(10) √(11) √(12) √（汉字字符可作为变量名，但不常

用，且此名称易误解）

变量命名规则见P.41-42。

字母（汉字）开头，字母（汉字）、数字、下划线组成，长度为1-255个字符；关键字不可

作为变量名，但可在变量名中嵌入关键字；不区分大小写。

常量、数组、类型、函数、过程、对象命名规则与此相同。常量名通常全用大写。

3. 写VB表达式

(1) Abs(x + y) + z ^ 5

(2) (1 + x * y) ^ 6

(3) (10 * x + Sqr(3 * y)) / (x * y)

(4) (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)

(5) 1 / (1 / r1 + 1 / r2 + 1 / r3)

(6) Sin(45 * 3.14159 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1)

4. 根据条件写表达式

(1) 随机产生大写字母 Chr(Int(Rnd * (Asc("L") - Asc("C") + 1) + Asc("C")))

(2) [100,200]内的随机数 Int(Rnd * 101) + 100

(3) 点(x,y)位于第一或第三象限 x > 0 And y > 0 Or x < 0 And y < 0 或 x * y > 0

(4) x是5或7的整数倍 x Mod 5 = 0 Or Int(x / 7) = x / 7

(5) 将两位整数x的个位与十位对换 x \ 10 + (x Mod 10) * 10

(6) 四舍五入取两位小数 Round(x, 2)

(7) 字符变量C是字母字符（不区分大小写）——准确地说是：字符变量C的第一个字符是字母

C >= "A" And C <= "Z" Or C >= "a" And C < "z"

或 UCase(C) >= "A" And UCase(C) <= "Z"

或 LCase(C) >= "a" And LCase(C) <= "z"

(8) 字符变量S第5个字符起取6个字符 Mid(S, 5, 6)

(9) 10≤x＜20 10 <= x And x < 20

(10) x，y至少有一个小于z x < z Or y < z

(11)x，y都大于z x > z And y > z

5. 写表达式的值

(1) 188 ——注意运算的优先级顺序，以及整除运算“\”的计算

(2) 200100 ——计算100 + "100"时，由于两个操作数类型不同，在可能的情况下自动采用精度较高的类型，即把字符型转换为数值型，100 +100 得到200；然后进行字符串连接运算200 & 100 ，再自动将两个数值转换为字符串，得200100。

(3) 68.56 ——在四舍五入函数产生之前，这就是四舍五入的计算方法

(4) 876554 ——先进行字符串的“+”运算，再转换成数值。在变量名和函数名后可加上类型符，以强调其类型，但不是必须的。

(5) 2000-2-29

(6) 6

6．Shell函数调用

i = Shell("mspaint.exe", 1) '启动画图

i = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe", 1) '启动Word

说明：“画图”是Windows本身提供的程序，可以省略路径。

8. 答：单精度浮点型

习题四

第1，3，5，8题答案在教材中找。

2. 赋值语句的错误

（1）10x 不能做变量名。

上机验证结果：VB将10识别为行号，x = Sin(x) + y是为变量x赋值。故无语法错误。（2）Sqr函数的参数为负数。

上机验证结果：“无效的过程调用或参数”

（3）赋值号左边不是变量名。

上机验证结果：“缺少子程序、函数或属性”

（4）除数为0

上机验证结果：“溢出”。

4. [答案略]

说明：小数位可以使用四舍五入函数Round或输出格式函数Format。例如Round(x, 2)和Format(x, “0.00”)均可使结果只保留两位小数。但如果四舍五入后要进行数值运算，则使用Round函数，例如z=Round(x,2)+Round(y,2)。而Format函数通常只用于输出格式设置。

6．指出错误

（1）“≥”应改为“>=”，前者是中文字符，不具有运算功能。

（2）“10

7．写条件语句

（1）Dim c As String

c = InputBox("c=")

If Mid(c, 3, 1) = "C" Then

MsgBox "Yes"

Else

MsgBox "No"

End If

（2）# 使用If语句

Dim x As Single, y As Single

x = Val(InputBox("x="))

If x > 20 Then

y = x ^ 2 + 3 * x + 2

ElseIf x >= 10 Then

y = Sqr(3 * x) - 2

ElseIf x > 0 Then

y = 1 / x + Abs(x)

End If

Print "y="; y

# 使用Select Case语句

Dim x As Single, y As Single

x = Val(InputBox("x="))

Select Case x

Case Is > 20

y = x ^ 2 + 3 * x + 2

Case Is >= 10

y = Sqr(3 * x) - 2

Case Is > 0

y = 1 / x + Abs(x)

End Select

Print "y="; y

（3）# 使用If语句

Dim x As Single, y As Single, z As Single, Max As Single

x = Val(InputBox("x="))

y = Val(InputBox("y="))

z = Val(InputBox("z="))

Max = x

If y > Max Then Max = y

If z > Max Then Max = z

Print "Max="; Max

# 使用IIF函数

x = Val(InputBox("x="))

y = Val(InputBox("y="))

z = Val(InputBox("z="))

Max = IIf(x > y, x, y)

Max = IIf(z > Max, z, Max)

Print "Max="; Max

9. 计算循环次数

（1） 6

（2）19

（3）0

（4）死循环直至溢出

10. 40号语句执行 4次；第50 号语句执行12次；

执行第90号语句输出的结果是： 13，0，2

说明：该程序为嵌套循环，其中外循环由j值变化（1，4，7，10）控制执行4次，当j值为13时结束循环；内循环由k值变化（6，4，2）控制执行3次，当k值为0时结束循环。第40 行是外循环的循环体，故执行4次；第50 行是内循环的循环体，故执行4*3=12次。

11. 可以定一个较大的循环次数，在循环体中根据条件用Exit For退出。

但这种情况通常用Do While循环控制。

12. 编程（并非唯一正确答案）

（1）Dim i As Integer, s As Integer

For i = 1 To 10

s = s + (i + 1) * (2 * i + 1)

Next i

Print "s="; s

（2）Dim i As Integer, n3 As Integer, n7 As Integer

For i = 1 To 100

If i Mod 3 = 0 Then n3 = n3 + 1

If Int(i / 7) = i / 7 Then n7 = n7 + 1

Next i

Print "1-100中3的倍数有"; n3; "个"

Print "1-100中7的倍数有"; n7; "个"

（3）Dim s1 As String, s2 As String, i As Integer

s1 = InputBox("Input String")

s2 = ""

For i = 1 To Len(s1)

s2 = Mid(s1, i, 1) + s2

Next i

Print "原序："; s1

Print "反序："; s2

或

For i = Len(s1) To 1 Step -1

s2 = s2 + Mid(s1, i, 1)

Next i

13. 输出字符串“10100”。该程序功能是将十进制数转化为二进制。

说明：要理解该程序需要了解数制转换的计算方法（有兴趣者参看百度百科https://www.doczj.com/doc/3517952058.html,/view/1426817.htm）。48是字符"0"的ASCII码。

14. 运行时输出 22 484

该程序功能是求x和y最大公约数和最小公倍数。

说明：此算法称为“辗转相减法”。可对照例4.17的辗转相除（辗转求余）法。

15．[50，100]间的20个随机数，求最大值、最小值、平均值。

Dim x As Integer, sum As Integer, aver As Single

Dim n%, i%, max%, min%

Randomize

max = 50: min = 100: n = 20

For i = 1 To n

x = Int(Rnd * 51 + 50)

List1.AddItem x

sum = sum + x

If x > max Then max = x

If x < min Then min = x

Next i

aver = sum / n

Print "最大值："; max, "最小值："; min, "平均值："; aver

习题五

1. 指定数组的默认下界 Option Base 1

2．合理的数组声明

（1）错。定义数组不可用变量（教材99页）。

（2）正确。该数组下标为0-11。

（3）错。VB中数组下标用圆括号。

（4）正确。三维数组三个下标分别为0-1，0-1，0-2，共12个元素。

（5）错误。非动态数组，不可重定义。

（6）错误。动态数组重定义时不可改变数据类型。

（7）正确。二维数组两个下标分别为0-2，0-3，共12个元素。

（8）语法错误，二维数组定义中漏写逗号——可能是印刷错误，加上此逗号则正确。

3．当引用数组元素时下标值小于定义的最小下标，或大于最大下标时，会发生“下标越界”错误。

4．数组名：a ；数组类型：Single（单精度浮点型）；维数：二维；

各维的上下界：第一维下界（最小下标）为 -1，上界（最大下标）为2，

第二维下界（最小下标）为 0，上界（最大下标）为3；

数组的大小：4行4列共16个元素

以矩阵的格式输出二维数组：

For i = -1 To 2

For j = 0 To 3

Print a(i, j);

Next j

Next i

或写成更加通用的代码形式：

For i = LBound(a, 1) To UBound(a, 1)

For j = LBound(a, 2) To UBound(a, 2)

Print Tab(j * 8); a(i, j);

Next j

Next i

6．一维字符数组

Dim a(1 To 20) As String

Private Sub Command1_Click() '(1)随机产生字符串

Dim i As Integer, j As Integer, n As Integer, c As String * 1

Randomize

For i = 1 To 20

a(i) = "" '将第i个元素清空

n = Int(Rnd * 10 + 1) '产生[1,10]的随机数

For j = 1 To n 'a(i)中有n个字符

c = Chr(Int(Rn

d * 26 + 97)) '随机产生字母97是字母a的ASCII码 a(i) = a(i) + c

Next j

Next i

End Sub

Private Sub Command2_Click() '(2)输出字符串

Dim i As Integer

For i = 1 To 20

Print Tab(((i - 1) Mod 5) * 11); a(i);

If i Mod 5 = 0 Then Print

Next i

End Sub

Private Sub Command3_Click() '(3)最长的字符串

Dim i As Integer, imax As Integer

imax = 1

For i = 2 To 20

If Len(a(i)) > Len(a(imax)) Then

imax = i

End If

Next i

Print "最长的字符串："; a(imax)

End Sub

第7，8题答案在教材中找。

第9题“自定义变量”含义不明，暂时无法回答。

习题六

第1，2，6-8题答案可在教材中找到。

3．指出过程说明中的错误

（1）Sub子过程不应该定义类型

（2）函数与形式参数不应该同名

（3）数组作为形式参数时，应使用传地址方式，不可使用传值（ByVal）

（4）形式参数应该是变量或数组名，不可以是一个数组元素

4．指出调用过程语句的错误

（1）无语法错误，但因形参sum所对应的实参是常量3，故计算结果无法传递给主调程序。（2）实参变量c与形参sum的类型不一致。

（3）类似于（1），形参sum所对应的实参是表达式a+b，故计算结果无法传递给主调程序。（4）类似于（1）和（2），形参sum所对应的实参是表达式Sqr(c)，故计算结果无法传递给主调程序。另外srq(a)存在语法错误（拼写错）。

（5）与（2）相同，实参c与形参sum的类型不一致。

5．迭代法求平方根

（1）自定义函数的定义及调用

Function FSqr1(a As Single) As Single Dim x0 As Single, x As Single

x = a

x0 = x

x = (x0 + a / x0) / 2

Loop While Abs(x - x0) > 0.00001 FSqr1 = x

End Function

Private Sub Command1_Click()

Dim x!, y!

x = Val(InputBox("x="))

If x >= 0 Then

y = FSqr1(x)

Print y

End If

End Sub

（2）自定义子过程的定义及调用

Sub FSqr2(a As Single, x As Single) Dim x0 As Single

x = a

x0 = x

x = (x0 + a / x0) / 2

Loop While Abs(x - x0) > 0.00001

End Sub

Private Sub Command2_Click()

Dim x!, y!

x = Val(InputBox("x="))

If x >= 0 Then

Call FSqr2(x, y)

Print y

End If

End Sub

（3）递归函数及调用 [略]

习题七

第1-9题，答案在教材上找；第10，12-14题，略。

11．检测Ctrl和F3同时按下的代码：

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 2 And KeyCode = 114 Then MsgBox "HAHA"

End Sub

习题八

第1，2，6，7，9题答案可阅读教材找到。

3．写Open语句

（1） Open "Seqnew.dat" For Output As #1 '重写

或 Open "Seqnew.dat" For Append As #1 '添加

（2）Open "Seqold.dat" For Input As #2

（3）Open "Seqappend.dat" For Append As FreeFile

4．编程，将文件Text.dat 读入变量strTest。

Dim strTest As String

Open "Text.dat" For Input As #2

Do While Not EOF(2)

strTest = strTest + Input(1, #2)

Loop

8．本课程不涉及二进制文件。故此处以顺序文件读写方式编程。另外合并的结果可以是合并到其中某一个文件，也可以是合并到一个新的文件，此处代码是合并到其中一个文件

F1.txt。

'方法一，在2号文件一次读一个字符并写入1号文件

Dim strTemp As String * 1

Open "d:\F1.txt" For Append As #1

Open "d:\F2.txt" For Input As #2

Do While Not EOF(2)

strTemp = Input(1, #2)

Print #1, strTemp; '注意结尾有分号，否则每个字符一行

Loop

'方法二，在2号文件一次读一个字符并累加，最后将累加结果写入1号文件 Dim strTemp As String '注意方法一变量定义的区别

Open "d:\F1.txt" For Append As #1

Open "d:\F2.txt" For Input As #2

strTemp = ""

Do While Not EOF(2)

strTemp = strTemp + Input(1, #2)

Loop

Print #1, strTemp

习题九

答案在教材上找。

习题十

答案在教材上找。

VisualBasic程序设计_0004

Visual Basic程序设计_0004 一、单项选择题（共10 道试题，共40 分。） 1. 一旦数据到达，将首先触发Winsock控件的（）。 A. DataArrival事件 B. ConnectionRequest事件 C. DataSend事件 D. DataGet事件 2. 以下叙述中错误的是（）。 A. 一个工程中只能有一个Sub Main过程 B. 窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体 C. 窗体的Hide方法和Unload方法的作用完全相同 D. 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 3. 若要将窗体从内存中卸载，其实现的方法是（）。 A. Unload B. Show C. Load D. Hide 满分：4 分 4. 下列数组声明语句，正确的是（）。 A. Dim a[3,4] As Integer B. Dim a(3 4) As Integer C. Dim a(n,n) As Integer D. Dim a(3,4) As Integer 满分：4 分 5. 控件（）没有Caption属性。

A. Label B. OptionButton C. Frame D. ListBox 满分：4 分 6. Visual Basic提供的常见鼠标事件中，鼠标按下所引发的事件为（）。 A. MouseDown事件 B. Click事件 C. MouseUp事件 D. MouseMove事件满分：4 分 7. 下列数据类型中，（）占用内存最小。 A. Boolean B. Byte C. Integer D. Long 满分：4 分 8. 无论何种控件，共同具有的属性是（）。 A. Text B. Name C. Caption D. ForeColor 满分：4 分 9. 要暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是（）。 A. Visible B. Timer

VB程序设计课后习题答案(科学出版社)

同步练习1 二、选择题 01——05 CADAB 06——10 ACDAB 11——15 CBDBB 同步练习2 二、选择题 01——05 ABDCA 06——10 CACBC 11——15 DADAD 16——20 BDBBB 三、填空题 1．可视 2．LEFT、TOP、WIDTH、HEIGHT 3．按字母顺序 4．查看代码 5．工具、编辑器 6．FORM窗体、FONT 7．MULTILINE 8．在运行时设计是无效的 9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0 同步练习3 二、选择题 01——05 BCADB 06——10 ADBBC 11——15 DBCBA 16——20 BAABB 三、填空题 1．整型、长整型、单精度型、双精度型 2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-19 4．FALSE 5．-4、3、-3、3、-4、4 6．CDEF 7．(X MOD 10)*10+X\10 8．(35\20)*20=20 ( 35 \ 20 )* 20 = 20 9．X MOD 3=0 OR X MOD 5=0 10．27.6、8.2、8、1、100、397、TRUE、FALSE 同步练习4 一、选择题 01——05 DBCAD 06——10 CBBAB

11——15 D25BAC 16——20 CBACB 21——25 DAABC 二、填空题 1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 3 3．X>=7 4．X

vb课后习题答案

VB 课后练习题参考答案第一章一、 1、C 2、C 3、B 4、B 5、D 6、B 7、B 8、D 二、 1、学习版、专业版、企业版 2、alt+Q 或 alt+F4 3、.vbp 、 .frm 4、固定、浮动 5、"abcd"、"VB Programing" 6、属性窗口、运行 7、对象框、事件框 8、窗体模块、标准模块、类模块第二章一、 1、B 2、B 3、B 4、B 5、D 6、D 二、 1、((x+y)+z)*80-5*(C+D) 2、cos(x)*sin(sin(x)+1 3、2*a*(7+b) 4、8*EXP(3)*LOG(2) 5、good morning 、 good morning 6、2001/8/25 8 2001 7 第三章一、 1、C 2、B 3、D 4、A 5、D 、 3 6、C 7、B 8、C 9、C 10、D 11、B 12、C 13、B 14、B 15、A 16、B 17、D 18、C 19、C 二、 1、AutoSize 2、text1.setfocus 3、0 、 0 4、 picture1.picture=loadpic ture("yy.gif") 5、stretch 6、interval 7、enable 8、下拉式组合框、简单组合框、下拉式列表框、style 9、下拉式列表框 10、条目1 、条目3 11、欢迎您到中国来、 welcome to china!! 第四章一、 1、B 2、C 3、C 4、B 5、C 6、B 7、C 8、B 9、D 10、A 11、B 12、A 13、B 14、D 15、A 16、B 17、A 18、C 19、B 二、 1、2542=57 2、beijing 3、002.45、2.449、 24.49e-01、-2.449 4、9 10 11 5、9 6、1 2 3 7、 iif(x<=0,y=0,iif(x<=10, y=5+2*x,iif(x<=15,y=x- 5,y=0))) 8、x=7 或 x>6 或 x>5 9、x>=0 、x

GENESIS2000入门教程中英文转换

?GENESIS2000入门教程 Padup谷大pad paddn缩小pad reroute 扰线路Shave削pad linedown缩线line/signal线Layer 层in 里面 out外面Same layer 同一层spacing 间隙cu铜皮 Other layer另一层positive 正 negative负Temp 临时 top顶层bot底层Soldermask 绿油层silk字符层 power 电源导(负片) Vcc 电源层(负片) ground 地层(负片) apply 应用 solder 焊锡singnal 线路信号层soldnmask绿油层input 导入 component 元器件Close 关闭zoom放大缩小create 创建 Reste 重新设置corner 直角step PCB 文档Center 中心 snap 捕捉board 板Route 锣带repair 修理、编辑 resize (编辑)放大缩小analysis 分析Sinde 边、面Advanced 高级 measuer 测量PTH hole 沉铜孔NPTH hole 非沉铜孔output 导出 VIA hole 导通孔smd pad 贴片PAD replace 替换fill 填充 Attribute 属性round 圆square 正方形rectangle 矩形

Select 选择include 包含exclude 不包含step 工作单元 Reshape 改变形状profile 轮廓drill 钻带rout 锣带 Actions 操作流程analyis 分析DFM 自动修改编辑circuit 线性 Identify 识别translate 转换job matrix 工作室repair 修补、改正 Misc 辅助层dutum point 相对原点corner 直角optimization 优化 origin 零点center 中心global 全部check 检查 reference layer 参考层reference selection 参考选择reverse selection 反选 snap 对齐invert 正负调换symbol 元素feature 半径 histogram 元素exist 存在angle 角度dimensions 标准尺寸 panelization 拼图fill parameters 填充参数redundancy 沉余、清除层英文简写层属性顶层文字Top silk screen CM1( gtl ) silk-scren 顶层阻焊Top solder mask SM1 ( gts ) solder-mask 顶层线路Top layer L1 ( gtl ) signal 内层第一层power ground (gnd) PG2 ( l2-pw ) power-ground(负片) 内层第二层signal layer L3 signal (正片) 内层第三层signal layer L4 signal (正片)

VB第一章课后习题答案讲课教案

习题一、单项选择题 1. 在设计阶段，当双击窗体上的某个控件时，所打开的窗体是_____。 A. 工程资源管路器窗口 B. 工具箱窗体 C. 代码窗体 D. 属性窗体 2. VB中对象的含义是_____。 A. 封装了数据和方法的实体 B. 封装的程序 C. 具有某些特性的具体事物的抽象 D. 创建对象实例的模板 3. 窗体Form1的Name属性是MyForm，它的单击事件过程名是_____。 A. MyForm_Click B. Form_Click C. Form1_Click D. Frm1_Click 4. 如果要改变窗体的标题，需要设置窗体对象的_____属性。 A. BackColor B. Name C. Caption D. Font 5. 若要取消窗体的最大化功能，可将其_____属性设置为False来实现。 A. Enabled B.ControlBox C. MinButton D. MaxButton 6. 若要以代码方式设置窗体中显示文本的字体大小，可通过设置窗体对象_____属性来实现。 A. Font B.FontName C.FontSize D. FontBold 7. 确定一个控件在窗体上位置的属性是_____。 A. Width或Height B. Width和Height C. Top或Left D. Top和Left 8. 以下属性中，不属于标签的属性是_____。 A. Enabled B. Default C. Font D. Caption 9. 若要设置标签控件中文本的对齐方式，可通过_____属性实现。 A.Align B. AutoSize C. Alignment D. BackStyle 10. 若要使标签控件的大小自动与所显示文本的大小相适宜，可将其_____属性设置为True来实现。 A.Align B. AutoSize C. Alignment D. Visible 11. 若要设置或返回文本框中的文本，可通过设置其_____属性来实现。 A.Caption B. Name C. Text D. （名称） 12. 若要设置文本框最大可接受的字符数，可通过设置其_____属性来实现。 A.MultiLine B. Max C. Length D. MaxLength

GENESIS基础——步骤

新建料号：导入资料、查看并更正错误: 首先查看层，若出现细线或出现大块的图案为D码有问题！必须在Rep层中点击右键选择D码学习器去修改，打开后出现Wheel Template Editor窗口！若确认是单位错了，就在菜单Parms中选择Global 中修改单位，点击后出现Global Parameters Popup对话框，改了单位后点击Ok即可，然后Actions 菜单中选择Translate Wheel执行D码文件，若有红色问题，则要手工修改，选中问题点击Sym：，确认形状，输入对应的参数，点击Ok即可，完成此动作，在File中选Closs关闭文件。用同样的方法一层一层的修改其它问题层，改完后最后修改drl钻带文件。首先确认尺寸，然后在Rep 层右键打开D码学习器去修改，确认单位，若有问题则同上方法修改，然后再查看有否连孔，若有则是格式不对，再查看孔位是否很散，若有则是省零格式错误。常用的几种格式：英制inch、mil有：2:3 2:4 2:.5 3:5公制mm有：3:3 4:4 在钻带层（drl）点击右键选择Aview Ascii查看文字档，看最长的坐标，数X、Y有几位数，看坐标如有八位数则用3.5和4.4去修改，在钻带层点击Parameters中选Numberef Fromat修改小数格式，坐标单位同时跟小数格式一改，同时钻带单位也要和坐标单位一致！省零格式：Leading 前省零，None不省零，Trailing 后省零。 Gerber格式通常是前省零，钻带格式通常是后省零。层命名、排序、定属性：改完后点击Ok即可，所有格式改完后，打开所有层，执行进去。执行后，打开 Job Matrix特性表命名层名层对齐：打开所有影响层，在层名点击右键，选Register对齐，点击后出现Register Layer Popup窗口。在Referenee Layer：中选择参考层线路层。除了文字层和分孔层不能自动对齐外，其它层可自动对齐，自动对齐后马上关闭影响层。单一打开没有对齐的那层，抓中心，出现Sanp Popup窗口，选Center，然后选Edit→Move→Same Layer 同层移动，点OK，再点击外形框左下角，点击右键，接着打开参考层，按S+A 转换工作层，再点击原参考层外型框即可。图形相隔太远的，可以用Ctrl+A暂停，然后框选放大，确定目标时按S+A转换工作层，再电击原参考层左下角即可。建外形框：所有层对齐后，打开分孔图，用网选命令选中外型框，用Edit→Copy→Other Layer 复制到新层，重新命名层名为gko（外型框），点击OK。单一打开gko，框选板内所有不要的东西删除，改单位，然后用Edit→Reshape→Change Symbol更改符号，出现Chang Feetar窗口，其中Symbol（外型线线粗）：R200。建Profile虚线：更改后，用网选命令选中外型框，用Edit→Create→Profile创建虚线。

vb课后练习答案习题解答 (5)

第5章数组与记录 5．1 填空题 1．若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为（）。答案：Dim s(1 To 10) As String 2．若要定义一个元素为整型数据的二维数组a，且第一维的下标从0到5，第二维下标从-3到6，则数组说明语句为（）。答案：Dim a(0 To 5,-3 To 6) As Integer 3．如果数组元素的下标值为实数，则VB系统会按（）进行处理。答案：四舍五入原则 4．数组元素个数可以改变的数组称为（）；数组元素可以存放不同类型数据的数组称为（）。答案：可调数组、可变类型数组 5．数组刷新语句用于（）。若被刷新的数组是数值数组，则把所有元素置（）；若被刷新的数组为字符串数组，则把所有元素置（）。答案：清除指定数组内容、０、空字符串 10．控件数组是由一组类型和（）相同的控件组成，共享（）。答案：名字、同一个事件过程 11．控件数组中的每一个控件都有唯一的下标，下标值由（）属性指定。答案：Index 12．建立控件数组有两种方法：（）和（）。答案：在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法 5．2 选择题 1．下列一维数组说明语句错误的是（）。 a) Dim b(100) AS Double b) Dim b(-5 To 0) AS Byte c) Dim b(-10 To –20) AS Integer d) Dim b(5 To 5) AS String 答案：c 2．若有数组说明语句为：Dim a(-3 To 8)，则数组a包含元素的个数是（）。 a) 5 b) 8 c) 11 d) 12 答案：d 3．设有数组说明语句：Dim c(1 To 10)，则下面表示数组c的元素选项中（）是错误的。 a) c(i-1) b) c(5+0.5) c) c(0) d) c(10) 答案：c 4.下列数组说明语句中正确的是（）。 a) Dim a(-1 To 5,8)AS String b) Dim a(n,n)AS Integer c) Dim a(0 To 8,5 To –1)AS Single d) Dim a(10,-10)AS Double

VisualBasic程序设计作业题解

Visual Basic程序设计作业题解作业 3 一、选择题 1．Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括（）。 A．顺序文件 B．Unix文件 C．二进制文件 D．随机文件答案：B 2．随机文件进行文件读写的单位是（）。 A．字节 B．记录 C．整个文件 D．字符答案：B 3．为了使目录路径列表Dir1的内容符合驱动器列表框Drive1的选择，应当（）。 A．在Dir1_Click事件中加入２

Dir1.Path=Drive1.Drive B．在Drive1_Click事件中加入Dir1.Path=Drive1.Drive C．在Dir1_Click事件中加入Drive1.Path=.Drive.Path D．在Dir1_Click事件中加入Drive1.Path=.Dir1.Path 答案：A 4．为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要在（）。 A．Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path,在Dir1的Change事件过程中加入Dir1.Path=File1.Path代码。 B．Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive,在Dir1的Change事件过程中加入File1.Path=Dir1.Path代码。 C．Dir1的Change事件过程中加入Dir1.Path=Drive1.Drive,在File1的Click事件过程中加入File1.Path=File1.FileName代码。３

GENESIS 菜单入门教程

GENESIS2000入门教程 Padup谷大pad paddn缩小pad reroute 扰线路Shave削pad linedown缩线line/signal线Layer 层 in 里面 out外面Same layer 同一层spacing 间隙 cu 铜皮 Other layer另一层positive 正negative负 Temp 临时 top 顶层bot 底层Soldermask 绿油层 silk 字符层 power 电源导(负片) Vcc 电源层(负片) ground 地层(负片) apply 应用 solder 焊锡singnal 线路信号层 soldnmask绿油层 input 导入 component 元器件Close 关闭zoom放大缩小create 创建 Reste 重新设置corner 直角step PCB文档

Center 中心 snap 捕捉board 板Route 锣带repair 修理、编辑 resize (编辑)放大缩小analysis 分析Sinde 边、面Advanced 高级 measuer 测量PTH hole 沉铜孔 NPTH hole 非沉铜孔output 导出 VIA hole 导通孔smd pad 贴片PAD replace 替换fill 填充 Attribute 属性round 圆square 正方形rectangle 矩形 Select 选择include 包含exclude 不包含step 工作单元 Reshape 改变形状profile 轮廓drill 钻带rout 锣带 Actions 操作流程 analyis 分析 DFM 自动修改编辑circuit 线性 Identify 识别 translate 转换 job matrix 工作室

VB语言练习题及答案1

VB语言练习题及答案 1、算法的计算量的大小称为算法的________。（A）现实性（B）难度（C）复杂性（D）效率 2、设栈S和队列Q的初始状态为空。元素a、b、c、d、e、f依次通过栈S，并且一个元素出栈后即进入队列Q，若出队的顺序为b、d、c、f、e、a，则栈S的容量至少应该为________。（A）3（B）4（C）5（D）6 3、在深度为5的满二叉树中，叶子结点的个数为________。（A）32（B）31（C）16（D）15 4、链表适用于________查找。（A）顺序（B）二分法（C）顺序，也能二分法（D）随机 5、希尔排序法属于________类型的排序法。（A）交换类排序法（B）插入类排序法（C）选择类排序法（D）建堆排序法 6、序言性注释的主要内容不包括________。（A）模块的接口（B）模块的功能（C）程序设计者（D）数据的状态 7．在数据流图中，○（椭圆）代表________。（A）源点（B）终点（C）加工（D）模块 8、软件测试的过程是________。 Ⅰ.集成测试Ⅱ.验收测试Ⅲ.系统测试Ⅳ.单元测试（A）Ⅰ、Ⅱ、Ⅲ、Ⅳ（B）Ⅳ、Ⅲ、Ⅱ、Ⅰ（C）Ⅳ、Ⅰ、Ⅱ、Ⅲ、（D）Ⅱ、Ⅰ、Ⅳ、Ⅲ 9、数据的逻辑独立性是指________。（A）存储结构与物理结构的逻辑独立性（B）数据与存储结构的逻辑独立性（C）数据与程序的逻辑独立性（D）数据元素之间的逻辑独立性

10、一个供应商可供应多种零件，而一种零件可由多个供应商供应，则实体供应商与零件之间的联系是________。（A）一对一（B）一对多（C）多对一（D）多对多 11、下列打开"代码窗口"的操作中不正确的是________。（A）按F4键（B）单击"工程资源管理器"窗口中"查看代码"按钮（C）双击已建立好的控件（D）执行"视图"菜单中"代码窗口"命令12、为了同时改变一个活动控件的高度和宽度，正确的操作是 ________。（A）拖拉控件4个角上的某个小方块（B）只能拖拉位于控件右下角的小方块（C）只能拖拉位于控件左下角的小方块（D）不能同时改变控件的高度和宽度 13、Load事件是在窗体被装入工作区时触发的事件。（A）用户（B）程序员（C）手工（D）自动 14、．以下Case语句中错误的是________。（A）Case 0 To8（B）Case Is > 5（C）Case Is > 0 And Is < 6（D）Case 1， 3， Is > 5 15、以下关于函数过程的叙述中，正确的是________。（A）函数过程形参的类型与函数返回值的类型没有关系（B）在函数过程中，过程的返回值可以有多个（C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传地址方式传递（D）如果不指明函数过称参数的类型，则该参数没有数据类型 16、为了同时改变一个活动控件的高度和宽度，正确的操作是 ________。（A）拖拉控件4个角上的某个小方块（B）只能拖拉位于控件右下角的小方块（C）只能拖拉位于控件左下角的小方块（D）不能同时改变控件的高度和宽度 17、设a = 3，b = 10，c = 6，以下表达式的值是________。a < b　And　（Not　b>c） Or　c