Bài tập ôn Kỹ thuật lập trình

Tài liệu về các bài tập kỹ thuật lập trình tin học...
Nội dung trích xuất từ tài liệu:
Bài tập ôn Kỹ thuật lập trìnhBài 1. viết chương trình lời chào hello!!!Private Sub cmdCHAO_Click()txtDisplay.Text = chao ban!!!!!End SubPrivate Sub cmdTHOAT_Click()EndEnd SubPrivate Sub cmdXOA_Click()txtDisplay.Text = End SubBài 2Option ExplicitPrivate Sub cmdCAPNHAT_Click()Dim GT As String * 5Dim HOTEN As String * 30Dim NAMSINH As IntegerDim TUOI As SingleDim NAM As Dategán giá tri vào bienHOTEN = txtHOTENNAMSINH = Val(txtNAMSINH)NAM = Year(Date)TUOI = NAM - txtNAMSINH If chkGT = 1 Then If TUOI 50 Then GT = ONG Else GT = CHU End If End If Else If TUOI 50 Then GT = BA Else GT = CO End If End If End If lblCHAO = Chaøo & GT & HOTEN & Chr(13) & Raát vui ñöôïc ñoùn & GT &ñeán vôùi cöûa haøng cuûa chuùng toâiEnd SubPrivate Sub cmdTHOAT_Click()EndEnd SubBài 3Private Sub CmdASCII_Click()Dim i As IntegerFor i = 0 To 255Text2 = Text2 & vbCrLf & i & --> & Chr(i)Next iEnd SubPrivate Sub CmdTHOAT_Click()EndEnd SubPrivate Sub CmdTINH_Click()LblKQ = Text1 & --> & Chr(Text1)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1)LblKQ = ki tu bieu dien cua ma ASCII & Text1 & la: & Chr(Val(Text1))End IfEnd SubBài 4Private Sub CMDTHOAT_Click()If MsgBox(Ban That Su Muon Thoat??, 4 + 32, tb) = 6 ThenEndEnd IfEnd SubPrivate Sub CMDXEM_Click()Dim I As ByteDim A As StringTXTNHAP.SetFocusIf I < 1 And I > 9 ThenTXT2.Text = KHONG CO KET QUA!!!TXTNHAP.SetFocusTXTNHAP.SelStart = 0TXTNHAP.SelLength = Len(TXTNHAP)ElseFor I = 1 To 10A = TXTNHAP.Text * ITXT2.Text = TXT2 & vbCrLf & TXTNHAP & X & I & = & A & vbCrLfTXTNHAP.SetFocusTXTNHAP.SelStart = 0TXTNHAP.SelLength = Len(TXTNHAP)TXT2.SelStart = 0TXT2.SelLength = Len(TXT2)Next IEnd IfEnd SubBài 5Private Sub cmdthoat_Click(Index As Integer)EndEnd SubPrivate Sub cmdtinh_Click(Index As Integer)Dim N, I, GT, X, f As IntegerDim S, T, S2, S3, S4 As SingleN = Val(txt1) S=0 For I = 1 To N S=S+1/I S = Format(S, ##,##.00) txt3 = SNext I GT = 1 T=0 For I = 1 To N GT = GT * I T = T + 1 / GT T = Format(T, ##,##.00) txt4 = TNext I GT = 1 X = Val(txt2) S2 = 1 For I = 1 To N G=G*I S2 = S2 + X * I / GT txt5 = S2Next I S4 = 0 For I = 1 To N S4 = S4 + Sin(X) + Sin(X) * I txt7 = S4 Next IEnd SubBài 6Option ExplicitDim i As BytePrivate Sub Form_Load()i=0End SubPrivate Sub Timer1_Timer()If i < 5 Then Me.BackColor = QBColor(Int(Rnd * 16)) Image1.Picture = Image2(i).Picture i=i+1Else i=0End IfEnd SubBài 7Private Sub cmd_thoat_Click()EndEnd SubPrivate Sub cmd1_Click()Dim X, Y, CANH, CANH2 As SingleX = Val(txtX)Y = Val(txtY)CANH = Val(txtCANH)CANH2 = Val(txtCANH2)If (txtCANH2.Visible = True) ThenShape1.Left = XShape1.Top = YShape1.Width = CANH2Shape1.Height = CANHElseShape1.Left = XShape1.Top = YShape1.Width = CANHShape1.Height = CANHEnd IfEnd SubPrivate Sub cmd2_Click()Dim X, Y, CANH As SingleX = Val(txtX)Y = Val(txtY)CANH = Val(txtCANH)CANH2 = Val(txtCANH2)If (txtCANH2.Visible = True) ThenShape1.Left = X - CANH / 2Shape1.Top = Y - CANH2 / 2Shape1.Width = CANH2Shape1.Height = CANHElseShape1.Left = X - CANH / 2Shape1.Top = Y - CANH / 2Shape1.Width = CANHShape1.Height = CANHEnd IfEnd SubPrivate Sub form_load()ScaleMode = 7Picture1.ScaleMode = 7End SubPrivate Sub Option2_Click(Index As Integer)Shape1.Shape = IndexSelect Case IndexCase 0, 2Label4.Visible = TruetxtCANH2.Visible = TrueCase 1, 3Label4.Visible = FalsetxtCANH2.Visible = FalseEnd SelectEnd SubBài 8 timer : intetval: 500Private Sub Timer1_Timer()Label1 = Time()End SubBài 9Option ExplicitPrivate Sub cmdTINH_Click()Dim CANH1, CANH2, DT, CV As SingleCANH1 = Val(txtCanh1)CANH2 = Val(txtCanh2)CV = (CANH1 + CANH2) * 2DT = CANH1 * CANH2lblKQ = dien tich= & DT & Chr(13) & chu vi= & CVchuyen focus ve txtCanh1txtCanh1.SetFocuschoïn nguyen chuoi so trong txtCanh1txtCanh1.SelStart = 0txtCanh1.SelLength = Len(txtCanh1)End SubPrivate Sub txtCanh1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then txtCanh2.SetFocuschoïn nguyen chuoi so trong txtCanh2 txtCanh2.SelStart = 0 txtCanh2.SelLength = Len(txtCanh2)End IfEnd SubPrivate Sub txtCanh2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then goi thuc hien thu tuc cmdTINH-click cmdTINH_ClickEnd IfEnd SubBài 10Private Sub cmdthoat_Click()EndEnd SubPrivate Sub txtsodau_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then txtsosau.SetFocus txtsosau.SelStart = 0 txtsosau.SelLength = Len(txtsosau)End IfEnd SubPrivate Sub txtsosau_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then cmdtinh_ClickEnd IfEnd SubPri ...