2.1（1）
（2）a3) end
解答：'根据题目要求分别设置命令按钮名称属性为c1和c2，标题caption属性分别为命令按钮1和命令按钮2
设置命令按钮2的visible可视属性为false
private sub c1_click() 编写命令按钮1的单击事件过程。
= true
= false
end sub
private sub c2_click() 编写命令按钮2的单击事件过程。
= true
= false
end sub
解答：设置文本框的文本text属性为空。
根据题目要求设置单选按钮的标题caption属性。
private sub op1_click() 编写“北京”按钮的单击事件过程。
= "颐和园"
end sub
private sub op2_click() 编写“西安”按钮的单击事件过程。
= "兵马俑"
end sub
private sub op3_click() 编写“杭州”按钮的单击事件过程。
= "西湖"
end sub
dim lenth as integer, q as integer
const pi = 3.14159
private sub cmdstart_click() 开始”命令按钮的单击事件。
参*** = true
end sub
private sub cmdstop_click() 停止”命令按钮的单击事件。
参*** = false
end sub
private sub form_load() 窗体的装载事件。
参*** = false
参*** = 1000
lenth =
q = 90
end sub
private sub timer1_timer() 时间控件的timer事件。
q = q - 6
= -lenth * sin(q * pi / 180)
参*** + lenth * cos(q * pi / 180)
end sub
1) val(
2) val(
3) int(rnd*(num2-num1+1)+num1)
4) int(rnd*(num2-num1+1)+num1)
5) end
6) b1(index).caption
7) index
8) val(<>0
(1) button=2
(2) false
(3) 黑体。
(4) 隶书。
(5) popupmenu
参***：private sub form_paint()
static flagformpainted as integer
' 当第一次画窗体时，if flagformpainted <>true then
for i = 1 to 5
load option1(i) '给数组添加 5 个选项按钮。
option1(i).top = option1(i - 1).top + 350
option1(i).visible = true
next i
option1(0).caption = open" '在每个选项按钮上放置标题。
option1(1).caption = s**e"
option1(2).caption = color"
option1(3).caption = font"
option1(4).caption = printer"
option1(5).caption = help"
= "show dlg" '标签命令按钮。
flagformpainted = true ' 窗体已画完。
end if
end sub
private sub command1_click()
if option1(0).value then ' 如果选择打开选箱，' 显示打开公共对话框。
elseif option1(1).value then ' 否则，' 显示 s**e 公共对话框。
elseif option1(2).value then ' 否则，' 显示 color 公共对话框。
elseif option1(3).value then ' 否则，= cdlcfboth ' 在使用showfont 方法之前，必须给 cdlcfbothcdlcfprinterfonts,或 cdlcfscreenfonts
' 置标识属性。
' 显示字体公共对话框。
elseif option1(4).value then ' 或，' 显示打印机公共对话框。
elseif option1(5).value then ' 或。
= cdlhelpcontents
' 显示 visual basic 帮助目录主题。
end if
end sub
参***：在窗体上添加一个通用对话框、一个animation控件，三个按钮分别实现打开文件、**和停止。各控件属性如表所示。
表控件属性设置。
option explicit
dim fname as string
private sub cmdopen_click()
= "无声 .**i 文件(*.**i)|***i|"
fname =
end sub
private sub cmdplay_click()
= true
fnameend sub
private sub cmdstop_click()
= false
end sub
private sub form_click()
dim x as single, y as single, r as single
scale (-20, 20)-(20, -20)
x = 0: r = 8: y = 10
circle (x, y), r, ,0.5
circle (x, -y), r, ,0.5
line (x - r, y)-(x - r, -y)
line (x + r, y)-(x + r, -y)
end sub
第3章答案
第3章。习题3.1一 1.1 2.在内不可导 3.4.3，二 提示 令，则，则常数，再取。三 略 四 1.满足，2.满足，3.满足，4.满足，五 略 六 1.2.3.习题3.2一 1.2.3.4.5.大 6.7.8.9.二 1.c 2.d 3.a。三 1.在 内单调增加，在内单调减少 2.在内单调增...
第3章答案
答案。3.1 写出如图题3.1所示电路对应的真值表。图题3.1 电路。解 a 图a中标注x y z w，如下图 则 x ab，y z w 则。l c c ab c ab c b ab c b c b 得图 a 的真值表如下 b 图b中，得真值表如下 3.2 组合逻辑电路及输入波形 a b 如图题3....
第3章答案
第3章参 题1 解 1 20 40 60db 2 ro 4 3 1 3 1 k 3 不可以。题2 解 1 v1管组成共射 ce 组态，v2管组成共集 cc 组态。2 整个放大电路的微变等效电路如图所示。3 第一级的电压放大倍数为 ri2是第二级放大电路的输入电阻，ri2 rbe2 1 2 r4 rl...