例:在TEXT1中有字符串"12545B4A5AB45A6BA4A5B4A4A5AB4A5A4B"(可能更长,都为16进制码),从第一位开始,是奇数的放在TEXT2中,偶数放在TEXT3中。如前面TEXT2的结果便是"155A5A5AAA5AA5AA5",各位大虾,小弟受教了~~~
解决方案 »
- 尝试读取或写入受保护的内存。这通常指示其他内存已损坏。
- SQL的表和数据集关系问题??
- 哪位能用VB6编程自动关闭服务器返回的这个模式对话框?请看详细内容:
- 如何得到SHELL被调用程序的句柄?
- 200分急求!手机网络通信问题~望各位高人指点密经~
- 【请问】如何控制MDIForm右上角的关闭按钮?
- 关于程序对CPU的影响~请高手帮忙看一下
- 我做的一个纯DHTM的游戏,htm格式的,大家来看原代码!!
- 大侠们请进来帮忙,谢谢,关于socket
- 请问VB里面能否定一个下标没有限制的数组?
- ================请问如何截取数据库中数字字段的整数部分?=================
- 请大家帮个忙,朋友儿子刚出生,急需取名,请各位大侠支招,大分赠送
{
while((*text1))
{
if((*text1)%2) *text2 = *text1;
else *text3 = *text1;
text1++;
}
return 0;
}
dim j as integer
dim str as string
i =1
for i = 1 to len(text.text)
j= i mod 2
if j=0 then
str = str & instr(text1.text,i,1)
text2.text = str
else
str = str & instr(text1.text,i,1)
text3.text= str
end if
i= i+1
next
手上没有运行程序,未经调试