计算机二级VB上机操作题i.docx

1、计算机二级VB上机操作题i计算机二级VB上机操作题1、屏保Private Sub Form_DblClick()EndEnd SubPrivate Sub Timer1_Timer()Print *Form1.CurrentX = Rnd * Form1.WidthForm1.CurrentY = Rnd * Form1.HeightForm1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)Form1.FontSize = Rnd * 60End Sub2、抽奖Private Sub Command1_Click()Timer1.Enabled

2、 = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Label1_Click()Label1.Caption = 今天是 & Year(Now) & 年 & Month(Now) & 月 & WeekdayName(Weekday(Now)End SubPrivate Sub Timer1_Timer()Text1.Text = Int(Rnd * 10)Text2.Text = Int(Rnd * 10)Text3.Text = Int(Rnd * 10)Text4.Text =

3、 Int(Rnd * 10)Text5.Text = Int(Rnd * 10)Text6.Text = Int(Rnd * 10)Text7.Text = Int(Rnd * 10)End Sub3、将第一个字母换成大写，其余小写Private Sub Form_Click()Dim x As Strings = miDEFSDVFGSPrint UCase(Mid(s, 1, 1) & LCase(Mid(s, 2, Len(s) - 1)End Sub4、求SIN？=？Private Sub Form_Click()Dim x As Integerx = Text1.TextText2.

4、Text = Sin(x * 3.1415926 / 180)End Sub5、09年（春）上机 05Option ExplicitOption Base 1Private Sub Command1_Click() Dim k As Integer, n As Integer, num() As Integer, i As Integer Do n = Int(Rnd * 900) + 100 If validate(n) Then k = k + 1 ReDim Preserve num(k) num(k) = n End If Loop Until k = 12 For i = 1 To

5、UBound(num) If i Mod 4 0 Then Text1 = Text1 & Str(num(i) Else Text1 = Text1 & Str(num(i) & vbCrLf End If Next iEnd SubPrivate Function validate(ByVal n As Integer) As Boolean Dim p(3) As Integer, i As Integer, j As Integer, k As Integer Do i = i + 1 p(i) = n Mod 10 n = n 10 Loop Until n = a And Mid(

6、s, i, 1) = A And Mid(s, i, 1) = Z Then da = da + 1 Else qt = qt + 1 End IfEnd IfNext iPrint 大写字母个数 & daPrint 小写字母个数 & xiaoxiePrint 其它 & qtEnd Sub15、金字塔：Private Sub Form_Click()For i = 1 To 5 Print Space(5 - i) & String(2 * i - 1, *)Next iFor i = 1 To 5 Print Space(i) & String(8 - (2 * i - 1), *)Next

7、 iEnd Sub16、九九乘法表Private Sub Form_Click()For i = 1 To 9 For j = 1 To i Print i & x & j & = & i * j & Space(1); Next jPrintNext iEnd Sub17、求两个数的最大公约数和最小公倍数Private Sub Form_Click()Dim a As IntegerDim b As IntegerDim ab As Integera = InputBox()b = InputBox()Dim r As Integerab = a * br = a Mod bDo While

8、 r 0 a = b b = r r = a Mod bLoopPrint 最大公约数 & bPrint 最小公倍数 & ab / bEnd Sub18、人口问题Private Sub Form_Click()Dim n As LongDim p As Longp = 1300000000While p = HScroll1.Max Then x = -xEnd IfIf HScroll1.Value = Form1.Width ThenLabel1.Left = -Label1.WidthEnd IfEnd Sub25、随机产生100个数，以10行10列排列，求100个数的最大最小值以及平均

9、数Option Base 1Private Sub Form_Click()Dim a(100) As IntegerDim sum As IntegerDim max As IntegerDim min As IntegerDim avr As Integer/string(单精度) For i = 1 To 100 a(i) = Int(Rnd * 90) + 10 Next iFor i = 1 To 100 sum = sum + a(i) avr = sum / 100 Print a(i); If i Mod 10 = 0 Then PrintNext iPrint 100个数的和

10、为 & sumPrint 100个数平均数 & avrmax = a(1)min = a(1)For i = 2 To 100 If max a(i) Then min = a(i)Next iPrint 最大值 & maxPrint 最小值 & minFor i = 1 To 100If max = a(i) Then Print 最大值在第 & i; 位 Next iEnd subPrivate sub form_load()RandomizeEnd sub26、1 2 3 4 5 6 7 8 9 1010 9 8 7 6 5 4 3 2 1 Private Sub Form_Click(

11、)Dim a(10) As Integer For i = 1 To 10 a(i) = i Print a(i); Next iDim t As Integer For i = 1 To 5 t = a(i) a(i) = a(11 - i) a(11 - i) = t Next i PrintFor i = 1 To 10 Print a(i); Next iEnd Sub27、列表框Private Sub Command1_Click()List1.AddItem 1List1.AddItem 2List1.AddItem 3List1.AddItem 4List1.AddItem 5L

12、ist1.AddItem 6List1.AddItem 7List1.AddItem 8End SubPrivate Sub Command2_Click()For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then List2.AddItem List1.List(i) End IfNext iFor i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) = True Then List1.RemoveItem i End IfNext iEnd Sub28、

13、1 1 2 3 5 8 13 21 34Private Sub Form_Click()Dim a() As LongDim n As IntegerDim sum As Longn = InputBox()ReDim a(n) As Longa(1) = 1a(2) = 1 For i = 3 To n a(i) = a(i - 2) + a(i - 1) Next i For i = 1 To n sum = sum + a(i) Next iPrint sumn = InputBox()ReDim Preserve a(n) As LongFor i = 1 To nPrint a(i)

14、;If i Mod 8 = 0 Then PrintNext iEnd Sub29、随机产生五个数，并且将五个数字按顺序排列：Private Sub Form_Click()Dim a(5) As IntegerFor i = 1 To 5 a(i) = Int(Rnd * 10) + 1Print a(i);Next iPrintDim t As IntegerFor i = 1 To 4 For j = i + 1 To 5 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next jNext iFor i = 1 To 5Pr

15、int a(i);Next iEnd Sub30、随机产生100个数，并且将100个数字按顺序排列：Private Sub Form_Click()Dim a(100) As IntegerFor i = 1 To 100 a(i) = Int(Rnd * 90) + 10Print a(i); If i Mod 10 = 0 Then Print a(i) 成十行十列排列Next iPrintDim t As IntegerFor i = 1 To 99 For j = i + 1 To 100 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next jNext iFor i = 1 To 100Print a(i);