第一篇:VB上機考試 習題以及答案
VB上機考試
1、利用隨機函數(shù)產(chǎn)生25個100到999之間的整數(shù),構成5?5的矩陣,輸出該矩陣。Dim a(1 To 5, 1 To 5)Private Sub Form_Click()Randomize For i = 1 To 5 For j = 1 To 5 a(i, j)= Int(Rnd *(99910 + 1)+ 10)Print a;s = s + a Next i Print Avg = s / 25 Print Avg End Sub
3、在窗體上按下鼠標的右鍵,記錄其坐標。
Private Sub Form_Load()Label1.BorderStyle = 1 Label1.Alignment = 2 End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then Label1.Caption = X & “,” & Y End If End Sub
4、利用隨機函數(shù)產(chǎn)生25個10到99之間的整數(shù),按從小到大的順序顯示。Dim a(1 To 25)Private Sub Form_Click()Cls For i = 1 To 25 a(i)= Int(Rnd *(991 For j = 1 To 251 + 1)+ 1)a(x)= a(x)+ 1 Next j For i = 1 To 6 Print i & “出現(xiàn)了” & a(i);“次” Next i
End Sub
6、在文本框中輸入一些英語單詞,統(tǒng)計空格的個數(shù)。
Dim n%, x As String, s% Private Sub Form_Click()n = Len(Text1.Text)x = Text1.Text For i = 1 To n If Mid(x, i, 1)= “ ” Then s = s + 1 Next i Print “共出現(xiàn)了” & s & “個空格” End Sub
7、編程計算下列公式的值,其中n(<10)為從鍵盤輸入的正整數(shù)。S=1!+3!+5!+……+(2*n-1)!Private Sub Form_Click()n = Val(InputBox(“請輸入一個不大于10的整數(shù)”))s = 0 For i = 1 To 2 * n2 * i1 a = a + 1 Print Str(a);Next j Print Next i End Sub
10、用For …Next語句編程,雙擊窗體后,在屏幕上顯示如圖:
Private Sub Form_DblClick()For i = 1 To 3 Print Tab(113 * i);For j = 1 To 5 Print x;Next j Print Next i End Sub
12、從文本框輸入一個正整數(shù),判斷該數(shù)是否為素數(shù)。Dim a As Long Private Sub Form_Click()a = Val(Text1.Text)If a = 2 Then Tag = True ElseIf a Mod 2 = 0 Then Tag = False Else Tag = True For i = 3 To Sqr(a)Step 2 If a Mod i = 0 Then Tag = False: Exit For Next i End If If Tag = True Then Print a;“是素數(shù)” Else Print a;“不是素數(shù)” End If
End Sub
13、利用隨機函數(shù)產(chǎn)生并顯示10個3位數(shù)的正整數(shù),找出其中的最大數(shù)。Option Explicit Dim i%, max%, loc% Dim a(1 To 10)As Integer Private Sub Form_Click()Randomize Form1.Cls For i = 1 To 10 a(i)= Int(Rnd *(9991000 + 1)+ 1000)Print a(i)Next i min = 9999 For i = 1 To 10 If a(i)< min Then min = a(i): loc = i Next i Print “最小的數(shù)是”;min Print “在數(shù)組中是第”;loc;“個數(shù)” End Sub
15、當按下鼠標左鍵時,窗體的背景色變?yōu)榧t色;松開鼠標左鍵時,窗體的背景色變?yōu)榫G色。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbRed
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbGreen End Sub
16、編制一個時鐘程序,如下圖
:Option Explicit
Private Sub Form_Load()Label1.BackColor = vbWhite Label1.BorderStyle = 1 Label1.Alignment = 2 Timer1.Enabled = True Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer()Label1.Caption = Time End Sub
17、從鍵盤輸入10個數(shù),按輸入的順序和按輸入順序相反的順序輸出。Option Explicit Dim i% Dim a(1 To 10)As Single Private Sub Form_Click()For i = 1 To 10 a(i)= Val(InputBox(“請輸入第” & i & “個數(shù)”))Print a(i);Next i Print For i = 10 To 1 Step-1 Print a(i);Next i
End Sub
18、計算圓面積的程序。程序運行時,單擊窗體,然后在下圖所示的輸入框中輸入圓的半徑,即可在窗體上顯示計算出的圓面積。
Option Explicit Dim r%, a As Single Const pi As Single = 3.14159 Private Sub Form_Click()r = Val(InputBox(“請輸入圓半徑” & vbCrLf & “(1-9):”, “輸入”, 5))a = pi * r ^ 2 Print “半徑為”;r;“的圓面積為”;a End Sub
19、編寫一個時鐘程序,當選擇“24小時”時,以24小時的方式顯示如A,當選擇“12小時”時,以12小時的方式顯示如B。
Private Sub Form_Load()Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer()Select Case True Case Option1.Value Label1.Caption = Time Case Option2.Value Label1.Caption = Format(Time, “HH:MM:SS AM/PM”)End Select End Sub 20、設計一個程序,用戶界面如圖所示。程序運行后,用戶在文本框中輸入一段文字,然后按需要單擊選擇框,用以改變文本的字體、字型、顏色以及大小。
Option Explicit
Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontName = “黑體” Else Text1.FontName = “宋體” End If End Sub
Private Sub Check2_Click()If Check2.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub
Private Sub Check3_Click()If Check3.Value = 1 Then Text1.FontSize = 20 Else
Text1.FontSize = 9 End If End Sub
Private Sub Check4_Click()If Check4.Value = 1 Then Text1.ForeColor = vbGreen Else Text1.ForeColor = vbBlack End If End Sub
Private Sub Command1_Click()Text1.Text = “" End Sub
Private Sub Command2_Click()End End Sub 20做出2個周期的正弦波形.Private Sub Form_Click()Dim i%, x#, y# Const pi As String = 3.1415926 Form1.Scale(-2 * pi, 1.2)-(2 * pi,-1.2)Form1.Line(-2 * pi, 0)-(2 * pi, 0)Form1.Line(0, 1.2)-(0,-1.2)For x =-2 * pi To 2 * pi Step 0.01
y = Sin(x)
Form1.PSet(x, y)Next x End Sub 21以窗體為中心,產(chǎn)生1000個半徑顏色隨機的同心圓.Private Sub Form_Click()For i = 1 To 1000
x = Form1.ScaleWidth / 2
y = Form1.ScaleHeight / 2
r = Int(Rnd * y)
c = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
Form1.Circle(x, y), r, c Next End Sub 22.九九乘法表 Private Sub Form_Click()Dim i%, j% Form1.Caption = ”九九乘法表“ Print Tab(48);Caption Print Tab(48);”-------------“ For i = 1 To 9
For j = 1 To i
Print Tab((j-1)* 12 + 1);i;”*“;j;”=“;i * j;
Next j Print Next i End Sub 23求最大公約數(shù)和最小公倍數(shù) Private Sub Command2_Click()Text1.Text = ”“ End Sub
Private Sub command1_Click()Dim m%, n%, r%, t% m = Val(Text1.Text)n = Val(Text2.Text)If m < n Then t = m: m = n: n = t t = m * n Do
r = m Mod n
m = n
n = r Loop Until r = 0 Text3.Caption = ”公約數(shù):“ & m Text4.Caption = ”公倍數(shù)" & t / m End Sub 24.用隨機函數(shù)產(chǎn)生50個兩位數(shù),保存于一個一維數(shù)組中,要求找出其中的最大值,最小值及所在位置.
第二篇:2011級VB上機實習題
一、用記事本新建一個文本文件,將本班的M名學生在本學期的N門考試課的成績(要求用假想分數(shù),并要求將自己的每門課的分數(shù)定在96分以上,放在第一列;而將別人的大多數(shù)課程的分數(shù)都定在96分以下)輸入到這個文件中,建議按如下形式存放(注:20≤M≤50、5≤N≤8,下文以M=4,N=3為例):
學號姓名英語VB數(shù)學
1我自已969899
2李某919667
3王某755856
4趙某586777
二、將本學期的N門課程及其學分(16學時為1個學分)輸入到另一個數(shù)據(jù)文件(文件類型同上題)中,建議如下列形式存放:
編號課程名稱課程學分
1英語5.0
2vb程序設計4
3數(shù)學4.5三、請編寫一個簡單的學生成績管理程序,要求完成以下功能:
1)根據(jù)以上兩文件內(nèi)容分別計算每個學生N門課的加權平均分(保留2位小數(shù),4舍5入),按平均
分排列名次,平均分相同則名次并列,如第1、2、2、4、5、5、7…名。用VB創(chuàng)建一個數(shù)據(jù)文件,存放班級的成績表,建議按以下形式存放。
學號姓名英語C程序設計數(shù)學平均成績名次
1張某76898980.52
2李某91966778.23
3王某75585688.81
4趙某58677768.54
2)分別統(tǒng)計全班每門課的平均分,并計算各分數(shù)段(60分以下;60~69;70~79;80~89;90
分以上)的學生人數(shù)。用VB創(chuàng)建一個新的數(shù)據(jù)文件,在該文件中存放數(shù)據(jù)的格式如下: 范圍.英語VB......>=9035.......80-891012....................................3)打印每名學生成績條(并將結(jié)果存放到用VB創(chuàng)建的一個新的數(shù)據(jù)文件中)。
4)打印所有存在不及格課程學生的名單(含學號、不及格課程名稱、課程的學分及成績)。
5)打印優(yōu)等生名單(學號、N門課成績、平均分名次)
優(yōu)等生條件:
a)平均分 ? 90分
b)名次在本班位于前三名
c)平均分?85分,并且有二門課的成績都 ? 95分
選做內(nèi)容:打印每門課成績分布圖
說明:所有輸出結(jié)果應寫入用VB創(chuàng)建的文件中,格式要整齊,并有適當?shù)奈淖终f明。實習報告要求:應包括分析設計與說明、部分過程(函數(shù))的源程序清單、程序調(diào)試過程中遇到的問題及解決方法,有待改善或改進的意見,對本次實習的意見與建議、收獲等。其中原始數(shù)據(jù)及程序運行的結(jié)果應作為附錄附于實習報告之后。
第三篇:VB上機試題及答案
上機操作練習題
1.某數(shù)組有20個元素,其值為隨機產(chǎn)生的兩位整數(shù)?,F(xiàn)要求將前10個元素與后10個元素對換。即第1個元素與第20個元素互換,第2個數(shù)與第19個元素互換,…,第10個元素與第11個元素互換。在窗體上輸出數(shù)組原來各元素的值與對換后各元素的值。
Option explicit Dim a(1 to 20)as integer, I as integer, j as integer, t as integer Private Sub Form_Load()Show Print “原始數(shù)組是:” Randomize For i = 1 To 20
a(i)= Int(Rnd * 90)+ 10
Print a(i);If i Mod 10 = 0 Then Print Next i Print Print “現(xiàn)在數(shù)組是:” For i = 1 To 10
j = 211
a(k)= a(k + 1)
Next k
ReDim Preserve a(UBound(a)1 End If i = i + 1 Loop While(i <= UBound(a))If flag = False Then MsgBox n & “不在該數(shù)組中” Else Print “刪除” & n & “后的數(shù)組是:” For i = 0 To UBound(a)Print a(i);Next i End If End Sub 3.數(shù)組a中存放著升序排列的數(shù)據(jù),使用array賦值,將inputbox輸入的新數(shù)插入到數(shù)組中,插入后數(shù)組仍有序。
注意:要求利用動態(tài)數(shù)組,能夠?qū)崿F(xiàn)多次插入 Private Sub Form_Load()Show n = 8: ReDim a(n)a = Array(5, 15, 23, 52, 68, 88, 90, 99)n = n + 1: ReDim Preserve a(n)m = InputBox(“請輸入要插入的數(shù)據(jù):”)For i = 1 To n1)Next k a(k)= m For i = 1 To n
Print a(i);Next i Print End Sub 4.6個評委為4位歌手打分,分數(shù)介于1-100之間。去掉一個最高分,一個最低分,求出每位選手的最后得分。將4位歌手得分從高到低排列輸出,同時輸出該選手的編號。
如:
歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分
/ 19
Option Base 1
Private Type geshou
xuhao As String
fenshu(6)As Integer
score As Integer
pingjun As Integer End Type Dim singer(1 To 4)As geshou Private Sub Command1_Click()For i = 1 To 4 For j = 1 To 6
singer(i).fenshu(j)= Int(Rnd * 100)
singer(i).xuhao = “歌手” & i Next Next Call paixu End Sub
Private Sub paixu()Dim p As geshou For i = 1 To 4
For j = 1 To 5
For k = j To 6
If singer(i).fenshu(j)> singer(i).fenshu(k)Then
t = singer(i).fenshu(j)
singer(i).fenshu(j)= singer(i).fenshu(k)
singer(i).fenshu(k)= t
End If
Next
Next Next For i = 1 To 4 For j = 2 To 5
singer(i).score = singer(i).score + singer(i).fenshu(j)Next singer(i).pingjun = singer(i).score / 4 Next
For i = 1 To 3 For j = i To 4
If singer(i).score < singer(j).score Then
p = singer(i): singer(i)= singer(j): singer(j)= p
End If Next
/ 19
Next For i = 1 To 4 Print singer(i).xuhao & “得分:” & singer(i).pingjun Next End Sub Private Sub Form_Load()End Sub 10個評委給10個選手打分 Private Sub Form_Load()Show n = UBound(b)For i = 1 To 10
For j = 1 To 10
a(i, j)= Val(InputBox(“請第” & j & “位評委給第” & i & “位選手打分:”))Next j Next i For i = 1 To 10
max = a(i, 1): sum = 0
min = a(i, 1): ave = 0
For j = 1 To 10
If a(i, j)> max Then max = a(i, j)
If a(i, j)< min Then min = a(i, j)
sum = sum + a(i, j)
Next j
ave =(summin)/(n1
For j = i + 1 To n
If b(i)< b(j)Then
t = b(i): b(i)= b(j): b(j)= t
End If
Next j Next i Print “選手的得分由高到低為:” For i = 1 To 10
Print b(i);Next i End Sub 5.編寫函數(shù)求一元二次方程ax2+bx+c=0的解。
注意:要求考慮方程有兩相等實根、兩不等實根和兩個虛根的情況。Dim a As Single, b As Single, c As Single Dim s As Single a = InputBox(“請輸入a”)
/ 19
b = InputBox(“請輸入b”)c = InputBox(“請輸入c”)s = b ^ 2Sqr(s))/ 2 * a End If End Sub 6.任意輸入一組字符,統(tǒng)計出大寫字母多少個,小寫字母多少個,數(shù)字多少個?要求用過程實現(xiàn)。
Call tongji(a, n, m, o)Print “數(shù)字:” & n & Chr(13)& “小寫:” & m & Chr(13)& “大寫:” & o End Sub Private Sub tongji(a As String, n As Integer, m As Integer, p As Integer)For i = 1 To Len(a)If Asc(Mid(a, i, 1))> 47 And Asc(Mid(a, i, 1))< 58 Then
n = n + 1 ElseIf Asc(Mid(a, i, 1))> 96 And Asc(Mid(a, i, 1))< 123 Then
m = m + 1 ElseIf Asc(Mid(a, i, 1))> 64 And Asc(Mid(a, i, 1))< 91 Then
p = p + 1 End If Next End Sub 7.隨機產(chǎn)生一個5*5的矩陣,將主對角線和次對角線元素都置為1,并求出矩陣的四周元素之和,顯示在列表框中。
Option Base 1 Private Sub Form_Load()Dim a(5, 5)As Integer Dim s As Integer For i = 1 To 5 For j = 1 To 5
If i = j Or i = 6Asc(Mid(s1, i, 1))+ 64)ElseIf Asc(Mid(s1, i, 1))< 123 And Asc(Mid(s1, i, 1))> 96 Then convert = convert & Chr(1235: g = e
For j = 1 To n
If j > i Then
a(i, j)= 0
Else
If i = j Then
a(i, j)= 1
Else
a(i, j)= a(i1, ji + 1);String(2 *(i1)/ 2 To 1 Step(-1)
c = c + 1
s = Chr(64 + ii + c + 1);String(2 *(j1)/ 2 Else
x = x / 2 End If i = i + 1 Loop
ReDim Preserve a(UBound(a))If y < 0 Then For i = 1 To UBound(a)convert = convert & a(i)Next convert = “-” & convert Else For i = 1 To UBound(a)
/ 19
convert = convert & a(i)Next End If
End Function Private Sub Command1_Click()Dim y As Integer Text1.Text = “" y = InputBox(”請輸入十進制數(shù)字“)Text1.Text = convert(y)
End Sub
Private Sub Form_Load()
End Sub 14.輸入一個整數(shù)N,產(chǎn)生N個隨機數(shù)(范圍1—10*N),然后采用任何2種算法實現(xiàn)由小到大的排序。將排序前后的數(shù)據(jù)顯示出來。
Option Base 1 Private Sub Command1_Click()Dim a()As Integer, n As Integer n = InputBox(”請輸入數(shù)列項數(shù)“)ReDim a(n)For i = 1 To n
a(i)= Int(Rnd * 10 * n + 1)
Print a(i);Next Print ReDim Preserve a(n)For i = 1 To n1 For j = 1 To n2)+ fact(n2 s = s1 + s2: t = s2: s2 = s: s1 = t Next End Function
Private Sub Command2_Click()n = InputBox(”請輸入n“)Print s(n)End Sub 17.編寫2個函數(shù),分別采用遞歸法和遞推法求斐波納契數(shù)列的第n個月的兔子數(shù),n使用inputbox輸入,調(diào)用函數(shù)的結(jié)果在窗體上顯示。Private Sub Command1_Click()List1.Clear Dim i As Integer For i = Val(Text1.Text)To Val(Text2.Text)If isprime(i)= True Then
List1.AddItem(i)
c = c + 1
If i Mod 10 = 9 Then
/ 19
List1.Selected(c1 If n Mod i = 0 Then
isprime = False
Exit For End If Next End Function 18 Dim sum As Long Private Sub Command1_Click()
Dim i As Integer, j As Integer, a(40)As Long
a(1)= 1
a(2)= 1
For i = 3 To 40
a(i)= a(i2)
Next i
sum = 0
For j = 1 To 40
sum = sum + a(j)
Next j End Sub
Private Sub Command2_Click()
Open ”out18.txt“ For Output As #1
Print #1, ”數(shù)列1,1,2,3,5,8…的前四十項的之和是:“
Print #1, sum
Close #1 End Sub 1.百錢買百雞
Option Explicit
Private Sub Command1_Click()Dim a As Integer, b As Integer For a = 1 To 34
For b = 1 To 20
If 3 * a + 5 * b +(100b)/ 3 = 100 Then
/ 19
Print a;
Print b;
Print 100b
End If
Next b Next a End Sub 2.分錢作業(yè)
Private Sub Command1_Click()Dim a As Single,b as single,c as single a = Text1.Text b = Fix(a / 100)Print ”100元:“;Print b c = ab * 50
b = Fix(c / 20)Print ”20元:“;Print b c = c0.05 * b b = Fix((c + 0.005)/ 0.02)Print ”0.02元:“;Print b c = c1
If a(i)= a(j)Then
GoTo aaa
End If
Next j
Next i For i = 1 To 10
Print a(i);Next i Print End Sub
Private Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9
For j = 1 + i To 10
If a(i)> a(j)Then
t = a(j)
a(j)= a(i)
a(i)= t
End If
Next j Next i For i = 1 To 10
Print a(i);Next i Print
End Sub
Private Sub Command3_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9
For j = 1 To 10c)> 10 ^(-5)i =(a + b)/ 2
If i ^ 2c = 0 Then
Exit Do
Else
a = i
End If Loop MsgBox(i)End Sub 7.閏年
Option Explicit
Private Sub 計算_Click()Dim i As Integer i = InputBox(”請輸入一個年份“)If i Mod 4 = 0 And i Mod 400 = 0 Then
If i Mod 100 <> 0 Then
MsgBox ”NOT“
Else
MsgBox ”YES“
End If Else
MsgBox ”NOT“ End If
End Sub 8.三角
Option Explicit Private Sub Command1_Click()
/ 19
Dim a As Single Dim b As Single Dim c As Single Dim p As Single Dim s As Single
a = Text1.Text b = Text2.Text c = Text3.Text
p =(a + b + c)/ 2
s = Sqr((pb)* p +(p1
If n Mod i = 0 Then
MsgBox ”NOT“
Exit For
End If Next i If i = n Then
MsgBox ”YES“ End If End Sub
Private Sub Command2_Click()
Dim a As Boolean, n As Double, i As Double a = False n = InputBox(”請輸入一個數(shù):“)For i = 2 To n-1
If n Mod i = 0 Then
a = True
Exit For
End If Next i If a = True Then
/ 19
MsgBox ”NOT“ Else
MsgBox ”YES“ End If End Sub
Private Sub Command3_Click()Dim n As Double, i As Double n = InputBox(”請輸入一個數(shù):“)i = 2 Do While i < n
If n Mod i = 0 Then
MsgBox ”NOT“
Exit Do
End If i = i + 1 Loop If i = n Then
MsgBox ”YES“ End If End Sub
Private Sub Command4_Click()Dim n As Double, i As Double, sushu As Boolean n = InputBox(”請輸入一個數(shù):“)i = 2 sushu = True Do While i < n And sushu = True
If n Mod i = 0 Then
sushu = False
End If i = i + 1 Loop If sushu = True Then
MsgBox ”YES“ Else
MsgBox ”NOT" End If End Sub
/ 19
第四篇:VB上機試題及答案
1、在工程中添加一個窗體form1,當用戶單擊窗體時,在窗體上顯示九九乘法表程序。結(jié)果如下圖所示(本題編程解決,20分)
參考答案:
Private Sub Form_Click()
Cls
For i = 1 To 9
For j = 1 To i
Print i * j;“ ”;
Next j
Next i End Sub
2、在工程中,添加一個窗體form2,在窗體上放置一個文本框text1(文本框中的文字為“改變字形”,居中顯示)。三個復選框check1,check2和check3,如圖設置屬性。
要求:當用戶單擊“加粗”、“斜體”、“下劃線”這三個復選框時(即當復選框被選中時)能將文本框的字形變?yōu)椤按煮w、斜體、加下劃線”(本題編程完成,滿分:30分)
參考答案:
Private Sub Check1_Click()
Text1.FontBold = Check1.Value End Sub
Private Sub Check2_Click()
Text1.FontItalic = Check2.Value End Sub
Private Sub Check3_Click()
Text1.FontUnderline = Check3.Value End Sub
3、在工程中添加一窗體form3,在窗體上按下圖放置兩個標簽和一個文本框,一個列表框和一個命令按鈕,各控件的名稱屬性取默認值。其他屬性按下圖進行設置。
要求:當用戶在文本框輸入他的籍貫后,單擊“添加籍貫”按鈕時,能夠?qū)⒓炋砑拥搅斜砜蛑?。雙擊列表框中的某一項時將該項刪除.(本題:20分)
參考答案:
Private Sub Command1_Click()
List1.AddItem Text1.Text End Sub
Private Sub List1_DblClick()
List1.RemoveItem List1.ListIndex End Sub
4、在窗體form4中建立下圖所示的菜單,各菜單項的名稱如下:
文件:file,新建:NEW,-:kong1,打開:OPEN,關閉:CLOSE 編輯:EDIT,剪切:CUT,復制:COPY,粘貼:PASTE(本題不用編程,30分)
參考答案:略
第五篇:vb上機心得體會
心得體會:
剛開始學習vb的時候,我就覺得大一的計算機基礎根本不值一提,難度相去甚遠。我問過很多以前的同學,他們都說vb是編程語言中最簡單的,但是在這次上機實習過程中,我發(fā)現(xiàn)要完成學生成績管理系統(tǒng)實在有很大難度。平時看課本的時候,覺得還能夠理解,看得懂,然而“紙上得來終覺淺”,一旦自己調(diào)試程序,總會犯很多錯誤,如前面說的“文件未找到”“下標越界”等等,都是平時沒有機會解決和一些曾經(jīng)被自己忽視的問題。有時候,為了找到代碼中錯誤或不符合要求的地方,我不得不一遍又一遍地仔細檢查程序,甚至標點符號都不能放過。細節(jié)決定成敗,一個小小的分號也會起著扭轉(zhuǎn)乾坤的作用。
在實習之前,我妄想從網(wǎng)站上下載一個或者請論壇上的好友幫忙,后來我發(fā)現(xiàn)這條路走不通,他們從來都不給別人提供實質(zhì)性的幫助,只是象征性地說:“不會問老師。”于是我打消了這個念頭,開始自己動手做。
當我無數(shù)次調(diào)試總算讀出文件的時候,那種高興勁可想而知。我慢慢覺得,其實自己調(diào)試程序蠻有意思的。既彌補了在vb學習中的漏洞,還學到了新內(nèi)容,積累了一定的實戰(zhàn)經(jīng)驗,對以后的期末考試和等級考試起到了相當大的促進作用。
實習過程中,多虧指導老師幫助我找出錯誤的地方。如果不是他們的細心講解,我很難完成這次實習任務。當然,我在編程方面還有很大不足,今后我定會加倍努力,為等級考試的順利通過打下牢固的基礎。