关于用VB制作摩斯密码翻译器的问题

[复制链接]

11 |

3 | 2011-9-19 18:54:27 | 显示全部楼层 |阅读模式

Mid(Temp, i, 1) = GetUserCar(Mid(UserInStr, i, 1))这句很奇怪，不是条件表达式的话赋值语句没有这么做的另外里面的1是截取1位，输出缺要两位，你想想...

使用道具举报

千问 | 2011-9-19 18:54:27 | 显示全部楼层

要写在不同平台下都能调用的DLL，最好还是用C或C++编写标准DLLVB听说也能编写标准DLL，但是貌似也是偷梁换柱，不是很正规。...

使用道具举报

千问 | 2011-9-19 18:54:27 | 显示全部楼层

Private Function GetPassCar(UserInStr As String) As String
Dim Temp As String
Dim i As Long
Temp = Space(Len(UserInStr))
For i = 1 To Len(UserInStr)
Mi...

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行