计算机二级vb考试的经验与教训[2]

http://www.educity.cn　作者：不详　来源：考试吧　2008年6月16日　发表评论　进入社区

2.一个文本框，里面的数组的删除和重排……用inputbox如果输入的数是数组中的，不是则弹出对话框

　　3.文本框中选中的字符中出现次数最多的字母写在文本框中…

　　(5)单击窗口打印如下图案

　　┌────────

　　├────────

　　│ *

　　│ ***

　　│ *****

　　│ *******

　　│ *********

　　│ *******

　　│ *****

　　│ ***

　　│ *

　　└───────

　　private sub form_click()

　　dim i,j as integer

　　for i=1 to ?

　　for i=1 to 5

　　’for j=1 to ?

　　for j=1 to 6-i

　　print " ";

　　’for j=1 to ?

　　for j=1 to i*2-1

　　print "*";

　　for i=1 to 4

　　’for j=1 to ?

　　for j=1 to i

　　print " ";

　　’for j=1 to ?

　　for j=1 to 9-i*2

　　print "*";

　　end sub

　　(6)把窗口的标题改为“圆角矩形”,在form中添加一个圆角矩形的shape1,并设置填充颜色为&hff00，高1000，宽2000

　　┌────────

　　├────────

　　│

　　│ ┏────┓

　　│ │ │

　　│ ┕────┛

　　│

　　└───────

　　属性设置:

　　name │ 属性 │ 值

　　───┼────┼─────

　　form1 │caption │圆角矩形

　　───┼────┼─────

　　│backstyle │1-opaque

　　shape1│backcolor │&hff00

　　│width │2000

　　│height │1000

　　│shape │4-rounded rectangle

　　(7)在窗口中已经添加了所有控件，单击开始通话按钮，则在text1中显示通话时间(通话时间每秒加1),单击停止通话按扭，停止计时，单击计算话费按扭调用sub1过程,要求： _]I0sUcv}D€Lc B-ow (1)每个事件只能写一条语句

　　(2)不能使用变量

　　属性设置: name │ 属性 │ 值

　　───┼────┼─────

　　timer1 │enabled │false

　　│interval │ 1000

　　代码：

　　’开始通话按钮

　　private sub command1_click()

　　timer1.enabled = true

　　end sub

　　’停止通话按钮

　　private sub command2_click()

　　timer1.enabled = false

　　end sub

　　’计算话费

　　private sub command3_click()

　　call sub1

　　end sub

　　’计时器

　　private sub timer1_timer()

　　text1.text = val(text1.text) + 1

　　end sub

　　(8)--------------------------------------------------------------------------------

　　不用变量，如何将两图片框中的图片交换?

　　提示：

　　p1.picture = loadpicture("文件名 ")

　　p2.picture = loadpicture(" 文件名")'/

[1] [2]

【大中小】【收藏到我的学赛】【发表评论】【进入社区】