VB笔试复习题_vb笔试复习题

VB笔试复习题由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb笔试复习题”。

学参教育东北林业大学考研网http://

笔试复习题

笔试占总分的50％、平时占10％、上机占40％。

笔试时间为1小时。四道大题为：程序填空、程序运行结果、程序段功能、编程题

复习范围

随机整数[A,B]

公式：Int(Rnd*(B-A+1)+A)1． 循环

（1）打印三角形 方法一：用单重循环 Private Sub Form_Click()For i = 1 To 8

Print Tab(151, “*”)Next i End Sub

方法二：用多重循环 Private Sub Form_Click()For i = 1 To 8 Print Tab(151 Print “*”;Next j Print Next i End Sub

（2）求积数部分和

P88 例4.18p268 习题3Private Sub Form_Click()Dim s!,i%,t!i=1:t=2:s=

1Do while 1/t>0.0001

s=s+1/t i=i+1 t=t+iLoop

Print “共计算”;i-1;“项”Print “s=”;s End Sub

（3）求100到200之间的所有素数。Private Sub Form_Click()Dim t As Boolean

For x = 101 To 200 Step 2 t = True

For i = 2 To xx * 100)/ 10)z = iy * 10

If i = x * x * x + y * y * y + z * z * z ThenPrint i, End If Next i End Sub

(6)最大值、最小值。2． 数组(1)排序

P106 例5.5 从小到大排序

Private Sub Form_Click()

学参教育东北林业大学考研网http://

Dim a()As Integer n = Val(InputBox(“n”))ReDim a(1 To n)As Integer Randomize For i = 1 To n

a(i)= Int(Rnd * 101 + 100)Print a(i);

If i Mod 10 = 0 Then Print Next i

For i = 1 To n1

s(i, j)= s(i1)+ s(i2 * i + 4 * j);s(i, j);Next j

Picture1.Print Next i End Sub 3． 过程

（1）s=4!+5!+6!

Private Sub Form_Click()Print fax(4)+ fax(5)+ fax(6)End Sub

Private Function fax(k As Integer)As Single t = 1

For i = 2 To k t = t * i Next i fax = t

End Function

（2）回文数P2784

Private Sub Text1_KeyPre(KeyAscii As Integer)If KeyAscii = 13 Then

If Not IsNumeric(Text1)Then

MsgBox “输入非数字串，重新输入”Text1.Text = “”Text1.SetFocusElse

If IsH(Text1)Then

Picture1.Print Text1;“ ★ ”Else

Picture1.Print Text1End IfText1 = “”End IfEnd If End Sub

Function IsH(As String)As BooleanDim i%, Ls%IsH = True = Trim()Ls = Len()

For i = 1 To Ls 2

If Mid(, i, 1)Mid(, Ls + 1-i, 1)ThenIsH = FalseExit FunctionEnd IfNext i End Function

4． 文件(要求掌握随机文件)讲稿中例题