2023年VisualBasic程序设计形成性考核册作业.doc

Visual Basic程序设计形成性考核册作业
[font=宋体] [/font]作业[b]1[/b]
a5i*VK+i8\-R 一、选择题
V+eCYO 1、在设计应用程序时，可以查看到应用程序工程所有组成部分的窗口是（D）。
:U&C"h,oK2O1U
A    A、窗体设计    B、代码      C、属性    D、工程资源管理器窗口-`D2dm!u W
2、窗体的load事件的触发时机是（B）。
.GV ]
g"R+uv
r
p_ A、用户单击窗体时  B、窗体被加载时   C、窗体显示之后   D、窗体卸载时
6v n$j]
`"Y 3、与传统的程序设计语言相比，Visual Basic 最突出的特点是（C）。1F^:q3O1ks
  A、结构化程序设计  B、程序开发环境  C、事件驱动编程机制   D、程序调试技术X5HT&bv9xS7p
4、VB6.0集成开发环境的主窗口中不涉及（C）。
/U;r'mBPk,l    A、标题栏    B、菜单栏    C、状态栏    D、工具栏8K2^;W
Wd }}
5、假如对象的名称为Mytext ,并且对象有一个属性Text，那么在代码中引用该属性的对的格式是（B）。:Fki2a2j
   A、 text.Mytext     B、Mytext.Text    C、Mytext.(Text)  D、Mytext*TextcE2abiA
6、下列可以激活属性窗口的操作是（D）。
8r"? h1L
}    A、用鼠标双击窗体的任何部位    B、执行“工程“菜单中的”属性窗口“命令k8ZM#MG7Ex
   C、按Ctrl+F4        D、按F4
