23. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() For n=1 To 20 If n Mod 3<>0 Then in=m+n/3 Next Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是
25. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(10,10)As Integer,i,j As Integer For i=1 To 3 For j=2 To 4 art(i,j)=i+j Next Next Text1.Text=arr(2,3)+arr(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是
27. 下面程序运行后,单击命令按钮,输出的结果是 Pivate Sub Cornmand1_Click() Dim a%(1 To 4),b%(2 To 6),i%,str1#,str2# For i=1 To 4 a(i)=i Next For i=2 To 6 b(i)=i Next str1=YAG(a) str2=YAG(b) Print"str1=";str1;"str2=";str2 End Sub Function YAG(a()As Integer) Dim t#,i% t=1 For i=LBound(a)To UBound(a) t=t*a(i) Next YAG=t End Function
28. 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim in As Integer,n As Integer,p As Integer m=3:n=5:p=0 Call Y(m,n,p) Print Str(p) End Sub Sub Y(ByVal i As Integer,ByVal j As Integer,k As Integer) k=i+j End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是
29. 单击命令按钮时,下列程序的执行结果为 Private Sub Command1_click() Dim X As Integer,Y As Integer x=12:y=32 Call PCS(x,y) Print x;y End Sub Public Sub PCS(ByVal n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub
34. 在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下: Sub Command1_Click() Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With ______ Put # 1,record_no,student Close # 1 End Sub 要求在c:\的随机文件student.dat写入一条记录。应在程序中空行处填入以下哪条语句使该功能完整
A.Open"c:\student.dat"For Input As # 1 len=len(student)
B.Open"c:\student.dat"For random As # 1 len=len(student)
C.Open"c:\student.dat"For Output As # 1 len=len(student)
D.Open"c:\student.dat"For Append As # 1 len=len(student)
A B C D
B
[解析] 考查考生对文件操作语句的掌握情况。 [解题要点] 打开随机文件的一般格式为Open“文件名”For Random As#文件号[Len=记录长度]随机文件的读写操作通过Put语句来实现,其格式为: Put#文件号,[记录号],变量 [考点链接] 文件指针的定位、读取文件等。
10. 下面程序的功能是统计字符串中"i"的个数,请填空。 Sub COU() Dim n As Integer a$="Beijing University of Technology" n=Len(a$) For i=1 To n b$=Mid$(a$,i,1) If ______ Then x=x+1 Next Print "x=";x End Sub
13. 有一个过程如下: Sub Sub1(m As Integer,total As Long) Dim i AS Integer total=1 For i=1 To m total=total*i Next End Sub 调用它的事件过程如下: Private Sub Command1_Click() Dim tot As Long,a As Integer a=Val(InputBox("请输入数据")) Call Subl(a,tot) Print tot End Sub 则输入数据5,运行结果为______。