各位XDJM帮忙做下VB题啊,感激不尽

zorro 发表于 2006-8-17 10:30:00

<span lang="EN-US" style="FONT-SIZE: 10.5pt; FONT-FAMILY: Arial; mso-bidi-font-size: 9.0pt; mso-fareast-font-family: 宋体; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA;"><shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" opreferrelative="t" ospt="75" coordsize="21600,21600"> <h1 align="center" style="MARGIN: 17pt 0cm 16.5pt; TEXT-ALIGN: center;">程序设计语言VB试题</h1>一、选择题(每题2分，共10分)
 1. 表达式4+5\6*7/8 Mod 9的值是     B     。A) 4      B) 5        C) 6       D) 72. 程序运行时复选框如果选中，其Value值是   C    。A) 0         B) 1         C) True      D) False3. 双击窗体中的对象后，Visual Basic将显示的窗口是    D    。 　  A）项目（工程）窗口　 B）工具箱　 C）属性窗口　 D）代码窗口4. 以下选项中，不属于单选按钮属性的是          。 　  A）Enabled　 B)  Caption　 C）Name　 D）Min 5. 当拖动滚动条中的滚动块时，将触发滚动条的事件是    C    。A) Move   B)  SetFocus   C) Scroll   D) Change 二、简述下图程序界面的设计步骤（包括添加控件、设置属性和编程，20分） <shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" opreferrelative="t" ospt="75" coordsize="21600,21600"><stroke joinstyle="miter"></stroke><formulas><f eqn="if lineDrawn pixelLineWidth 0"></f><f eqn="sum @0 1 0"></f><f eqn="sum 0 0 @1"></f><f eqn="prod @2 1 2"></f><f eqn="prod @3 21600 pixelWidth"></f><f eqn="prod @3 21600 pixelHeight"></f><f eqn="sum @0 0 1"></f><f eqn="prod @6 1 2"></f><f eqn="prod @7 21600 pixelWidth"></f><f eqn="sum @8 21600 0"></f><f eqn="prod @7 21600 pixelHeight"></f><f eqn="sum @10 21600 0"></f></formulas><path oconnecttype="rect" gradientshapeok="t" oextrusionok="f"></path><lock aspectratio="t" vext="edit"></lock></shapetype><shape id="_x0000_i1025" type="#_x0000_t75" style="WIDTH: 189pt; HEIGHT: 102.75pt;"><imagedata otitle="test1" src="file:///C:\DOCUME~1\zhuge\LOCALS~1\Temp\msohtml1\03\clip_image001.jpg"></imagedata></shape>   三、说明下列程序的运行结果或回答问题(每题10分，共20分)
1. 以下程序的输出结果是          。Private Sub Command1_Click()Dim a(9) As Integer, p(3) As Integerk = 3For i = 1 To 9a(i) = iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3                                  第  2  页，共  2  页k = k + p(i) * 2Next iPrint kEnd Sub 2. 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下事件过程：Private Sub Command1_Click( )Dim a（4,4）For i=1 To 3For j=1 to 3a(i,j)=(i-1)*2+jNext jNext iFor i=1 To 3For j=1 to 3Print a(i,j);Next jNext iEnd Sub程序运行后，单击命令按钮，其输出结果为       。 四、编写程序(前3小题每题10分，4小题20分，共50分)1. 设计在一框架中包含三个单选框，只有当其3选中时，才在Text2中显示"Good"字符。2. 从文本框输入你的3位号码，如果是"358"，在标签框输出一等奖信息；如果前两位是"35"，输出二等奖信息；如果前一位是"3"，输出三等奖信息；其余则输出谢谢参与信息。3. 机票优惠，某航空公司规定在7-9月份，如果订票数超过20张，则票价优惠15%；如果超过10张，则票价优惠5%；在1-5月份和11月份，如果订票数超过20张，则票价优惠25%，如果超过10张，则票价优惠15%。从输入对话框中输入票价、订票数及月份，用文本框显示出所需金额。4. 输入6个学生的数学成绩，按不及格、60-70、71-99、100统计各个分数段的人数。 </shapetype>

ZZ! 发表于 2006-8-17 10:30:00

哦哟，一道啊不懂

草草の马甲 发表于 2006-8-17 10:33:00

袄要 傻子袄扫册来

ZZ! 发表于 2006-8-17 11:03:00

哦要召唤VB小王子

猴子很忙 发表于 2006-8-17 11:20:00

飘过....

七色玲珑石 发表于 2006-8-17 11:35:00

.....

中西瓜 发表于 2006-8-17 13:29:00

- -+ 简单......................

熟悉的路 发表于 2006-8-17 13:30:00

晕  做了那是教坏你....我不会....当年VB考试女生给的答案

刘建明 发表于 2006-8-17 13:44:00

我上学期VB差点挂掉.....赶快闪....有心理阴影

专属的幸福 发表于 2006-8-17 13:45:00

全忘了

熟悉的路 发表于 2006-8-17 13:47:00

当年考试女生给的答案...感谢那位女生~

漂泊Θ 发表于 2006-8-22 15:14:00

急!!!!!!!!

有没人知道啊...迫切需要答案...

页: [1]

下沙论坛's Archiver

各位XDJM帮忙做下VB题啊,感激不尽

急!!!!!!!!