s7RTuW0Q8raJ 7、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设立窗体的属性，预先应执行的操作是（A）。
/e.QBr&a#ex    A、单击窗体上没有控件的地方      B、单击任一个控件     C、不执行任何操作  D、双击窗体的标题栏xh1uw P}:L;g
8、假如要在文本框键入字符时，只显示某个字符，假如（*），应设立文本框的（B）属性。
,moec'Spce    A 、Caption    B、PasswordChar   C、Text    D、Char0w-PN1Y:{'m
9、假如想要在文本框中的内容在运营时不能编辑，需要文本框的（A）属性设立为True.
h;|$MK9^7@ke] A Locked          B、MultiLine      C、TabStop  DVisible%[!N;j A sA*\;Y8G
10 对于定期器（Tiner）控制，设立其定期是否启动的属性是（C）
y^9_/V,Q"y4u2o7}E'B
A、Index          B、Tag            C、Enabled  D、Left'S+g\C.Gn
11、要在窗口体Fornl 内显示“myfrm”使用的语句是（ C）
8I
l.~,@uWL A、Form.caption=“myfrm”B、Fornl.caption=“myfrm”s#M}6gh
C、forml.print“myfrm”D、form.print“myfrm”{*CA9Y L KT/EG
12、对象的性质和状态特性称为（C）:u mx-Tt-a6e{
A、事件         B、方法           C、属性       D、类
?jME'?_+L `o }3K 13、下列对的的赋值语句是（B）"Dx
bn2U&e
A、x+y=20       B、y=x+20          C、3x=y     D、s=I`#E5F h_ tR
14、当使用上下文相关的帮助时，选择要帮助的内容，然后按（D）键，就可出现MSDN窗口直接显示所需的帮助信息。9t@xx |-sGF1Sq
   A、Help   B、F10     C、Ese      D、F1Fd,PtS
15、将调试通过的工程经“文献”菜单的“生成.exe文献“编绎成名.exe后，将该可执行文献放到其它机器上不能运营的重要因素是（D）。
x)g@d C)u+b+P A、运营的机器上无VB系统      B、缺少.frm 窗体文献    C、该执行文献有病毒    D、以上因素都不对:S
ta6?_T0~
二、填空题
^s:t(eI4I B 1、当进入VB集成开发环境后，发现没有显示“工具箱”窗口。应选择[u]视图[/u]菜单的[u]工具箱[/u]选项，使“工具箱”窗口显示。&Cl#ohZzIV3M
2、在VB中，事件过程名由[u]对象名[/u]和[u]事件名[/u]构成。+o&`s{5A,M,z
3、工程文献的扩展名是[u]  vbp [/u]，窗体文献扩展名是[u]  frm  [/u]。AJlz$_q%t
4、对象时代码和数据的集合，例如，Visual Basic 中的[u]窗体[/u]、[u]按钮[/u]、Y&i;W6G DpG5g
[u]文本框[/u] 等都是对象。
#[-Y/zdI"W2Z 5、对象的方法用于[u]实行某种操作功能[/u] 。当方法不需要任何参数并且也没有返回值，调用对象的方法的格式为[u]对象名[/u][u].[/u][u]方法名[/u] 。例如对窗体Forml 使用Show 方法，应写成[u]  form1.show  [/u] 。AO@3HR[&I
6、要使文本框显示滚动条，需要将其[u] ScrollBars [/u] 属性设立为[u]  3 [/u] 。
9d wSL.i1hM@(L 7、欲设立定期的时间间隔为4秒，则属性Interval 的值为[u]  4000 [/u]。$UPu5G { QB ~
8、要使标签框的大小随Caption属性做自动调整，应将[u] AutoSize [/u] 属性设立为 [u] True [/u] 。
3TNs5Ih7w 9、通过[u]窗体布局窗口[/u] 可以在设计时直观地调整窗体在屏幕的位置。
2_-`C q[ 10、要想在代码中给名为 txtshow 的文框赋予文本：GOOD WORK！时，应当编写的语句是[u]  txtshow.text=” GOOD WORK[/u][u]！[/u][u]” [/u] 。s%sn _+et
11、若命令按钮的名称为Cmdopen，程序规定单击以上命令按钮，打开一个窗口frml,请对以下事件过程填空。2YU&g fD6qc
Private Sub Cmdopen   [u] click() [/u]
}A2C4^oa9z [u] Frm1.show [/u]
Zt+C'e5Rq/qOD @i End Sud
;o9kg/_;CgT[ 12、事件就是对象上所发生的事情，Visual Basic中的事件如[u]单击[/u] 、[u]装入[/u]、Av`#c t2za
[u]鼠标移动[/u]等。一个对象响应的事件可以有[u]多[/u]个，用户不能建立新的事件。事件过程是指[u]响应某个事件后所执行的代码[/u]。假设某一事件过程如下：
;iQ.WJrY3\3X Private Sub cmd1_Click()K
K2Ae*p3_9_`%E
  Form1.Caption=”VB示例”(xH+S o1B+{ N&D
V
End Sub
S1F.^ ZBbH 则响应过程的对象名是[u]  cmd1 [/u] ，事件名是 [u] Click  [/u]。      
13、对象的方法用于[u]在对象上实行某种操作功能[/u] 。当方法不需要任何参数并且也没有返回值，调用对象的方法格式为[u]对象名[/u][u].[/u][u]方法名[/u]，例如，对窗体Form1 使用Show 方法，应写成[u]  Form1 .Show  [/u]。
CC ]lk&@N;\ 14、为了在编写代码时能自动语法检查，必须执行[u]工具[/u] 菜单中的[u]选项[/u]
W2e,]I*U a_(^2`G 命令，打开 [u]选项[/u] 对话框，然后选择“编辑器”选项卡中的[u]自动语法检测[/u]。3D1k f)E7^
15、定期器（Timer）控件可辨认的事件是[u] Timer [/u]，了生该事件的时间间隔定期由定期器的[u]  Interval [/u]属性设立，其单位为[u]毫秒[/u]。   &u
Dm5}2`5M%Q+H!Z$_J
三、问答题
uqx+y0n"I7z 1、什么是可视化编程和事件驱动？            
,^:U,\8CH'M 答：可视化编程是指无须编程，仅通过直观的操作方式即可完毕界面的设计工作的这种编程方式。;_B@^.Ld i3pgV|
当VB的应用程序运营后，系统处在等待状态，当某个事件发生后，程序就去执行此事件的事件过程，当这个事件过程执行完后，系统又处在等待另一个事件发生的状态，这就是事件驱动程序方式。
(n?&P A6rgj 2、对象、属性、事件和文献之间的关系如何？
1i.G5}? IyI3C7| 答：对象是代码和数据的封装体。对象的操作通过与该对象有关的属性、事件、方法来描述。i#I(l3F$]Ea
属性是一个对象的基本特性，每个对象都有它自己的属性。
3x5h ry,f'xBa/O 方法是对象要执行的动作。
2q(t o|My 事件是在对象上所发生的事情。4W7DJ(S ?ug
3、简述事件驱动机制与传统编程方式的不同。
V4T{9O8M?&Oo 答：传统的面向过程的应用程序中，应用程序自身控制了执行那一部分代码按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定的途径执行，用户无法改变程序的执行流程。而事件驱动机制则由用户来决定执行的路线。这就是两者的不同。
0Y$e{.}.x1?*xMaQ 4、简述事件驱动的工作过程。
,OZ*R1TF 答：事件驱动的工作过程如下：（1）启动应用程序，装载和显示窗体。（2）窗体或窗体上的控件等待事件的发生。（3）当某个事件发生后，执行其相应的事件过程代码。（4）反复执行（2）和（3），直到碰到END语句或单击“结束”按钮停止程序的运营。

|1oK%l;xh:rx"}hH 四、程序设计题6B-b8s(K?
1、在窗体上添加一个文本框和两个命令按钮，并把两个命令按钮的标题分别设立为“隐藏文本框”和“显示文本框”。当单击第一个命令按钮时，文本框消失；而当单击第二个命令按钮时，文本框重新出现，并在文本框中显示“VB程序设计”（字体大小为16）。程序运营界面如图所示。
ePi|
!huP&|k-\图1 M
解：“隐藏文本框”按钮中的代码为：Text1.Visible=False?$c`%Z*m
显示文本框” 按钮中的代码为：Text1.Visible=True!x3C$Uqb\,@f m
                               Text1.Text=”VB程序设计”tH|5\?w&r\6N3T
                               Text1.FontSize=”16”8XnQLB4p3b:l5u
2、设计一个计算程序。该程序用户界面如图2所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command3）组成。程序运营后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。!D-btt8e0J0L\@,y v
解：command1中的代码为：text1=””： text2=””： text3=””： text4=””v}(~1j$Z+|A!C uj*e
command2中的代码为：text4=(val(Text1)+ val(Text2)+ val(Text3))/3+T;sTaZj_
command2中的代码为：End
jF$j6T3RfI 3、编写一收款计算程序。规定用户输入商品的“单价”、“数量”和“折扣”后，单击“计算”按钮显示“应付款”，单击“清除”按钮，清除文本框中所有的数据。程序运营界面如图3所示。

v;S\i"_v]4s 答：“计算”按钮的代码：text4=val(Text1)* val(Text2)* val(Text3)/100
F Uoc$`6i ~+U)O “清除”按钮的代码：text1=””： text2=””： text3=””： text4=””
,v:S8R/uiTd!M
3\`!_;w"t\ L)]:R!P*A
Y1G

Tp/O%O C%B:N&y2~ 作业[b]2 [/b]一、选择题QopY.l-[9R{
Y
1．按照变量的作用域可将变量划分为（ B   ）。
iq$l.O%R)}"m A、公有、私有、系统         B、全局变量、模块级变量、过程变量
rM6rKGM `4M C、动态、常数、静态         D、Public、Private、Protected(w4@J/Cp*C
2. 可获得字符的ASCII码的函数是（　C　）。1[ K3MB8@im
Ａ、Val　　Ｂ、Fix　　Ｃ、Asc     Ｄ、ChrQ"l%Gpw_qi_
3、要退出Do….Loop循环，可使用的语句的（　D　）语句。LR5ST6p6GS
A、Exit   B、Exit  For   C、End Do   D、Exit Do|+n2l:mQ5EuR#uT
o
4. 把数值型转换为字符串型需要使用的函数是（B　　）。 `1uv3u8ryB+sZ-s `
A、Val    B、Str   C、Asc    D、Chr
~Gy_z.E 5.关于语句行，下列说法对的的是（　B　）。
V(Eoc0?$A
d_ 　Ａ．一行只能写一条语句　　　　Ｂ．一条语句可以分多行书写7D};^Fp
　Ｃ．每行的首字符必须大写　　 Ｄ．长度不能超过255个字符
9Y2q9OL)N!v_C [ ６．表达式6+10 Mod 4*2+1的值是（　A　）．
vB
{%k#K`&t 　Ａ．９　　　Ｂ．11　　 C．１　 D.3
.x3u:T;xK,e+}+D8OU 7.以下可以作为Ｖisual Basic 变量名的是（B）．
6\XT4kG;Z Y1C Ａ．SIN      B.CO1    C.COS(X)  D.X(-1)0]p1WW._,GA
8.表达式Ａbs(-5)+Len(“ABCDE”)的值为（C）． T0{q5`ZL
　Ａ．5ABCDE　　Ｂ.－5ABCDE      C.10     D.08|} T)hzV5r
9.在代码编辑器中，假如一条语句太长，无法在一行内写下（不涉及注释），要折行书写，可以在行末使用续行字符（A），表达下一行是当前行的继续．
5Z
z(c7buE)U,\ 　Ａ．一个空格加一个下划字符（＿）　　　Ｂ．一个下划字符（＿）ejjxY~6e&Z
　Ｃ．直接回车　　　　　　           　Ｄ．一个空格加一个字符（－）7Al#KX ]
10.Sub过程与Function过程最主线的区别是（D）．
E%} Xgu(?9D(? 　Ａ．Sub过程可以使用Ｃall语句或直接使用过程名调用，而Function过程不可以．fx`H.?{:_
　Ｂ．Function过程可以有参数，Sub过程不可以．*R ]&I:e&n)Y
Ｃ．两种过程参数的传递方式不同．
*y|/u9DL4@ f` af;h PG Ｄ．Sub过程的过程名不能返回值，而Function过程可以通过过程名返回值．
A${TO/law1l_ 11.＂Ｘ是小于80的非负数＂，用VB表达式表达对的的是（C）.
F:C|(RS.UUJ,fA   A..0≤X<80                         B.0<=X<80
t$\z6NaaJSI4C/q   C.0<=x and x<80                     D.0<=x Orx<80
F0U*G.kZ C 12.在设计菜单时,假如要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设立为(B )S\.y!Tu
A.加号(+)      B.减号(-)     C.星号(*)   D.感慨号(!)F8bVm1?'M
13.假如要在程序中显示一个弹出式菜单,那么要调用Visual Basic中提供的方法是(D).
oVF;}G!a&B   A.Print         B.Move       C.Refresh   D.PopupMenuLf [k:v
14.下列可以用来存储图像供其他对象使用的控件是(C ).
|X7^M"u*G d%eBH   A.ToolBar      B.StatursBar    C.ImageList   D.TreeViewZ-\j*e$?fT9Y2Z
15.当单击工具拦上的按扭时,会触发的事件是(A ).
4V)Dh[4hW   A.ButtonClick    B.Change   C.Load        D.KeyPress
yF-TT"b JC 16.要运用公用对话框控件来显示”打开文献”对话框,需要调用控件的(B )方法.ixu1~ O
  A.ShowPrinter   B.ShowOpen   C.ShowSave    D.ShowColoro!G
@$? |B
17.对于窗体级变量,下列说法中错误的是(C ). Wm#B-n,A)wn
A.所在窗体的各子程序都可以访问7w:{yH8f-f0tS
B.其他窗体的子程序不能访问2M2zL

C.所在窗体发子程序不能访问用Private定义的窗体级变量
4F`g!r$G&a D.一定要在所在窗体的通用区内定义
0eRRbm 18.从一个字符串中的第3个字符开始,获取5个字符,应使用(B)2A pXe7OnN
  A.Len函数   B.Mid函数   C.Left函数     D.Right函数
1NR5pfSW:b 19.用下面的语句所定义的数组的元素的个数是(D ).

  DimA(-3 To 5)As  Integer#L8]\/o
C+x
   A.6     B.7   C.8         D.9J.ZiM7}#y2o Y!K
20.有如下程序段:$I/l Dc|(x${q
Dim strl As String*5I(aBS L6u/f
Strl=”Visual Basic”
0g/m.r]`"U0|-JU y 当该段程序被执行完时,变量strl的值为(B ).7W0O2O }5q&@Z
  A.”Visual”    B.”Visua”   C.”V”   D.”Visual  Basic” h\:u9A5`C
二、填空题 s.KF0f?*m@ J.J^
1．菜单一般有_[u]下拉式[/u]_和_[u]弹出式[/u]__两种基本类型。?pV-?

2．通用对话框控件可显示的常用对话框有__[u]打开[/u]_、_[u]保存[/u]_、__[u]颜色[/u]_、__[u]字体[/u]_、__[u]打印[/u]_。_0{bi"W w)xBi
3．组合框具有__[u]文本框[/u]_和__[u]列表框[/u]_两种控件的基本功能。
In
~6a[q:t\ 4．要使数组的默认下标从“1开始，则应在窗体或标准模块代码的声明部分使用语句__[u]Option Base 1_[/u]。~"{-h._xP
5．调用Sub过程时，使用__[u]call_[/u]_语句,语句用于把程序控制传送到一个Visual Basic的Sub过程。
}4k{(Yk6N A*}9g0}b 6．若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过_[u]工程[/u]_菜单__[u]属性_[/u]命令的_[u]通用[/u]_选项卡，可将启动窗体设立为Form2。在程序中若要显示Form1窗体，则执行_[u]Form1.show[/u]_语句。X,T
l)B H0G#|aw
7．列表框中项目的序号是从_[u]0[/u]_开始的。 sn!_/s$_6e3ly
8．Sub过程与Function过程最主线的区别是[u]_Sub过程名无返回值，Function过程名有返回值 [/u]。
&q u qtn+GZ 9．VB的代码存储在模块中。在VB中提供了三种类型的模块：_[u]类模块[/u]_、_[u]窗体模块[/u]__和_[u]标准模块[/u]_。
Q!{?l@.o 10．使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体__[u]卸载[/u]_，被调用的窗体中的属性等已处在_[u]内存中[/u]_。&Pj? i KL*R6n KG
11．将下列数学式子写成VisualBasic表达式。
'i;q}1u pa:Z   ⑴  答：2*cos(a)*sin(a)/(2*a)
dEG V7q5L`   ⑵答：sqr(s*(s-a)*(s-b)*(s-c))
0zr1LE!R9o   ⑶sin45°:[u]sin(45*2*3.1415/360)[/u]_
e2G.j)Ei(f;`%Kq8J"g q 12.将下列数学式子各条件写成VisualBasic逻辑表达式。
1YK+G's.A   ⑴1≤x<12: 1<=x and x<12
'i v-r0^#Yz xkS Y$E   ⑵A+B≥C或a-c≤c: (A+B)>=C OR (a-c)<=c
N/R u'yo   ⑶a和b都为正整数或同为负数: (a>=0 and b>=0) or (a<=0 and b<=0)
w%M
E1Fh[h zj 13．设A=2，B=3，C=4，D=5。表达式Not A<=C Or4*B^2 And B< >A+C的值为_[u]False[/u]_。!gz tq&W|
14．在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以事先拟定，可使用_[u]For…next[/u]__循环；若规定先判断循环进行的条件，可使用_[u]Do while…loop[/u]_循环或_ [u]while…Wend[/u]_循环。
;OF'n F KiQos 15．以下语句的输出结果是__[u]3[/u]_。
QpGA6v MD'f a%=3.14159B$M!H"`%G X
Print a%.n9q ` ^2R"s.e
三、阅读下列程序，写出程序运营结果。4H`7A!BX$J
1、Private Sub Form_Click( )
\8E3Cy2J&[Q].u         Static Sum As Integer:Q&O dn-{4l-ot
        For I= 1 to 1005s)l2O7wcRK ?*HW!ql
         Sum=Sum+I
f$Gj J`m
{r         Next I
-z*KI;Y$fQ)~[ Print Sum T6h+\#a"P&O c9v
End Sub0ZULb:^&f
p
程序运营结果为：1+2+…….+99+100=5050D#fw|I2Q|
2、private Sub Form_Click( )`kt5H-r L6w9B'H:|
     A=10: b=15:c=20:d=25
8nJ!i;t1i1sk      Print A;Spc(5);b;Spc(7);cF(l!gj'UzW-F m3l
     Print A;Spc(8);b;Space$(5);c
'bH6f u7q1uO_B      Print c;Spc(3);”+”;Spc(3);c+d
T9V4?HqdL    End Sub
v]j4cK+R X a@+sn 10(5个空格)15(7个空格)20cvN N$j6G
10(8个空格)15(5个空格)20
)m MX/U_ ^1~ 20(三个空格)+(三个空格)45
V@q5N%sy 3、Private Sub Form_click( )Sjiw9G V!K:J6^
     For i% =1 to3
m;`/pc$I        Forj% = 1 to i
Vf KnK~"U       Print L Trim(Str(i%))+ “*”+L Trim(Str(j%))+ “=”;i% * j%;
P$]J b&^0w6k*CJ           Next j%
$F'abvA         Print
/y1` X*r3Ozj Next i%
)c(Lx1db x End Sub,V
1*1= 1:E CN:{)k
2*1= 2  2*2= 4
_z
g#Hv] 3*1= 3  3*2= 6  3*3= 9 0N2_ f0cU)P5H
}^7t[c4Ni*A-E
4、Private Sub Command1_Click( )h
Dim a,b As Integer2N DsTg;n%B1zWa
   A=3.4LI&H-l(?
B=3.4
*^`d*K%n#otZ Text1.Text=a
X5O$J)B$nY R Text2.Text=b
0S w4k*E2{aWJ,p(Z End Sub
'|jr'ws"Hf P%c Text1显示3 、4

mn@#_n Text2显示3/q:F\A)v,D6q
5、Private Sub Form_Click()1uShaUl U
     For I =1 to 5
!?S)_!Bv5gu         Print Tab( 11 – I )
"[X6a|T'B7E7k*m       For J =1 To I * 2 – 1s[:G
n,Cte+h
              Print “*”; q"i5P.D(R%f
        Next
dU&a&~8C9@E        Next ifhh[:lh
End Sub
4lYfJ z                *
              ***
*K1O2V0U5{!IS;R              *****
QNX!h$[ui             *******
*********S

7ZC\$i*vZJ&xm 四、程序设计题qa(}_5@&hE
1、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，规定在Text1中输入购物商品总金额，单击命令按钮，在Text2中输入优惠后的价格。程序运营结果如图解所示。
O5}4tm!C6Ff:W,z\ If Val(text1)>=500 then text2=Val(text1)*0.7
7u[M
k9Y6i#})X Else if Val(text1)>=300 then text2=Val(text1)*0.85
J(QJGmF&?   Else if Val(text1)>=200 then text2=val(text1)*0.9r/[.esE-H8Pl
  Else if val(text1)>=100 then text2=val(text1)*0.956L,XV(]!u[#I$x v
End if
%ey7{ W4YZ4k"~
L
k;z Y"L s
pF-D $L WD;bS(Z
2、输出100~200之间不能被3整除的的数，规定用Do语句的一种形式来实现，程序运营结果如图5所示。|E5qIm%r,m
窗体的装入事件中加入如下代码：
+uf:gt4Y7d`%_ Dim a as integer
FtD i9R U s c E A=1000FH:m$I w B gl
Do while a <=200
[G5P}&`b5x9J$`K If (a mod 3)<> 0 thenw!J.Dzo#M7p d%A
List1.additen str(a)+J m

End if
?/@#F?h4A A=a+1
byE:`;D/M loop#PIxmP;Pr5FX]
3、编写程序，打印如下的乘积表：
n(~a'Zi%x%SU )E5Z#A0?2zT7K
Dim I ,j as integer4T ATxmkl
Print”*”:space(5):!TQW)O!fQ+m"k
For i=3 to 12 step 3*@KE)I3s1s-f
Print str(i);space(5);s

Next i
RG3]"yVGy Print
Mf[ oO4b*t For I = 15 to18(^4C$L

Print str(i);space(3);a3k+e/` s.k8p1S
For j=3 to 12 step3
L$@)|q \1O_G}'x Print str(i*j);space(4);)d%m
~ HhN P
Next j
%L,[/f O,n2V Print 6@v^b{6k$}
Next j

} q QO?*l'`H_n M%wzQ y{d;b
4、设计一个计算程序。该程序用户界面如图7所示。规定程序运营后，用户选中单击选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。
D1YU}c Uh!k 8ssrx&L 乘法单选按钮的单击事件中添加如下代码： SlO$r,CoQ
Text1=10*2?&_!L r5?
除法单选按钮中添加如下代码：l#dM1o
[
Text1=10/2
I6qv7ms/L&Ys+D 加法单选按钮中添加如下代码：
0j!Oh)Y(m(T Text1=10+2
b(d&jKk 减法单选按钮中添加如下代码：text1=10-2/O zp@Ekq)q
结束按钮中代码: end 或unload me
l3}j y.lB+D(aU7K@
5、编写输入一个0~6数字，显示汉字对照输出星期的Function过程。程序运营结果如图8所示。
^Q@WT,文本框的change事件中代码如下:
O9H)w;K.c+nH:y Select case val(text1)
#]g'}dN;p Case 0
7Cj4F8}n)K8BW[ K Label1.caption=”星期天”+chr(13)+”(Sunday)”!T#[*t7j|

Case 1
}l
c}7_S Qh Label1.caption=”星期一”+chr(13)+”(monday)”&RD I,q:E+|3CI&W\
Case2pX
I+r~;A X WQ
Label1.caption=”星期二”+chr(13)+”(Tuesday)”
^+G!D2}/B)r)K?p Case 31?B1S/x0W-\$Z2d
Label1.caption=”星期三”+chr(13)+”(wednesday)”
*m!W
ca,@&L Case 4
vy7H/M XpA$u Label1.caption=”星期四”+chr(13)+”(thursday)”
RrIVk"a4Pz Case 5.t7^q*~Z-pX
Label1.caption=”星期五”+chr(13)+”(firday)”
5?L!`Ioi)k Case 6"QZ|w+y[!c
Label1.caption=”星期六”+chr(13)+”(saturday)”
6@ \#?d-FaE End selectwO!D?R.iQ5P,~
_3b,B F#Rc
6、编写一个程序，当鼠标移到Picturel控件时，鼠标指针改变形状；当在Picturel控件上单击鼠标右键时，通过消息框显示“You pressed right button”，并再次改变鼠标指针的形状。
([ n8})\vpc*X Picture1_mouseupv8w"_.jin?
If button=2 then
gw/s Sn$] I=1
TK|Zp)x+[0M Msgbox” you pressed right button” {y8Y$|4[VSQ
End if
1DDc7r W M4U End sub
'JQhg;L8E4iaLS 7、列表框应用程序。规定从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运营结果如图9所示。 O?M$r"S,ys2IJ
添加按钮代码：list1.additem text1.text5xE^Fs(y2Q6mTPL {
Text1.text=””'F M6rvC8C
删除: if list1.text<>”” the