我是搞java的，问几个简单的vb题目，100分马上结帖！人在线

Question

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

Answer 1

就看你第一题
    你给我找出S变量来
既然没有，这个S的值能确定吗？？？
  如果你用了 OPTION EXPLICIT  1
那么，根本找不到S的值！！！！

Answer 2

第一题估计应该是s=fun(一个数),求s的值

Answer 3

第二题：S=S+C
        c=chr$(asc(c)-1)

Answer 4

第三题：text3=fun(n)/fun(n-r)/fun(r)
函数中
t=1
for k=1 to n
   t=t*k
next k
fun=t
这不是ＪＡＶＡ或ＶＢ的问题，这是数学中的组合数问题

Answer 5

我是搞java的，（提出问题不用先告诉别人你是搞什么的，你太客气了）
问几个简单的vb题目，（简单的问题？既然你判定为简单了，还问个什么？）
100分马上结帖！人在线 （马上结帖？今天几号了？）

Answer 6

如果java就能代表技术高的话，那么英语就代表国家经济实力强。
你后悔没后悔学汉语啊？
中国可是个低收入国家啊！

Answer 7

以上参考：
ttaallkk1(j2ee_lover) ( ) 信誉：100    Blog  2007-1-15 19:51:34  得分: 0  
   看来我当年没学vb是正确的～  
 

Answer 8

支持楼上说的
如果java就能代表技术高的话，那么英语就代表国家经济实力强。
你后悔没后悔学汉语啊？
中国可是个低收入国家啊！