實驗練習20題記錄2

1、VB實驗練習20題記錄（2） 以下是用VB6實驗練習的記錄。目錄例子一 求100到200之間的所有素數(shù)- 1例子二 -統(tǒng)計某個文本文件中英文字母的個數(shù) 2例子三 vb 文本框中內容寫入文本文件- 2例子四 以下三角的形式輸出九九乘法表- 3例子五 三數(shù)階乘和 4例子六 用InputBox$函數(shù)輸入一個正整數(shù)，計算其平方根 4例子七 找出不大于1000的最大素數(shù)。 4例子八 求1+1/2+1/100的值 5例子九 用vb中數(shù)組的語言編寫一個5*5的陣列 6例子十 把文本文件內容寫到TextBox 6例子十一 計算S的值:s=2+4+6+8+100 7例子十二 計算S的值:s=1+2+3+4+5+

2、6+100 7例子十三 王大力35 8例子十四 列表框項目數(shù)在標簽中顯示出來 8例子十五 愛心社兩個復選框 9例子十六 操作系統(tǒng)三個復選框 10例子十七 圓柱面積 10例子十八 考試科目數(shù)學英語 11例子十九 n的階乘 12例子二十 一元二次方程 12例子一：VB編程，求100到200之間的所有素數(shù)。解題的源代碼：Private Sub Command1_Click()For i = 101 To 199 Step 2For j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNextIf j > Sqr(i) ThenPrint i;c = c + 1

3、If c Mod 5 = 0 ThenPrintEnd IfEnd IfNextEnd Sub例子二：VB編程，統(tǒng)計某個文本文件中英文字母的個數(shù)。2、用vb設計一個應用程序，統(tǒng)計某個文本文件中英文字母的個數(shù)，并將統(tǒng)計結果寫入另一個文本文件解題的源代碼：Private Sub Command1_Click()Dim s As String, x As Strings = ""Open "C:1.txt" For Input As #1 'word.txt為需統(tǒng)計的文件Do While Not EOF(1) Input #1, x s = s + x

4、LoopClose #1For i = 1 To Len(s) If Asc(Mid(s, i, 1) >= 65 And Asc(Mid(s, i, 1) <= 122 Then n = n + 1 '統(tǒng)計英文個數(shù) Else m = m + 1 '統(tǒng)計中文個數(shù) End IfNextOpen "C:2.txt" For Output As #2 '輸出統(tǒng)計結果文件 Print #2, "英文個數(shù)：" & n Print #2, "中文個數(shù)：" & mClose #2End Sub例子

5、三：vb 文本框中內容寫入文本文件。解題的源代碼：private sub command1_click()open "c:1.txt" for output as #1 print #1,text1.text close #1 end sub直接寫入，會覆蓋原來的所有數(shù)據(jù) private sub command1_click()open "c:1.txt" for Append as #1 print #1,text1.text close #1 end sub追加寫入，寫在原來的數(shù)據(jù)后面，不會破壞原來的數(shù)據(jù)。 如果沒有"c:1.txt&quo

6、t;,這兩種方法都會自動新建此文件例子四：1 以下三角的形式輸出九九乘法表。解題的源代碼：Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To i Print j & "X " & i & "= " & i * j & vbTab; Next Print NextEnd Sub另一解題的源代碼：Private Sub command1_Click()Print Tab(35); "乘法

7、表"Dim Se As StringFor i = 1 To 9 For j = 1 To i Se = j & "X" & i & "=" & i * j Print Tab(j - 1) * 9); Se; Next j PrintNext iEnd Sub例子五：1三數(shù)階乘和。H=X!+Y!+Z!解題的源代碼：Function JC(n As Integer) As LongIf n > 0 ThenJC = n * JC(n - 1)ElseJC = 1End IfEnd FunctionPriva

