神马品牌网自由之翼第二季:VB专家帮帮我
来源：百度文库 编辑：神马品牌网 时间：2024/04/19 09:48:51
1. 编写过程DeleStr(s1,s1)，将字符串s1中出现的字符串s2删去，结果仍存放在s1中。
例如：S1= "1234567ABCDEF456789", s2= "4567"
结果：S1= "123ABCDEF89"
2. 编写函数Prime(n)，判断n是否素数，并使用该函数编写程序，验证100至200之间的所有偶数都能分解为两个素数之和。
3. 用自编的过程TurnR(x()，n)，实现数组x( )元素的右移（循环右移）, 其中n为数组元素的个数。例如1，3，4，5右移后变成5，1，3，4，再右移变成4，5，1，3。
在主程序中，用InputBox输入10个整数，输出3次右移的结果（每次右移都需输出）。
例如：S1= "1234567ABCDEF456789", s2= "4567"
结果：S1= "123ABCDEF89"
2. 编写函数Prime(n)，判断n是否素数，并使用该函数编写程序，验证100至200之间的所有偶数都能分解为两个素数之和。
3. 用自编的过程TurnR(x()，n)，实现数组x( )元素的右移（循环右移）, 其中n为数组元素的个数。例如1，3，4，5右移后变成5，1，3，4，再右移变成4，5，1，3。
在主程序中，用InputBox输入10个整数，输出3次右移的结果（每次右移都需输出）。
第一个题目：
S1= "1234567ABCDEF456789"
S2= "4567"
do while instr(s1,s2)<>0
i=instr(s1,s2)
S1=left(S1,i-1) & mid(S1,i+len(S2))
loop
MsgBox S1