在线等人求解 一个简单的NEXT FOR和STEP的VB语句
For...Next 语句：
以指定次数来重复执行一组语句。
语法：
For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next [counter]
For…Next 语句的语法具有以下几个部分：
部分 描述
counter 必要参数。用做循环计数器的数值变量。这个变量不能是布尔或数组元素。
start 必要参数。counter 的初值。
End 必要参数，counter 的终值。
Step 可选参数。counter 的步长。如果没有指定，则 step 的缺省值为 1。
Statements 可选参数。放在 For 和 Next 之间的一条或多条语句，它们将被执行指定的次数。
说明：
step 参数可以是正数或负数。step 参数值决定循环的执行情况，如下所示：
值 循环执行，如果
正数或 0 counter <= end
负数 counter >= end
Private Function Num2Str(wsfNum As Double) As String
Dim s() As String
Dim ss As String
Dim n As Integer
Dim Temp1 As String
Dim Temp2 As String
Dim temp3 As String
Temp1 = "壹贰叁肆伍陆柒捌玖"
Temp2 = "亿仟佰拾万仟佰拾元"
temp3 = "角分"
If wsfNum >= 1000000000 Then Exit Function
wsfNum = Round(wsfNum, 2)
ss = Str(wsfNum)
s = Split(ss, ".")
ss = Trim$(s(0))
For i = 1 To Len(ss)
n = Val(Mid$(ss, i, 1))
If n 0 Then
Num2Str = Num2Str & Mid$(Temp1, n, 1) & Mid$(Temp2, 9 - Len(ss) + i, 1)
Else
Select Case 9 - Len(ss) + i
Case 5
If Right$(Num2Str, 1) = "零" Then Num2Str = Left$(Num2Str, Len(Num2Str) - 1) '去掉末位“零”
If Right$(Num2Str, 1) "亿" Then
Num2Str = Num2Str & "万"
Else
Num2Str = Num2Str & "零"
End If
Case 9
If Right$(Num2Str, 1) = "零" Then Num2Str = Left$(Num2Str, Len(Num2Str) - 1)
Num2Str = Num2Str & "元"
Case Else
If Right$(Num2Str, 1) "零" Then Num2Str = Num2Str & "零"
End Select
End If
Next i
If UBound(s) >= 1 Then
ss = Trim$(s(1))
For i = 1 To 2
n = Val(Mid$(ss, i, 1))
If n 0 Then
Num2Str = Num2Str & Mid$(Temp1, n, 1) & Mid$(temp3, i, 1)
Else
If Right$(Num2Str, 1) "零" Then Num2Str = Num2Str & "零"
End If
Next i
If Right$(Num2Str, 1) = "零" Then Num2Str = Left$(Num2Str, Len(Num2Str) - 1)
End If
Num2Str = Num2Str & "整"
End Function
Private Sub Command1_Click()
Text2.Text = Num2Str(Text1.Text)
End Sub
是11 10 8
按f8一步步看看就知道了啊
闽凭仁怡： 例:aabbcnext: 02121 nextval: 00121就是求 next的时候用next[k]=k+1,第一个为0,其余没有的情况为1,其余为k+1 nextval的时候是将字符和next[k]的值比较,如果不同就为k,如果相同k=next[k],继续比较
托克托县15657028260： 数据结构模式匹配求next值 - ？
闽凭仁怡： 看模式串'abcabcaaa'第1个没疑问next[1]=0,第2个字符b前一个字符为a,a前面没字符了,所以next[2]=0+1=1,第3个字符c,前面一个字符为b,b前面没有和他匹配的,那么next[3]=0+1=1,第4个a,前面个字符为c,c前面没有匹配字符,那么next[4]=0+1=1,第5个b,前面一个字符a有匹配的,长度为1,next[5]=1+1=2,第6个c,前面字符ab(长度为2)有匹配的,那么next[5]=2+1,以此类推得next[7]=4,next[8]=5,next[9]=2.
托克托县15657028260： 求nextval数组值的简便方法 - ？
闽凭仁怡： int get_nextval(SString T,int &nextval[ ]){ //求模式串T的next函数修正值并存入数组nextval. i=1; nextval[1]=0; j=0; while(i<T[0]){ if(j==0||T[i]==T[j]){ ++i;++j; if (T[i]!=T[j]) nextval[i]=j; else nextval[i]=nextval[j]; } else j=nextval[j]; } }//get_nextval 根据这段程...
托克托县15657028260： 如何用代码实现求字符串的next函数值 - ？
闽凭仁怡： 模式串'aaaab'和'adabbadada' next和nextval数组值记得大学时自己也总结出了这种算法的,手动计算,数据结构的书都丢了,还好在网上找会了同样的算法特记下:int get_nextval(SString T,int &nextval[ ]){//求模式串T的next函数修...
托克托县15657028260： 急急急!数据结构求next值的思想？
闽凭仁怡： 模式串的next[j]值与主串s无关,只与模式串t本身的构成有关,则可把求next函数值的问题看成是一个模式匹配问题.由next函数定义可知: 当j=1时:next[1]=0. 设next[j]=k,即在模式串中存在:t1t2…tk-1=tj-(k-1)tj-k… t[j-1] ,其中下标k满足1<k...
托克托县15657028260： 求问c语言简单链表的问题...急,, - ？
闽凭仁怡： for(p=head;p->next!=NULL;p=p->next) ; //循环检查,最后把p指向链...
托克托县15657028260： 试用VB程序语言写出主要程序段:求S=1+3+5+7+……+999的值. - ？
闽凭仁怡： (1) dim a as integer a=val(text1.text) b=1 for i=2 to a/2 if a mod i = 0 then b=b+1 exit for end if next if b=1 then msgbox a & ＂是素数＂ else msgbox a & ＂不是素数＂ end if(2) dim s as integer dim c as integer s=0 for i=1 to 99 c=1 for j=1 to i c=c*j next s=s+a next
托克托县15657028260： C语言 KMP算法？
闽凭仁怡： 其基本思想是:每当匹配过程中出现字符串比较不等时,不需回溯i指针,而是利用已经得到的“部分匹配”结果将模式向右“滑动”尽可能远的一段距离后,继续进行比较. #include <stdio.h> #include <string.h> int index_KMP(char *s,char *t,...
托克托县15657028260： 求解一个貌似简单的</tr>结束问题,问了10多个人,都不行 - ？
闽凭仁怡： 求解一个貌似简单的结束问题,问了10多个人,都不行这样: set rs1=server.CreateObject(＂adodb.record...
托克托县15657028260： 紧急 求一份C语言程序题目:20个人坐在一圈,报到3或3的倍数的人出席,问最后剩下的人是谁?c语言编程 - ？
闽凭仁怡： 用C++写的 用数组解决 #includevoid display(int[],int n,int m); void main() { int n,m; int a[20]; cout>n; cout>m; for(int i=1;i struct Node { int data; struct Node *next; }; Node *createlist(int); void displist(Node *,int,int); void main() { Node *head; int n,i,m; ...
