vb练习题答案

1、vb答案简单应用题1Option ExplicitPrivatenCount As LongPrivateSub Form_Load()nCount = 1EndSubPrivateSub timeClock_Timer()lblClock = nCountnCount = nCount + 1EndSub2.Option ExplicitPrivateSub optCenter_Click()txtInput.Alignment = 2EndSubPrivateSub optRight_Click()txtInput.Alignment = 1EndSubPrivateSub optLeft

2、_Click()txtInput.Alignment = 0EndSubPrivateSub optHt_Click()txtInput.FontName = 黑体EndSubPrivateSub optSt_Click()txtInput.FontName = 宋体EndSub3Option ExplicitPrivateSub Form_Load()Form1.ShowtxtUserName.SetFocusEndSubPrivateSub txtPassWord_Change()If chkShowPwd.Value = 1 ThentxtShowPwd.PasswordChar = E

3、lsetxtShowPwd.PasswordChar = #End IftxtShowPwd.Text = txtPassWord.TextEndSubPrivateSub txtUserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Len(Trim(txtUserName.Text) 0ThentxtPassWord.SetFocusElseMsgBox 用户名不能为空！, vbCritical, 警告txtUserName.SetFocusEnd IfEnd IfEndSub4.Option ExplicitPrivat

4、eSub cmdCalc_Click()Dim i As Integer, Result As IntegerDim opt As StringFor i = 0 To 3If optOperator(i).Value = True Thenopt = optOperator(i).CaptionEnd IfNextSelect Case optCase +Result = hsbNum1 + hsbNum2Case -Result = hsbNum1 - hsbNum2Case Result = hsbNum1 * hsbNum2Case Result = hsbNum1 / hsbNum2

5、End SelectlblOpResult.Caption = Str(hsbNum1.Value)& opt & Str(hsbNum2.Value) & = & Str(Result)EndSub5. OptionExplicitPrivateSub cmdOK_Click()If lstSubjects.ListIndex = 0 ThenIf optBs.Value = True ThentxtContents.Text = lstSubjects.List(lstSubjects.ListIndex)& optBs.CaptionElseIf optSj.Value = True T

6、hentxtContents.Text =lstSubjects.List(lstSubjects.ListIndex) & optSj.CaptionElseMsgBox 请鼠标单击选择其中的一种考试形式!, vbOKOnly, 提示End IfElseMsgBox 请单击鼠标选择考试科目的其中一项!, vbOKOnly, 提示End IfEndSubPrivateSub lstSubjects_Click()EndSub6.Option ExplicitPrivateSub cmdAdd_Click()Dim k As Integerk = 0While (k Me.Width Theni

7、mgShow.Left = 0End IfhsbMove.Value = (hsbMove.Value + 200) ModhsbMove.MaxEndSub14.Option ExplicitPrivateSub Form_Activate()txtInput.SetFocusEndSubPrivateSub lstCity_DblClick()Dim n As Integer, i As Integern = lstCity.ListCounti = lstCity.ListIndexIf n 0 And lstCity.Selected(i) = TrueThenlstCity.Remo

8、veItem iEnd IfEndSubPrivateSub txtInput_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Len(Trim(txtInput.Text) 0 ThenlstCity.AddItem Trim(txtInput.Text)txtInput.Text = txtInput.SetFocusElseMsgBox 文本框的内容不能为空!, vbOKOnly, 提示End IfEnd IfEndSub15.Option ExplicitPrivateSub cmdCancel_Click()EndEndSub

9、PrivateSub cmdOK_Click()Dim cUserName As String, cPwd As StringcUserName = Trim(txtUserName.Text)cPwd = Trim(txtPwd.Text)If cUserName = admin And cPwd =admin ThenUnload MesIDE.ShowElseEndEnd IfEndSub16.Option ExplicitPrivateSub cmdConvert_Click()Dim n As Integer, k As IntegerDim s1 As String, c1 As

10、Stringn = Len(txtInput.Text)s1 = For k = 1 To nc1 = Mid(txtInput.Text, k, 1)If optUpDown.Value = True ThenIf c1 = a And c1 = A And c1= 1250 Then Exit ForNext jIf sum = 1250 ThenPrint i; ; jEnd IfNext iEndSub18.OptionExplicitPrivateSub cmdDisplay_Click()Dim i As IntegerFor i = 0 To lstSchool.ListCoun

11、t - 1If lstSchool.Selected(i) = True ThenPrint lstSchool.List(i)End IfNextEndSub.编程题1.Submain()Dim a(), i As Integer, key As Integer, n AsInteger, index As IntegerOpen in.txt For Input As #1Open out.txt For Output As #2Input #1, n, keyReDim a(n - 1)For i = 0 To n - 1Input #1, a(i)Next iindex = FalseFor i = LBound(a) To UBound(a)If key = a(i) Thenindex = index + 1End IfNext iPrint #2, index;Close #1, #2End Sub2. Submain()Dim a(), i As Integer, key As String, n AsInteger, index As IntegerOpen in.txt For Input As #1Open out.txt For Output As #2Input #1, nI