杭州电子科技大学VB考试试卷 2018.6.20.docVIP

杭州电子科技大学VB考试试卷 2018.6.20 函数f的功能是：返回Single类型数组n个元素的平均值查找数组中最大值，最小值并通过相应的实参返回到调用处。该函数可以被其他模块中的过程所调用。 Function f (1) As Single Dim i As Integer Max=a(1) : min=a(1) : f=a(1)/n (2) If a(1)max Then max=a(1) If a(1)mix Then mix=a(1) (3) Next i End Function （1）A.a(n) As Single,Byref max As Single,Byref min As Single B. a() As Single,n As Integer,max As Integer ,min As Integer C. a() As Single, n As Integer,max As Single,min As Single D. a() As Single, n As Integer,Byval max As Single, Byval min As Single (2) A.For i=1 To n B. For i=2 To n C. For i=n To 1 D. For i=n To 2 (3)A.f=f+a(i)/n B. f=f+a(i) C.f=f/n D.f= a(i)/n 二 通过在文本框text1中输入一串十进制数字字符，按相应的按钮（控件数组）后，在文本框text2中会自动显示十进制转换为相应进制的数。要求在文本框text1中只能输入数字字符，文本框text2中只能显示信息，不能编辑信息。具体运行效果如图所示。 Private Sub Form_Load( ) Dim i As Byte,c As String c=”10=2 10=8 10=16 For i =0 To 2 Command1(i).Caption= (1) Next i Text1 =” ” Text2=” ” Label1=”输入一个十进制数” Label2=”转换制定的进制数” Caption=”进制转换” （2） End Sub Private Sub Text1_KeyPress(k As Interger) If (3) Then K=0 End Sub Function zh(x As Long,y As Byte) As String Dim p As Byte Do P=x Mod y If P=0 And P=9 Then (4) Else (5) End If (6) Loop Until x=0 End Function Private Sub Command1_Click(Index As Interger) If Index=0 Then Text2=Zh(Val(Text1),2) Else Text2= Zh(Val(Text1),Index*8) End If End Sub (1)A.Mid(c,2*i+1,2) B.Left(c,6) C.Mid(c,6*i+1,6) D.Right(c,6) (2)A.Text2.Locked=False B. Text2.Locked=True C. Text2.Enabled= True D. Text2.Enabled= False (3)A.K=48 And K=57 B.K=48 And K=57 C.K48 Or K=57 D.K=48 Or K=57 (4)A.Zh=Chr(P+Asc(“A”)—10) +zh B.zh=zhP C.Zh=zhChr(P+Asc(“A”)—10) D.Zh=Pzh (5)A. Zh=zhChr(P+Asc(“A”)—10) B. Zh=Pzh C. Zh=Chr(P+Asc(“A”)—10) +zh D. zh=zhP (6)A.X=x mad y B.X=x/y C.Y=y/x D.Y=y mad x 三．某文件中存放了若干个实数，单击Command1可用通用对话框打开该文件，并将读入的所有数据在列表框List1中显示，单击Command2可将列表框中的数据按值从大到小顺序排序，并将排序后的内容重新写入该文件，实现数据更新功能。 Private Sub Command1_Click() Dim X As Single List1.clear（1） Open Common Dialogl.File Name (2) As#1 Do While(3) Input #1.X