我是一个刚开始接触VF的学生，在做题遇到很多的困难，希望大家多多指导，谢谢

随机产生10个数，输入n，查找n在随机数中出现的位置，未出现就提示“未出现”。
我的解答过程：
set talk off
clear
input"请输入一个数：" to n
f=.T.
dimension a(n)
for i=1 to 10
a(n)=int(rand()*10+1)
next
?"随机数为：",a(n)
for i=1 to 10
if a(i)=n
f=.F.
?"位置是：",i
exit
endif
next
if f=.T.
?"未出现"
set talk on
cancel
老是提示操作符不匹配
希望大家能提出是哪一步错了，或者有更好的方法最好，谢谢

你定义a[n]的数组干嘛？思路都没理清。

我不大会做这个题，我是参考之前做过一个素数的题来做的，有没有什么好点的方法解这个题呢

关键是理清思路，分步骤做。
1.定义10个元素的数组，题目要求预先有10个随机数，用这个数组来储存这些数据，定义数组之后给每个元素赋予随机数，填满它。
2.接受用户输入的数据n
3.在10元素的数组中搜索是否有值等于n的数据，有就把这个数据的数组下标输出，没有就报告找不到。

帮你稍改了一下

Set Talk Off
Clear
Input"请输入一个数：" To N
F=.T.
Dimension a(10)
?"随机数为："

For i=1 To 10
    a(i)=Int(Rand()*10+1)
    ??a(i)
Next
For i=1 To 10
    If a(i)=N
        F=.F.
        ?"位置是：",i
        Exit
    Endif
Next
If F=.T.
    ?"未出现"
Endif

Set Talk On

最好考虑一下10个随机数不要重复

谢谢版主，结合了楼下的过程，我能理解了， 我会加油的

set talk off
clear
input"请输入一个数：" to n
dimension a(10)
for i=1 to 10
    a(i)=int(rand()*10+1)
    ?"随机数为：",a(i)
    if a(i)=n
       ??[ ]+"位置是：",i      
       exit
    else
       ??[ ]+"未出现"   
    endif
next
set talk on

试试

嗯，理清思路之后，不光自己能写，能看别人的代码，也能看出有什么问题，纲举目张。

这样的题目，最好把代码拆解为函数来实现，现在不注意培养这种感觉，将来意大利面条越缠越复杂，就知道头大了。喏，你看看上面的代码，如果增加10个随机数不重复的要求，代码如何整改？若拆解为函数，又会如何？两种做法都试一下，对比一下，感觉就出来了。

[ 本帖最后由 TonyDeng 于 2013-4-12 14:30 编辑 ]