8、te Sub Command1_Click()Text4 = JC(CInt(Val(Text1) + JC(CInt(Val(Text2) + JC(CInt(Val(Text3)End Sub例子六：3.用 InputBox$函數(shù)輸入一個正整數(shù)，若輸入正確，計算其平方根。解題的源代碼：Private Sub Form_Click()inputx: x = InputBox("輸入正整數(shù)", "數(shù)據(jù)輸入對話框") y = Val(x) r = MsgBox("檢查輸入的數(shù)據(jù)并確認", 4 + 32, "數(shù)據(jù)檢查對話框&qu

9、ot;) If r = 6 Then Print "平方根值=" Sqr(y) Else If r = 7 Then GoTo inputx End If End IfEnd Sub例子七：一、找出不大于1000的最大素數(shù)。解題的源代碼： Private Sub Command1_Click() Dim I As Integer, J As Integer For I = 1000 To 1 Step -1 K = "I是素數(shù)" '先假設I是素數(shù) '以下判斷I是否是素數(shù) For J = 2 To I - 1 If I Mod J = 0

10、Then K = "I不是素數(shù)" Next J If K = "I是素數(shù)" Then Print I: Exit For Next IEnd Sub例子八：一、 求1+1/2+1/100的值二、題目是求的值。解題的源代碼：Private Sub Form_Click() Dim i As Integer, s As Double s = 0 For i = 1 To 100 s = s + (-1) (i - 1) / i Next i Print "s=" sEnd SubOK拉。結果是：s=例子九：如何用vb中數(shù)組的語言編寫一個5

11、*5的陣列，第一行為12345，第二行為23452,三為34512四為45123五為51234解題的源代碼：Private Sub Command1_Click()Dim a(5, 5) As Byte, i As Byte, j As ByteFor i = 1 To 5 For j = 1 To 6 - i a(i, j) = j + i - 1 Next j, iFor i = 2 To 5 For j = 5 - i + 2 To 5 a(i, j) = j + i - 6Next j, iFor i = 1 To 5 For j = 1 To 5 Print a(i, j); Nex

12、t j PrintNext iEnd Sub例子十：把文本文件內容寫到TextBox： 解題的源代碼：Private Sub command1_click()Dim TempFile As LongDim LoadBytes() As Byte TempFile = FreeFileOpen "c:1.txt" For Binary As #TempFileReDim LoadBytes(1 To LOF(TempFile) As ByteGet #TempFile, , LoadBytesClose TempFile Text1.Text = StrConv(L

13、oadBytes, vbUnicode)End Sub例子十一：計算S的值:s=2+4+6+8+100解題的源代碼：Private Sub Command1_Click()Dim i, s As Integers = 0For i = 2 To 100 Step 2s = s + iNextPrint sEnd Sub答案：2550例子十二：計算S的值:s=1+2+3+4+5+6+100解題的源代碼：Private Sub Command1_Click()Dim i, s As Integers = 0For i = 1 To 100 Step 1s = s + iNextPrint sEnd

14、 Sub答案：5050例子十三：1在名稱為Form1的窗體上畫兩個標簽名稱分別為Label1和Label2標題分別為“姓名”和“年齡”、兩個文本框名稱分別為Text1和Text2Text屬性均為空白和一個命令按鈕名稱為Command1標題為“顯示”。然后編寫命令按鈕的Click事件過程。程序運行后在兩個文本框中分別輸入姓名和年齡然后單擊命令按鈕則在窗體上顯示兩個文本框中的內容。要求程序中不得使用任何變量。 *注意存盤時必須存放在考生文件夾下工程文件名為sj39.vbp窗體文件名為sj39.frm。 Private Sub Command1_Click() Print Text1.text+”,

15、現(xiàn)年”+text2.text+“歲” End Sub解題的源代碼：Private Sub Command1_Click()Print Text1.Text + ",現(xiàn)年" + Text2.Text + "歲"End Sub王大力現(xiàn)年35歲例子十四：列表框項目數(shù)在標簽中顯示出來10.列表框項目數(shù)在標簽中顯示出來在Form1的窗體上畫一個標簽其名稱為Lab1再畫一個列表框其名為L1通過屬性窗口向列表框中添加若干個項目每個項目的具體內容不限編寫適當?shù)氖录^程。程序運行后如果雙擊列表框中的任意一項則把列表中的項目數(shù)在標簽中顯示出來。程序的運行情況如圖所示。不準使

16、用任何變量。 *注意 存盤時必須存放在考生文件夾下工程文件名為sjt14.vbp窗體文件名為sjt14.frm。 Private Sub L1_DblClick() Lab1.Caption = L1.ListCount End Sub解題的源代碼：Private Sub L1_DblClick() Lab1.Caption = L1.ListCountEnd Sub例子十五：愛心社兩個復選框12愛心社兩個復選框在考生文件夾中有文件wy22.vbp及其窗體文件wy22.frm該程序是不完整的請在有號的地方填入正確內容然后刪除及所有注釋符即'號但不能修改其它部分。存盤時不得改變文件夾和文

17、件名。 本題描述如下 窗體上有一個名稱為Text1的文本框兩個復選框名稱分別為Ch1和Ch2標題分別為"愛心社"和"學通社"。要求程序運行后如果只選中Ch1單擊窗體則在文本框中顯示"報名參加愛心社"如果只選中Ch2然后單擊窗體則在文本框中顯示"報名參加學通社"如果同時選中 Ch1 和Ch2單擊窗體則在文本框中顯示"報名參加愛心社和學通社" 如果Ch1和Ch2都不選取在單擊窗體后則在文本框中什么都不顯示。 Option Explicit Private Sub Form_Click() Text1

18、.Text = "" If Ch1.Value = 1 Then Text1.Text = Text1.Text + "愛心社" End If If Ch2.Value Then If Text1.Text <> "" Then Text1.Text = "愛心社" + "和" Text1.Text = Text1.Text + "學通社" End If If Text1.Text <> "" Then Text1.Text = &

19、quot;報名參加" + Text1.Text End If End Sub解題的源代碼：Option ExplicitPrivate Sub Form_Click() Text1.Text = "" If Ch1.Value = 1 Then Text1.Text = Text1.Text + "愛心社" End If If Ch2.Value Then If Text1.Text <> "" Then Text1.Text = "愛心社" + "和" Text1.Tex

20、t = Text1.Text + "學通社" End If If Text1.Text <> "" Then Text1.Text = "報名參加" + Text1.Text End IfEnd Sub例子十六：操作系統(tǒng)三個復選框14. 按下述要求在屬性窗口中設置屬性在名稱為Form1的窗體中建立一個標簽名稱為L1在標簽上顯示"選課"其字號大小為四號再建立三個復選框名稱分別為Chk1、Chk2和Chk3標題分別為"操作系統(tǒng)"、"數(shù)據(jù)庫原理"、"概率論&q

21、uot;字體大小均為14其中"概率論"被禁用。 *注意 保存時必須存放在考生文件夾下窗體文件名為wy15.frm工程文件名為wy15.vbp。 解題的源代碼：（答案）Private Sub Form_Load() Chk3.Enabled = False End Sub例子十七：圓柱面積文本框1輸入圓柱的半徑r，文本框2里輸入圓柱的高度h，文本框3輸出圓的周長，文本框4輸出圓的底面積，文本框5輸出圓的側面積，文本框6輸出圓的體積。解題的源代碼：Private Sub Form_Load() Text3.Locked = True '將輸出信息的文本框設置為只讀 Te

22、xt4.Locked = True Text5.Locked = True Text6.Locked = True End SubPrivate Sub Command1_click()Dim r As Single, h As Singler = Val(Text1.Text)h = Val(Text2.Text)Text3.Text = r * 2 * Pi '圓周長Text4.Text = r * r * Pi '底面積Text5.Text = (r * 2 * Pi) * h '側面積Text6.Text = (r * r * Pi) * h '體積En

23、d Sub例子十八： 考試科目數(shù)學英語解題的源代碼：Private Sub Command1_Click()Dim Sex As StringDim S1 As String, S2 As String, S3 As StringIf Option1.Value = True ThenSex = "男"ElseSex = "女"End IfIf Check1.Value = 1 ThenS1 = "數(shù)學"ElseS1 = ""End IfIf Check2.Value = 1 ThenS2 = "英語&q

24、uot;ElseS2 = ""End IfIf Check3.Value = 1 ThenS3 = "政治"ElseS3 = ""End IfText1.Text = "性別：" + Sex + " 考試科目：" + S1 + S2 + S3End Sub例子十九：n的階乘例子5.12求數(shù)N！新建一個窗體，添加一個標簽文本用于顯示結果，用窗體的CLICK事件觸發(fā)階乘處理過程。解題的源代碼：Private Sub Command1_Click()Dim N As Integer, K As IntegerDim T As IntegerT = 1N = InputBox("請輸入數(shù)N", "輸入數(shù)")For K = 1 To N T =