VB技能初赛试题.docx
3页
2011 职计春《 VB 可视化编程》技能比赛试题姓名： 总分：调试运行下列程序并写出结果(每题 15 分，共 75 分) ：1． Private Sub Form_Click()Static Sum As IntegerFor I = 1 To 5Sum = Sum + INext IPrint SumEnd Sub写出程序运行时单击窗体后， Form1 上的输出结果2． Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integer k = 0 c = 1For j = 1 To 6If j > 4 Then c = c + 5 Exit ForElsek = k + 1End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后， c,k 的值分别是：3． .Private Sub Command1_Click()Dim s As DoubleDim i As Integers = 5i = 1Do While i < 91 = i + 25 = s + iLoopText1.Text = sEnd Sub文本框 Text1 的输出结果是：4.Private Sub Command1_Click() Dim X As Integer, Y As IntegerX = 0: Y = 1Fori = 1 To 3Forj = 1 To iY = Y * jNext jX = X + YNext iPrint XForml上的输出结果。
End Sub写出程序运行时单击命令按钮后，窗体5. Function F(a As Integer)Dim b As IntegerStatic c As Integerb = b + 2c = c + 2F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As Integer a = 6Fori = 1 To 3Print F(a)Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果编程（25分）：1、编写一个统计大奖赛选手得分的程序，界面设计如下图 （13分）3要求：⑴单击得分显示按钮，用随机函数生成选手的得分（ 80〜99）,并添加到文本框中；⑵单击“计算最后得分”按钮，可计算该选手的最后得分（去掉一个最高分和最低分，让后把剩下的得分求平均值） 除文本框中所有的内容2、编写一收款计算程序 “计算”按钮显示“应付款” 面如下图所示12分）,并将得分显示到相应的文本框中；⑶单击“清除”按钮，清要求用户输入商品的“单价”、“数量”和“折扣”后，单击,单击“清除”按钮，清除文本框中所有的数据程序运行界TextlText4Text3CommandlCommand2Text2。
