coeShop-MIS供应商信息的添加

1、第六章 eShop-MIS供应商信息的添加、修改要求：1）数组的赋值与查找2）循环结构的掌握)一、 单项选择题（1）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：Private Sub Command1_Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 0 To 4If x(i) c Thend = d + x(i)c = x(i)Elsed = dcEnd IfNext iPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为A）89 B）99 C）23 D）77(2) 在窗体上画一个名

2、称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A) For i=0 To List1.ListCount-1NextB) For i=0 To ListCount-1NextC) For i=1 To List1.listCountNextD) For i=1 To ListCountNext(3) 如下事件过程:Private Sub Command1_Click()x=0For i= 1 To 5x = x + 1Next iLabel1.Text= CStr(x)End Sub程序运行后,单击命令按钮Command1,则Label1显示_A) 3 B)

3、4 C) 5 D) 6(4)在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：Private Sub Command1_Click()x = 0Do While x50x=(x+2)*(x+3)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，则在两个文本框中显示的值分别为_。（选择一项）a)1和0 b)2和72 c)3和50 d)4和168(5)执行了下面的程序后，列表框中的数据项有_。（选择一项）Private

4、 Sub Form_Click() Dim i As Integer For i = 1 To 4 List1.AddItem i Next For i = 1 To 2 List1.RemoveItem i NextEnd Suba)1, 2 b)1, 3 c)3, 4 d)1, 4(6) 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End IfEnd FunctionPrivate Sub Command1

5、_Click() Dim i As Integers = 0 For i = 1 To 5 s = s + f(i) Next Print sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是A) 11 B) 10 C) 9 D) 8（7）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()Dim a As Integer, s As Integera = 8s = 1Dos = s + aa = a1Loop While a = 0Print s; aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是

6、A） 7 9 B） 34 0C） 9 7 D）死循环(8)设有如下通用过程：Public Sub Fun(a(), ByVal x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click()Dim arr(5) As VariantFor i = 1 To 5arr(i) = iNextn = 10Call Fun(arr(), n)Text1.Text = nEnd Sub程序运行后，单击命令按钮，

7、则在文本框中显示的内容是A）10 B）15 C）25 D）24二、填空题(1)补全以下程序，在带垂直滚动条文本框Text1中输出3到100之间的全部素数Private Sub Command1_Click(.).Text1.Text=”For N=3 To 100K=Int(Sqr(N)I=2Flag=0Do While I= And Flag=0If N Mod I=0 Then Flag=1 Else I=I+1LoopIf Flag= ThenText1.Text=Text1.Text & Str(N) & vbCrlfEnd IfNext End Sub（2）以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1.Text = Open .smtext1.txt 【1】 As #1Do While 【2】 Input #1, inDataText1.Text = Text1.T