填空题

在窗体上画1个名称为Commandl的命令按钮和2个名称分别为Text1、Text2的文本框，如下图所示，然后编写如下程序；

Function Fun(x As Integer,ByVhly As Inmgcr)As Integer
X=K+y
If x＜0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Cornmandl_Click()
Dima As Integer,b As Integer
a=-10:b=5
Tcxt1,Text=Fun(a,b)
Text2,Text=Fun(a,b)
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是上 [14] 和 [15] 。

答案： -5

你可能感兴趣的试题

代码窗口分为左右两栏，左边一栏称为______，右边一栏称为过程框。

答案：对象框

欲打开各种Visual Basic窗口或显示工具栏，其对应的菜单命令均放置于主菜单项______。的下拉菜单中。

答案：视图

设有如下程序段：
a$="BeujingShanghai"
b$=Mid(a$，Instr(a$,"g")+1)。
执行上面的程序段后，变量b$的值为______。

答案： Shanghai

把“Visual Basic程序设计”添加到列表框lstBooks的语句为______。

答案： LsBooks.AddItem"Visual Basic程序设计\

数学公式(x+y)⁴的VB算述表达式是______。

答案： (x+y)^4

在3种不同类型的组合框中，只能选择而不能输入数据的组合框是______。

答案：下拉式列表框(或下拉式)

Visual Basic中允许出现的数为______。
±25.74 3．47E-10 .368 1.87E+50
10^(1.256) D32 2.5E 12E3
34.75D+6 0.258

答案： VisualBasic中允许出现的数:3.47E-10 .368 12E3 34.75D+6 0.258

设有如下程序：
Private Sub Form_Cliok()
Dima As Integer,S As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n＞0
Print s
End Sub
以上程序的功能是 [7] ；程序运行后，单击窗体，输出结果为 [8] 。

答案：计算8+7+6+5+4+3+2+1(能正确描述1～8累加和的任何叙述)

已知B的ASCⅡ码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数。
Dim [10]
Fori=65 To 90
pp(i)=0
Next
x$=InputBox("Enter a string",K$)
x$=U Case$(x$)
Fori=1 To Len(x$)
n=Asc(Mid$(x$,i,1))
If n＞=65Andn＜=90Then
[11]
End If
Nexti
Fori=65 To 90
If pp(i)＞Then
Print Chr$(i);pp(i)
End If
Next

答案： PP(65 To 90)

设有如下程序：
Private Sub Form_Cliok()
Dima As Integer,S As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n＞0
Print s
End Sub
以上程序的功能是 [7] ；程序运行后，单击窗体，输出结果为 [8] 。

答案： 3 6

在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码：
Private Sub Commandl_Click()
Dima(5)
Fori=0 To 4
A(i)=i+1
t=i+1
If t=3 Then
Print a(i)
A(t-1)=a(i-2)
Else
A(t)=a(i)
End If
Ifi=3 Thena(i+1)=a(t-4)
A(4)=1
Printa(i)
NextI
End Sub
程序运行后，单击命令按钮，输出结果是上______。

答案： 123141

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR()
Randomize
Dima(10)
Forj=1 To 10
a(i)=Int______
If a(j)Mod5=0 Then k=k+1
Printa(j)
Nextj
Print
Printk/10
End Sub

答案： (99*Rnd)+1

在窗体上画1个名称为Commandl的命令按钮和2个名称分别为Text1、Text2的文本框，如下图所示，然后编写如下程序；

Function Fun(x As Integer,ByVhly As Inmgcr)As Integer
X=K+y
If x＜0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Cornmandl_Click()
Dima As Integer,b As Integer
a=-10:b=5
Tcxt1,Text=Fun(a,b)
Text2,Text=Fun(a,b)
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是上 [14] 和 [15] 。

答案： -5

已知B的ASCⅡ码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数。
Dim [10]
Fori=65 To 90
pp(i)=0
Next
x$=InputBox("Enter a string",K$)
x$=U Case$(x$)
Fori=1 To Len(x$)
n=Asc(Mid$(x$,i,1))
If n＞=65Andn＜=90Then
[11]
End If
Nexti
Fori=65 To 90
If pp(i)＞Then
Print Chr$(i);pp(i)
End If
Next

答案： PP(n)=PP(n)+1

在窗体上画1个名称为Commandl的命令按钮和2个名称分别为Text1、Text2的文本框，如下图所示，然后编写如下程序；

Function Fun(x As Integer,ByVhly As Inmgcr)As Integer
X=K+y
If x＜0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Cornmandl_Click()
Dima As Integer,b As Integer
a=-10:b=5
Tcxt1,Text=Fun(a,b)
Text2,Text=Fun(a,b)
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是上 [14] 和 [15] 。

答案： E