VB计算机考试编程题.docVIP

一、计算 1+2+3+4+…..+100的和。 Dim k as integer, sum as integer Sum=0 For k =1 to 100 Sum =sum +k Next k 二、随机产生10个两位整数由窗体的load事件完成 Private sub form＿load() Randomize For I = 1 to 10 Abc(i)=int((99-10+1)*rnd +10) Next End sub 三、随机产生10个两位整数。找出其中的最大数。最小数和平均数 Option base 1 Dim a (10) as integer Private sub command1＿click() form＿loda text1.text=” “ text2.text=” “ text3.text=” “ end sub Private sub command2＿click() Dim max as integer,min as integer,s as integer Max=10 Min=100 S=0 For I = 1 to 10 If a(i) max then max = a(i) If a(i) min then min = a(i) S= s+a(i) Next text1.text=max text2.text=min text3.text=s/10 Private sub command3＿click() Dim p as string Randomize For I =1 to 10 a(i)=int((99+1-10)*rnd+10) p=p str(a(i)) ”,” next labe11.caption=ltrim(left(p,len(p)-1)) end sub 四、如果要求产生的随机整数互不相同将上面的private开始的部分换成下面的部分。 Private Sub Form_Load() Dim p As String Randomize p = For i = 1 To 10 Do x = Int(99 + 1 - 10) yes = 0 For j = 1 To i - 1 If x = a(j) Then yes = 1: Exit For Next Loop While yes = 1 a(i) = x p = p Str(a(i)) , Next labe11.Caption = LTrim(Left(p, Len(p) - 1)) End Sub 五、直角三角形 Private Sub Form_Click() Dim x As Integer Dim y As Integer Dim z As Integer Dim k As Integer k = o For x = 1 To 50 For y = x To 50 For z = y To 50 If z * z = x * x + y * y And z = 50 Then Print x; y; z k = k + 1 End If Next z Next y Next x Print 共有; k; 组 End Sub 六、铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是：行李重量不超过50千克时，每千克0.25元；超过50千克而不超过100千克时，其超过部分每千克0.35元；超过100千克时，其超过部分每千克0.45元。编写程序，输入行李重量，计算并输出托运的费用。 设行李重量为w千克，应付运费为x元，则运费公式为： 0.25w (w=50) x= 0.25*50+0.35*(w-50) (50w=100) 0.25*50+0.35*50+0.45*(w-100) (w100) Private Sub Command1_Click() Dim w As Integer, x As Integer w = Val(Text1.Text) x = Val(Text1.Text) FontSize = 60 Select Case w Case 0 To 50 Label1.Caption = 0.25 * w Case 50 To 100 Label1.Caption = 0.25 * 50 + 0.35 * (w - 50) Case Is = 100 Label1.Captio