2013年大学二年级VB期末考试实验操作题.docVIP

1.1到100之间所以能被3整除，个位为2Private Sub cmdExit_Click() End End Sub Private Sub cmdRun_Click() For i = 1 To 100 If i Mod 3 = 0 And i Mod 10 = 2 Then Print 1至100能被3整除且各位为2的数:; i End If Next i End Sub2. 1到100所以奇数之和 Private Sub cmdExit_Click() End End Sub Private Sub cmdSum_Click() Dim i As Integer k = 0 Sum = 0 For i = 1 To 100 If i Mod 2 0 Then Sum = Sum + i Print i; k = k + 1 If k Mod 5 = 0 Then Print End If Next i Print 所有奇数的和:; Sum End Sub 3.单选按钮-复选框-下划线 Private Sub chkChoice1_Click() If chkChoice1.Value Then txtOp1.FontUnderline = True Else txtOp1.FontUnderline = Flase End If End Sub Private Sub chkChoice2_Click() If chkChoice2.Value Then txtOp1.FontBold = True Else txtOp1.FontBold = Flase End If End Sub Private Sub chkChoice3_Click() If chkChoice3.Value Then txtOp1.FontItalic = True Else txtOp1.FontItalic = Flase End If End Sub Private Sub cmdClear_Click() txtOp1.Text = End Sub Private Sub cmdExit_Click() End End Sub Private Sub OptFont1_Click() If OptFont1.Value Then txtOp1.FontName = 宋体 End Sub Private Sub OptFont2_Click() If OptFont2.Value Then txtOp1.FontName = 黑体 End Sub Private Sub OptFont3_Click() If OptFont3.Value Then txtOp1.FontName = 仿宋 End Sub Private Sub txtOp1_Change() txtOp1.Text = txtOp1.Text End Sub 4.菲比那契数列 Option Base 1 Private Sub cmdExit_Click() End End Sub Private Sub cmdRun_Click() Dim a(20) As Integer a(1) = 0: a(2) = 1 Sum = a(1) + a(2) Print a(1) Print a(2) For i = 3 To 20 a(i) = a(i - 1) + a(i - 2) Print a(i) Sum = Sum + a(i) Next i Print Sum End Sub5.核对密码 Private Sub cmdCheck_Click() Dim a As String a = txtPW.Text If a = 123 Then txtPW.PasswordChar = txtPW.Text = 欢迎! Else txtPW.PasswordChar = txtPW.Text = 密码有误，请重新输入! End If End Sub Private Sub cmdClear_Click() txtPW.Text = txtPW.SetFocus txtPW.PasswordChar = * End Sub Private Sub cmdExit_Click() End End Sub 6.拆分数据 Private Sub cmdInput_Click() s = InputBox(请输入一个整数, 输入对话框)