2014内蒙古计算机类综合考试模拟试题四带答案.doc

20. 题目：“产生随机字母” 按钮Command1，产生10个大写的随机字母放入数组，并显示在图示的标签lblu上；单击“排序” 按钮Command2，将排序后的字母输出到图示的标签lblsort。（涉及的循环要求用for循环） Dim s(1 To 10) As String Private Sub Command1_Click() lblu.Caption = For i = 1 To 10 s(i) = lblu.Caption = lblu.Caption s(i) Next i End Sub Private Sub Command2_Click() lblsort.Caption = For i = 1 To 9 Min = i For j = If s(j) s(Min) Then Min = j Next j t = s(Min): s(Min) = : s(i) = t Next i For i = 1 To 10 lblsort.Caption = lblsort.Caption s(i) Next i End Sub 21．题目：10 个100~200 之间的正整数，将它们按从大到小的顺序排列。运行界面如图所示。(要求用for循环) Private Sub Command1_Click() Dim x(1 To 10) As Integer Cls Print Randomize Print 原始数据： For i = 1 To 10 x(i) = Print x(i); Next i Print: Print Print 排序数据： For i = 1 To 9 Max = i For j = If x(Max) x(j) Then Next j t = x(Max): x(Max) = : x(i) = t Next i For i = 1 To 10 Print x(i); Next i End Sub 22．题目：Command1求P 的值。P=1+1/(1+2)+1/(1+2+3)+…+1/(1+2+3+…+10)。（要求for循环实现）运行界面如图: Private Sub Command1_Click() Dim p As Single, s As Single p = s = 0 For i = 1 To 10 s = p = Next i Print p= p End Sub