• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
填空题

下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU()
Dim n As Integer
　a$="Beijing University of Technology"
　n=Len(a$)
　For i=1 To n
　　b$=______
　　If b$="i" Then x=x+1
　Next
　Print "x=":x
End Sub

答案： Mid$(a$,i,A)
题目列表

你可能感兴趣的试题

填空题

排序是计算机程序设计中的一种重要操作，常见的排序方法有插入排序、______和选择排序等。
答案： 交换排序
填空题

一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体“项目主管”与实体“项目”的联系属于______的联系。
答案： 一对多(或1:N)
填空题

在面向对象方法中，属性与操作相似的一组对象称为______。
答案： 类
填空题

程序测试分为静态测试和动态测试。其中______是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。
答案： 静态分析(静态测试)
填空题

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
　K As Integer
　Sinx As Single
　Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form Click()
Dim Y As Single
　Open (6)
　Y=3.14159/180
　For i=1 To 90
　　Ksc.K=i
　　Ksc.Sinx=Sin(i*Y)
　　Ksc.Cosx：Cos(i*Y)
　　 (7)
　Next i
　Close #2
End Sub
答案： "C:\Datal .txt" For Random As #2 Len=10
填空题

当数据的物理结构(存储结构)改变时，不影响数据库的逻辑结构，从而不致引起应用程序的变化，这是指数据的______。
答案： 物理独立性
填空题

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
　K As Integer
　Sinx As Single
　Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form Click()
Dim Y As Single
　Open (6)
　Y=3.14159/180
　For i=1 To 90
　　Ksc.K=i
　　Ksc.Sinx=Sin(i*Y)
　　Ksc.Cosx：Cos(i*Y)
　　 (7)
　Next i
　Close #2
End Sub
答案： Put #2，i，Ksc
填空题

随机文件以______为单位读写。
答案： 记录
填空题

下列程序用来计算1+2+…n，当和大于100时停止计算，请填空。
Private Sub Form_Click()
Dim n as integer，S as integer，I as integer，k as integer
s=0
k=0
n=inputbox(”请输入n的值)
For i=1 to 100
　k=k+1
　s=s+1
______
Next 1
Print s
End Sub
答案： if s＞100 then exit for
填空题

如果存在如下过程：
Private Function Fun(a()As Integer)
Dim First As Integer，Last As Integer，i As Integer
　First=LBound(a)
　Last=LBound(a)
　Max=a(First)
　For i=First To Last
　　If a(i)＞Max Then Max=a(i)
　Next
　Fun=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
ReDim in(1 To 4)As Integer
　m(1=20:m(2)=30:m(3)+50:m(4)=100
　c=Fun(m)
　Print c
End Sub
单击命令按钮，其输出结果为______。
答案： 100
填空题

下列程序弹出对话框中按钮的个数为______。
MsgBox“确认!”，vbAbortRetryignore+vbMsgBoxHelpButton+vbInformation，“提示；”
答案： D
填空题

有如下SUB过程：
Sub s(x As Single，y As Single)
　t=x
　x=t/y
　y=t Mod y
End Sub
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Form_Click()
　Dim a As Single
　Dim b As Single
　a=5
　b=4
　s a,b
　Print a,b
End Sub
则程序运行后，单击命令按钮，输出的结果为______。
答案： A.BE,A
填空题

下面程序运行后，单击命令按钮，输出的结果是______。
Private Sub Command1_Click()
Dim a%(1 To 5)，i%，s#
　For i=1 To 5
　　A(i)=i
　Next
　S=Fun(a)
　Print "s="；s；
End Sub
Function Fun(a()As Integer)
Dim t#,i%
　t=1
　For i=LBound(a)To UBound(a)
　　t=t*a(i)
　Next
　Fun=t
End Function
答案： S=120
填空题

在KeyPress事件过程中，KeyAscii是所按键的______值。
答案： ASCII
填空题

下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU()
Dim n As Integer
　a$="Beijing University of Technology"
　n=Len(a$)
　For i=1 To n
　　b$=______
　　If b$="i" Then x=x+1
　Next
　Print "x=":x
End Sub
答案： Mid$(a$,i,A)
微信扫码免费搜题