vb程序填空题

Dim i As Byte, m As Byte, n As Byte n = InputBox(\请输入n值：\ ----1---- a(n), b(n) For i = 1 To n

a(i) = 10 + Int(Rnd * 90) If a(i) Mod 5 = 0 Then m = m + 1 ----2---- Print b(m); If ----3---- End If Next i Print

Print \个位数为0的数有\个\

End Sub

1、ReDim 2、b(m) = a(i)

3、m Mod 5 = 0 或m/5=m\\5 Then Print 第2题：【程序说明】

本程序通过选项来修饰预览区文字。单击字体组合框Cboziti可以设置预览区域的标签文字label5的字体；单击字号组合框Cbozihao可以设置预览区域的标签文字的字形；选择删除线复选框可以设置是否加删除线。

Private Sub Cbozihao_Click()'选择字号 Label5.FontSize = Cbozihao.Text End Sub

Private Sub Cbozihao_ ----1---- () '输入选项中没有的字号 If Val(Cbozihao.Text) > 0 And Val(Cbozihao.Text) < 72 Then Label5.FontSize = Val(Cbozihao.Text) Else

Label5.FontSize = 9 End If End Sub

Private Sub Cboziti_click()’字体 ----2----

End Sub

Private Sub Check1_Click()‘复选框删除线 If ----3---- Then

Label5.FontStrikethru = True Else

Label5.FontStrikethru = False End If End Sub

1、Change

2、Label5.FontName = Cboziti.Text

3、Check1.Value = 1或1= Check1.Value 第3题：【程序说明】

程序运行时界面如下图，点击“颜色选择”按钮，弹出颜色对话框将选中的颜色显示在控件Pic2中，单击“线形选择”下的单选按钮可选择粗、细两种线形，在控件Pic2中拖动鼠标，以选择好的颜色和线形，以及鼠标按下点和弹起点的坐标为矩形对角顶点画矩形。

Dim x1 As Single, y1 As Single Dim hColor As Long

Private Sub Command1_Click() CommonDialog1.ShowColor ----1----

Pic2.BackColor = hColor End Sub

Private Sub Form_Load() Option1(1).Value = True End Sub

Private Sub Option1_Click(Index As Integer) ----2---- Case 0

Pic1.DrawWidth = 5 Case 1

Pic1.DrawWidth = 1 End Select

End Sub

Private Sub Pic1_Mousedown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) x1 = X:y1 = Y End Sub

Private Sub Pic1_Mouseup(Button As Integer, Shift As Integer, _ X As Single, Y As Single) ----3---- End Sub

1、hColor = CommonDialog1.Color 2、Select Case Index

3、Pic1.Line (x1, y1)-(X, Y), hColor, B 第4题：【程序说明】打开文本文件e:\\data1.txt，从中找出所有的数字字符；并将这些数字写入文件e:\\data2.txt中。

Private Sub Command1_Click() Dim c As string

Open “e:\\data1.txt” for input as #1 -----1-----

Do while not Eof（1） Line Input #1,c For i=1 to len(c)

If mid(c,I,1)>=48 and mid(c,I,i)<=57 then -----2----- Next i loop

Close #1 -----3----- End Sub

1、Open “e:\\data2.txt” for output as #2 2、print #2, mid(c,I,1)或write #2, mid(c,I,1) 3、close #2 三、填空题 第1题：【程序说明】该程序是对以下数列进行运算：

有一个数列，它的前三个数是0，1，2，从第四个数起，每个数都是它前面的两个数之和，求出该数列的第17个数是多少，并求出该数列的第几个数起每个数都超过1E+8 Private Sub Form_Click() Dim last_one As Long Dim last_two As Long Dim this_one As Long Dim i As Integer

last_one = 1 '数列的第二个数 last_two = 2 '数列的第三个数

i = 4 '从数列的第四个数求起 Do

this_one = last_one + last_two

last_one = last_two last_two = ------1------- If i = 17 Then

Form1.Print \ End If ------2------

Loop While this_one <= 100000000#

Form1.Print \ End Sub

1、this_one

2、I = I + 1或I=1+I 3、I 第2题：【程序说明】

设计用按钮数组command1(0)- command1(9)做一个模拟电话拨号程序。运行时，单击各数字按钮后，在标签label1中显示所拨的号码，按“删除”键command2,删除最后一个号码，按“取消”键command3,则撤销所有拨号，清空标签。

Dim num As String

Private Sub Command1_Click(Index As Integer) num = num & ----1----- Label1.Caption = num End Sub

Private Sub Command2_Click() ------2----

Label1.Caption = num End Sub

Private Sub Command3_Click() -------3------- num = \ End Sub

1、Command1(Index).Caption或trim(str(index))

2、num=Left(num,Len(num)–1)或num = mid(num,1, Len(num)–1) 3、Label1.Caption = \ 第3题：【程序说明】