排五走势图:这道vb题怎么改才正确?

来源：百度文库编辑：查人人中国名人网时间：2024/04/25 18:21:27

1. 程序改错题.(为了考试啊)
gc373.frm的功能是：将一个二进制字符串压缩，其中结果保留该字符串的首字符，然后将连续的0或1用其数目来表示，当遇到不同字符时用“*”表示。
例如：字符串"111100000111111111000111110000"压缩后为“14*5*9*3*5*4”。请修改程序中2处错误，并调试该程序，使之正确运行，不得增加或删除程序行。

Private Sub Form_Click()
cString = "111100000111111111000111110000"
cResult = Left(cString, 1)
nCount = 1
For n = 2 To Len(cString)
'比较前后两个字符是否相同，同则计字符数，否则记*
If Mid(cString, n, 1) = Mid(cString, n - 1, 1) Then
nCount = nCount + 1
Else
cResult = cResult + Trim(Str(nCount)) + "*"
nCount = nCount + 1
End If
End If
cResult = cResult + Trim(Str(nCount))
Print "压缩后为" + cResult
End Sub

请指教!考试啊!!!!!

Private Sub Form_Click()
cString = "111100000111111111000111110000"
cResult = Left(cString, 1)
nCount = 1
For n = 2 To Len(cString)
'比较前后两个字符是否相同，同则计字符数，否则记*
If Mid(cString, n, 1) = Mid(cString, n - 1, 1) Then
nCount = nCount + 1
Else
cResult = cResult + Trim(Str(nCount)) + "*"
nCount = 1 '清成1
End If
Next '这里是循环
cResult = cResult + Trim(Str(nCount))
Print "压缩后为" + cResult
End Sub

这道vb题怎么改才正确? 长跑怎么跑才正确？仰卧起坐怎么做才正确?? 仰卧起坐怎么做才正确?? 怎么看绿色植物才正确？怎么得到正确的系统目录 VB 请问：VB自动生成图标怎么改怎么才可以改输入法卸妆油怎么用才正确？ OPEN究竟怎么读才正确？