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

计算机二级VB上机操作题 1、屏保 Private Sub Form_DblClick() End End Sub Private Sub Timer1_Timer() Print * Form1.CurrentX = Rnd * Form1.Width Form1.CurrentY = Rnd * Form1.Height Form1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Form1.FontSize = Rnd * 60 End Sub 2、抽奖 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Label1_Click() Label1.Caption = 今天是 Year(Now) 年 Month(Now) 月 WeekdayName(Weekday(Now)) End Sub Private Sub Timer1_Timer() Text1.Text = Int(Rnd * 10) Text2.Text = Int(Rnd * 10) Text3.Text = Int(Rnd * 10) Text4.Text = Int(Rnd * 10) Text5.Text = Int(Rnd * 10) Text6.Text = Int(Rnd * 10) Text7.Text = Int(Rnd * 10) End Sub 3、将第一个字母换成大写，其余小写 Private Sub Form_Click() Dim x As String s = miDEFSDVFGS Print UCase(Mid(s, 1, 1)) LCase(Mid(s, 2, Len(s) - 1)) End Sub 4、求SIN？=？ Private Sub Form_Click() Dim x As Integer x = Text1.Text Text2.Text = Sin(x * 3.1415926 / 180) End Sub 5、09年（春）上机 05 Option Explicit Option Base 1 Private 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 UBound(num) If i Mod 4 0 Then Text1 = Text1 Str(num(i)) Else Text1 = Text1 Str(num(i)) vbCrLf End If Next i End Sub Private 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 = 0 For i = 1 To UBound(p) - 1 For j = i + 1 To UBound(p) If p(i) = p(j) Then k = k + 1 Next j Next i If k = 1 Then validate = True End Function 6、答题 Dim result As Integer Dim rightq As Integer Dim wrongq As Integer Private Sub Command1_Click() Di