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

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 Long

For k=1  to n

15 个解决方案

#1

100分在这里回都没人回
vb必我想象的堕落了

#2

学习要靠自己这是作业铁没有人回答的

#3

不会是应聘的题目吧！也太单调了！

#4

考试呀

#5

这些明显不会有人回答你！！！！
你以为学VB的人都学傻了是不是？？？

#6

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

#7

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

#8

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

#9

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

#10

看来我当年没学vb是正确的～

#11

垃圾

#12

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

#13

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

#14

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

#15

支持楼上说的

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

#1