1、 设有以下函数过程:
Function fun(m As Integer) As Integer
Dim k As Integer,sum As Integer
Sum=0
For k=m To 1 Step -2
Sum=sum+k
Next k
Fun=sum
End Function
若在程序中有语句调用此函数,则S的值为______()______________________
2、 在窗体上面一个命令按钮和一个文本框,然后编写按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出来,在文本框中的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command11_Click()
Dim str As String , s As Stirng, c As String
Str =Ucase(Text1)
S=””
C=”Z”
While c>=”A”
If InStr(str, c)=0 Then
S=_________________________
End If
C=Chr$(Asc(c )_____________________________)
Wend
If s<>””Then
Text1=s
End If
End Sub
3、 在n个运动员中选择出任意r个人比赛,有很多种不同的选法,选法的个数可以用公式计算。下面窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2分别输入n和r的值,单击Command1按钮即可求出选法的个数,并显示在Text3文本框中(见下图)。请填空。
Private Sub Command1_Click()
Dim r As Integer , n As Integer
n=Text1
r=Text2
Text3=fun(n) /Fun(__________________________)/ fun(r )
End Sub
Function fun (n As Integer) as long
Dim t As LongFor k=1 to n
Function fun(m As Integer) As Integer
Dim k As Integer,sum As Integer
Sum=0
For k=m To 1 Step -2
Sum=sum+k
Next k
Fun=sum
End Function
若在程序中有语句调用此函数,则S的值为______()______________________
2、 在窗体上面一个命令按钮和一个文本框,然后编写按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出来,在文本框中的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command11_Click()
Dim str As String , s As Stirng, c As String
Str =Ucase(Text1)
S=””
C=”Z”
While c>=”A”
If InStr(str, c)=0 Then
S=_________________________
End If
C=Chr$(Asc(c )_____________________________)
Wend
If s<>””Then
Text1=s
End If
End Sub
3、 在n个运动员中选择出任意r个人比赛,有很多种不同的选法,选法的个数可以用公式计算。下面窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2分别输入n和r的值,单击Command1按钮即可求出选法的个数,并显示在Text3文本框中(见下图)。请填空。
Private Sub Command1_Click()
Dim r As Integer , n As Integer
n=Text1
r=Text2
Text3=fun(n) /Fun(__________________________)/ fun(r )
End Sub
Function fun (n As Integer) as long
Dim t As LongFor k=1 to n
解决方案 »
- 100分问个小问题SSTab
- 有高手知道如何调用LUA吗?》
- 求助:怎么把这一小段代码转成VB啊?
- 我新发现的学习编程的站点,资源挺全,http://www.vczx.com,特意推荐给大家!
- 师兄们,控制数据导入excel打印,能这样的吗?
- ado对象搜索问题
- patrickkong好久没露面了,是不是被封杀了?
- 如何将数据库查询的结果输出到word文档中,或是普通文本中
- [求助][急!!!] 请高手帮忙指导下VB程序(如果成功我会给"奖励")
- 一个access2000数据库,一个sql7.0数据库。。怎样在vb中将access2000数据库的数据insert into 到sql7.0数据库。不要用ado循环记录,直接用sql语句,给个例程。
- 已知屏幕上的三个点(三角形的三个坐标点):求角平分线上的点的坐标
- 如何获取宏的安全性
你给我找出S变量来
既然没有,这个S的值能确定吗???
如果你用了 OPTION EXPLICIT 1
那么,根本找不到S的值!!!!
c=chr$(asc(c)-1)
函数中
t=1
for k=1 to n
t=t*k
next k
fun=t
这不是JAVA或VB的问题,这是数学中的组合数问题
问几个简单的vb题目,(简单的问题?既然你判定为简单了,还问个什么?)
100分马上结帖!人在线 (马上结帖?今天几号了?)
你后悔没后悔学汉语啊?
中国可是个低收入国家啊!
ttaallkk1(j2ee_lover) ( ) 信誉:100 Blog 2007-1-15 19:51:34 得分: 0
看来我当年没学vb是正确的~
如果java就能代表技术高的话,那么英语就代表国家经济实力强。
你后悔没后悔学汉语啊?
中国可是个低收入国家啊!