VFP第4部分(循环结构)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者贡献于
评价文档：
34页1下载券34页免费58页1下载券2页免费68页免费 26页免费29页免费64页1下载券8页免费58页1下载券
喜欢此文档的还喜欢26页免费34页免费80页免费71页免费68页免费
VFP第4部分(循环结构)|
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
大小：651.50KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢求如下二维数组元素中的最大值、最小值及其所在位置。0.50 1.00 2.00 3.20 4.90 5.00 6.80 0.10 3.00 3.00_百度知道
求如下二维数组元素中的最大值、最小值及其所在位置。0.50 1.00 2.00 3.20 4.90 5.00 6.80 0.10 3.00 3.00
#include &iostream.h&
int c[5][2];
int i,j,max,max_i,max_j; max=c[0][0]; for (i=0;i&5;i++) {
for (j=0;j&2;j++) {
if (c[i][j]&max) {
max=c[i][j];max_i=i;max_j=j;
} } cout&&&最大值为 c[&&&max_i&&&][&&&max_j&&&]= &&&max&&endl&& 找最小值也是一样的，只是该一下
if (c[i][j]&max)
其他类似问题
按默认排序
其他1条回答
题目是老师出的 给些复习题给你吧 我在复习题里面看到的 老师有些也考了第一章C语言概述 一、选择题：1、一个C程序的执行是从（ A ）。A本程序的main函数开始，到main函数结束B本程序文件的第一个函数开始，到本程序文件的最后一个函数结束C本程序的main函数开始，到本程序文件的最后一个函数结束D本程序文件的第一个函数开始，到本程序main函数结束2、 在 C 语言中，每个语句必须以（ D ）结束。 A.
分号 3、C 语言规定：在一个源程序中，main函数的位置（ C ）。A. 必须在最开始
B. 必须在系统调用的库函数的后面 C. 可以任意
必须在最后4、一个C 语言程序是由（ B ）。A. 一个主程序和若干子程序组成
B. 函数组成 C. 若干过程组成
D. 若干子程序组成5、下列说法中错误的是(
主函数可以分为两个部分：主函数说明部分和主函数体 B.
主函数可以调用任何非主函数的其他函数 C.
任何非主函数可以调用其他任何非主函数 D.
程序可以从任何非主函数开始执行6、用 C 语言编写的源文件经过编译，若没有产生编译错误，则系统将(
生成可执行目标文件
生成目标文件 C.
输出运行结果
自动保存源文件 二、填空题：1、C 语言只有 32
个关键字和
种控制语句。2、每个源程序有且只有一个
函数，系统总是从该函数开始执行C语言程序。 3、C 语言程序的注释可以出现在程序中的任何地方，它总是以
符号作为开始标记，以
符号作为结束标记。4、C 语言中，输入操作是由库函数
完成的，输出操作是由库函
完成的。5、系统默认的C 语言源程序文件的扩展名是 .c
，经过编译后生成的目标文件的扩展名是 .obj
，经过连接后生成的可执行文件的扩展名是 .exe
。6、C 语言的标识符只能由字母、数字和
三种字符组成。第三章数据类型、运算符和表达式 一、选择题：1、以下选项中，不正确的 C 语言浮点型常量是（ C ）。 A. 160.
0.02、以下选项中，（ D ）是不正确的 C 语言字符型常量。 A. 'a'
B. '\x41'
C. '\101'
D. &a&3、 在 C 语言中，字符型数据在计算机内存中，以字符的（ C ）形式存储。 A.
C. ASCII 码
D. BCD码4、若x、i、j和k都是int型变量，则计算下面表达式后，x的值是（ C
）。x=（i=4，j=16，k=32） A. 4
D.525、算术运算符、赋值运算符和关系运算符的运算优先级按从高到低依次为( B )。 A.
算术运算、赋值运算、关系运算
算术运算、关系运算、赋值运算 C.
关系运算、赋值运算、算术运算
关系运算、算术运算、赋值运算 6、若有代数式 ，则不正确的C语言表达式是（ C ）。A.a/b/c*e*3
B. 3*a*e/b/c
C.3*a*e/b*c
D. a*e/c/b*3 7、表达式!x||a==b 等效于(
D )。 A. !((x||a)==b)
B. !(x||y)==b
C. !(x||(a==b))
D. (!x)||(a==b) 8、设整型变量 m,n,a,b,c,d 均为1，执行 (m=a&b)&&(n=c&d)后, m,n 的值是（ A）。 A. 0，0
D. 1，1 9、 设有语句 int a=3；，则执行了语句 a+=a-=a*=a;后，变量 a 的值是( B )。 A. 3
D. -12 10、在以下一组运算符中，优先级最低的运算符是(
D )。 A. *
11、设整型变量 i 值为2，表达式(++i)+(++i)+(++i)的结果是(
B )。 A. 6
表达式出错 12、若已定义 x 和 y为double 类型，则表达式 x=1，y=x+3/2 的值是( C )。 A. 1
D. 2.5 13、sizeof (double)的结果值是(
出错 14、设a=1，b=2，c=3，d=4，则表达式：a&b? a : c&d? a : d的结果为( D )。 A. 4
D. 1 15、设a 为整型变量，不能正确表达数学关系：10&a&15的 C 语言表达式是( A )。 A. 10&a&15
B. a= =11|| a= =12 || a= =13 || a= =14 C. a&10 && a&15
D. !(a&=10) && !(a&=15) 16、设 f是实型变量，下列表达式中不是逗号表达式的是(
D )。 A. f= 3.2, 1.0
B. f&0, f&10
C. f=2.0, f&0
D. f=(3.2, 1.0)
17、 表达式18/4*sqrt(4.0)/8值的数据类型是（ C
）。A. int
D. 不确定 18、已知字母A的ASCII码为十进制数65，且c2为字符型，则执行语句C2=’A’+’6’-‘3’;后c2中的值是（ A ）。 A. D
C. 不确定的值
D. C 19、以下用户标识符中，合法的是（ B ）。 A. int
D. a+b 20、C 语言中，要求运算对象只能为整数的运算符是（ A
D. * 21、若有说明语句：char c='\72'；则变量c在内存占用的字节数是（ A ）。 A. 1
D. 4 22、字符串&ABC&在内存占用的字节数是（
B ）。 A. 3
D. 8 23、要为字符型变量 a赋初值，下列语句中哪一个是正确的（ B ）。 A. char a=&3&;
B. char a=’3’;
C. char a=%;
D. char a=*; 24、下列不正确的转义字符是（ C ）。 A. \\
B. \'
D. \0 二、填空题：1、C 语言中的逻辑值“真”是用
表示的，逻辑值“假”是用
表示的。 2、若x和n都是int型变量，且x的初值为12，n的初值为5，则计算表达式x%=(n%=2)后x的值为
。 3、设 c='w',a=1,b=2,d=-5,
则表达式 'x'+1&c, 'y'!=c+2, -a-5*b&=d+1, b==a=2的值分别为
。 4、设 float x=2.5,y=4.7; int a=7;，表达式 x+a%3*(int)(x+y)%2/4的值为
。5、判断变量 a、b 的值均不为 0 的逻辑表达式为a!=0&&b!=0
。 6、求解赋值表达式 a=(b=10)%(c=6)，表达式值、a、b、c 的值依次为
。 7、求解逗号表达式 x=a=3,6*a 后，表达式值、x、a 的值依次为18,3,3
。8、数学式a/(b*c)的 C 语言表达式
。三、编程题:1、 设长方形的高为 1.5，宽为 2.3，编程求该长方形的周长和面积。2、 编写一个程序，将大写字母 A转换为小写字母 a。1．main()2.main()顺序结构答案一、单项选择题AADAB CCBBD二、 程序改错题1．正确的程序为# include &stdio.h& main( ) {
getchar(c);
putchar('\007') ;
putchar( ); }2． 正确的程序为main( ) { int a,b,s,l;
scanf(&%d,%d&,&a,&b);
s=a*b; l=2*(a+b); printf(&l=%d,s=%d\n&, l ,s); }三、写出程序运行结果1． 682. x=4y=11四、编程题1. main( ){ int a,b,c,scanf(“%d%d%d”,&a,&b,&c);sum=a+b+c;
ave=sum/3.0;printf(“sum=%d,ave=%.2f\n”,sum,ave);}五、选做题1.void main( )
float a,b,
printf(&input a and b:&);
scanf(&%d,%d&,&a ,&b);
temp = a = b =
printf(&a=%d , b=%d\n&, a , b);
}选择结构答案一、单项选择题1.B
7.C二、填空题1.
Pass三、 阅读程序，写出运行结果1.
10, 4, 3;-1 3 6 1 四、程序设计题1. main( ){ int a,b,x,y;scanf(“%d %d”,&a,&b);x=a*a+b*b;if(x&100)
else printf(“%d”,a+b);}2. if结构main(){printf(“input score,max as 100:\n”);scanf(“%f”,&t);if(t&=90) ch=’A’;else if(t&=80) ch=’B’;else if(t&=70) ch=’C’;else if(t&=60) ch=’D’;else ch=’E’;printf(“Grade=%d\n”,ch);}switch结构main(){printf(“input score,max as 100:\n”);scanf(“%f”,&t);switch(t/10){ case 10:case 9: ch=’A’;case 8: ch=’B’;case 7: ch=’C’;case 6: ch=’D’;case 5: ch=’E’;}printf(“Grade=%d\n”,ch);}五、选做题1. main(){ int a,b,c,t;scanf(“%d%d%d”,&a,&b,&c);if(a&b)if(a&c)if(b&c)printf(“%d,%d,%d\n”,a,b,c);}2. switch((s&0)&&(s&=10)){case 1: switch ((s&=3)&&(s&=6))
{ case 1: x=2;
case 0: switch (s&1)||(s&8))
{ case 1: x=3;
case 0: x=1;
}}case 0: x=0;}循环结构答案一、选择题 1．B
10.D二、填空题1. x1
x1/2-22. ch=getchar()
ch&=’A’&&ch&=’Z’3. s=s+t*i
t=-t三、阅读下列程序，写出程序运行的输出结果 1．8522.
SUM=2468四、程序改错1.main() { int i=200,n=0; /*n用来记录每行已打印数的个数*/ while(i&=300)
{if(i%7==0)
printf(&%5d&,i);
/*满5个换行*/
} }2). main( ) { int i,s=0,t=1;
for(i=1;i&=7;i++)
printf(&sum=%d\n&,s);
} 五、程序设计题1. main(){int x,g,s,b;for(x=100;x&1000;x++){ b=x/100;s=x%100/10;g=x%10;if((g*g*g+s*s*s+b*b*b)==x)printf(“%d\n”,x); }}2. main(){ int i,s=0,f=1;for(i=2;i&80;i++)printf(s=%f\n”,s);}六、选做题1. main(){ float s=0,m=2.0,n=1.0,p;for(i=1;i&=20;i++)printf(s=%f\n”,s);}2.#include &stdio.h&main( ){ int i,j,k,s=1;for(i=1;i&=20;i++)for(j=1;j&=50;j++)
{ k=100-i*5-j*2;
{ printf(“%2d %2d %2d”,i,j,k);
if(s%5==0)
printf(“\n”);
数组习题A卷1. 单项选择题(1) int a[4]=;其中 a[3]的值为(
D. 9 (2) 以下 4 个字符串函数中，(
)所在的头文件与其他 3 个不同。A A. gets
D. strcmp(3) 以下 4 个数组定义中，(
)是错误的。 DA. int a[7];
B. #define N 5
long b[N];
C. char c[5];
int n,d[n]; (4) 对字符数组进行初始化，(
)形式是错误。 BA. char c1[ ]=;
B. char c2[ ]=123;
C. char c3[ ]=;
D. char c4[ ]=&123&; (5) 在数组中，数组名表示(
)。 AA. 数组第 1 个元素的首地址
B.数组第 2 个元素的首地址 C. 数组所有元素的首地址
D.数组最后 1 个元素的首地址(6) 若有以下数组说明，则数值最小的和最大的元素下标分别是(
)。 Bint a[12] =;
D. 0,12 (7) 若有以下说明，则数值为 4 的表达式是(
Dint a[12] =;
char c=’a’, d,
C. a['d'-'c']
D. a['d'-c]
(8) 设有定义：char s[12] = &string& ;
则printf( &%d\n&,strlen(s));
D. 12 (9) 设有定义：char s[12] = &string&;
则printf(&%d\n &, sizeof(s)); 的输出是(
D. 12 (10) 合法的数组定义是(
)。 AA. char a[ ]= &string & ;
B. int a[5] =;
C. char a= &string & ;
D. char a[ ]= (11) 合法的数组定义是(
)。 DA. int a[3][ ]=;
B. int a[ ][3] =; C. int a[2][3]=;
D. int a[2][3]=; (12) 下列语句中，正确的是 (
)。DA. char a[3][ ]=;
B. char a[ ][3] =; C. char a[3][ ]=;
D. char a[ ][3] =; (13) 下列定义的字符数组中，输出 printf(&%s\n&, str[2]) ;的输出是(
)。 Cstatic str[3][20] =;
C. windows
输出语句出错(14) 下列各语句定义了数组，其中哪一个是不正确的(
)。 CA. char a[3][10]=;
B. int x[2][2]=; C. float x[2][ ]=;
D. int m[][3]=; (15)
数组定义为 int a[3][2]=，值为6的数组元素是(
)。 BA. a[3][2]
B. a[2][1]
C. a[1][2]
D. a[2][3] (16) 下面的程序中哪一行有错误(
)。D#include &stdio.h&main(){
float array[5]=;
for(i=0;i&5;i++)
scanf(&%f&,&array);
for(i=1;i&5;i++)
array[0]=array[0]+//第B行
printf(&%f\n&,array[0]);
D. 没有(17) 下面哪一项是不正确的字符串赋值或赋初值的方式(
A. char * str=&string&;
B. char str[7]=;
C. char str1[10];str1=&string&;
D. char str1[]=&string&,str2[]=&&;(18) 若有以下说明和语句，则输出结果是哪一项(
(strlen(s)为求字符串s的长度的函数)
char s[12]=&a book!&;
printf(&%d&,strlen(s));
D. 11(19) 若有以下说明和语句，则输出结果是(
(strlen(s)为求字符串s的长度的函数)
char sp[]=&\t\v\\\0will\n&;
printf(&%d&,strlen(sp));
D. 字符串中有非法字符(20) 若有以下说明和语句，则输出结果是(
char str[]=&\&c:\\abc.dat\&&;
printf(&%s&,str);A. 字符串中有非法字符
B. \&c:\\abc.dat\&
C. &c:\abc.dat&
D. &c:\\abc.dat&2. 填空题 (1) C 语言中，数组的各元素必须具有相同的
，元素的下标下限为
，下标必须是正整数、0、或者
。但在程序执行过程中，不检查元素下标是否
。数据类型,0,符号常量,越界(2) C 语言中，数组在内存中占一片
的存储区，由
代表它的首地址。数组名是一个
常量，不能对它进行赋值运算。连续,数组名,地址(3) 执行 static int b[5], a[ ][3] =; 后，b[4] =
，a[1][2] =
。 0,6(4) 设有定义语句 static int a[3][4] =,,}; 则 a[1][0]值为
，a[1][1] 值为
，a[2][1]的值为
。 2,0,0(5) 如定义语句为 char a[ ]= &windows&,b[ ]= &95&;，语句 printf(&%s&,strcat(a,b));的输出结果为
。Windows95(6) 根据以下说明,写出正确的说明语句：men是一个有10个整型元素的数组。
step是一个有4个实型元素的数组,元素值分别为1.9, -2.33, 0, 20.6。
grid是一个二维数组,共有4行,10列整型元素。
int mesh[10];
float step[4] = ;
int grid[4][10];(7) array是一个一维整形数组,有10个元素,前6个元素的初值是9,4,7,49,32,-5,正确的说明语句为：
。该数组下标的取值范围是从___到___(从小到大)。用scanf函数输入数组的第二个元素表示为：
。用赋值语句把39存入第一个元素表示为：
。把第六个和第四个元素之和存入第一个元素表示为：
。int array[10] = ;
scanf(&%d&,&array[1]);
array[0] = 39;
array[0]= array[5]+array[3];(8) 写出以下初始化数组的长度：①int chn[3];数组chn的长度为___。②float isa[]=;数组isa的长度为___。③int doom[8];数组doom的长度为___。④float pci[4][2];数组pci的长度为___。⑤int ast[3][3];数组ast的长度为___。⑥int att[3][4];数组att的长度为___。⑦float dell[][3]=,,};数组dell的长度为___。
36(9) 若有以下整型的a数组，数组元素和它们得值如下所示:
①请写出对该数组的说明，并赋以上初值。
②该数组的最小下标值为___,最大下标值为___。③写出下面各式的值：a[a[9]]的值为___ ；a[a[4]+a[8]]的值为___。int a[10]=;
8(10) 字符串&ab\n\\012/\\\&&的长度为___。103. 判断题（ × ）(1) C允许对数组的大小作动态定义，即可用变量定义数组的大小。 （ × ）(2) 字符数组不要求它的最后一个字符为‘\0’，甚至可以不包含‘\0’。（ × ）(3) 数组定义 int a[10]; 也可以写成 int a(10); 。（ √ ）(4) 在对全部数组元素赋初值时，可以不指定数组长度。（ × ）(5) 定义s为5×6(5行6列)的数组可写成 float a[5,6]; （ √ ）(6) 数组定义 int a[10]; 表示数组名为a，此数组有10个元素。（ × ）(7) 数组定义 int a[10]; 表示数组名为a，此数组有10个元素，第10个元素为a[10]。（ √ ）(8) static char c[]=; 与static char c[]=“a book”; 等价。（ × ）(9) static char c[]=;与 static char c[]=; 等价。（ × ）(10) 设已有说明：static char c1[10],c2[10]; 下面程序片段是合法的。c1=; c2=c1;4. 程序填空题(1) 输入 20 个数，输出它们的平均值，输出与平均值之差的绝对值为最小的数组元素。请填空。 #include &stdio.h& void main( ) {
float a[20],pjz=0,s,t; int i,k;
for(i=0;i&20;i++) pjz+=a;
s=fabs(a[0]-pjz);
for(i=1;i&20;i++)
if(fabs(a-pjz)&s)
s=fabs(a-pjz); t=a;
}--------------------------------------------------------------------------------for(i=0;i&20;i++) scanf(“%f”,&a); pjz/=20; printf(“%f,%f\n”,piz,t);(2) 以下程序以每行 10个数据的形式输出 a 数组，请填空。
void main( ) {
int a[50],i;
printf(&输入50个整数:&);
for(i=0; i&50; i++)
scanf( &%d&,
for(i=1; i&=50; i++)
printf( &%3d\n& ,
printf( &%3d&,a);
} } &a i%10==0
下面程序的功能是输出数组 s 中最大元素的下标，请填空。 void main( ) {
int s[ ]=;
for(p=0,k=p; p&6; p++)
if(s[p]&s[k])
printf(&%d\n& ,k); }
这个程序输入了20个数存放在一个数组中,并且输出其中最大者与最小者、20个数的和及它们的平均值。请填空。
void main()
int max,min,average,
for(i=0;i&i++)
printf(&请输入第%d个数:&,i+1);
scanf(&%d&,
max=array[0];
min=array[0];
for(i=0;i&=i++)
if(max&array)
if(min&array)
printf(&20个数中最大值是%d,&,max);
printf(&最小值是%d,&,min);
printf(&和是%d,&,sum);
printf(&平均值是%d.\n&,average);}[20]
sum/20太多了 不能全放完这些应该也够吧
二维数组的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁程序框图的画法0_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者贡献于
评价文档：
32页免费14页免费9页免费20页免费20页免费 19页免费16页免费13页免费2页免费16页免费
喜欢此文档的还喜欢14页免费21页1下载券2页免费
程序框图的画法0|
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
大小：278.50KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢1.2.3 循环语句知识点试题及答案_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
7页免费57页免费24页免费20页免费8页免费 23页免费26页免费4页免费3页免费15页1下载券
喜欢此文档的还喜欢13页免费38页2下载券2页免费7页免费13页1下载券
1.2.3 循环语句知识点试题及答案|
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢求 龙族 [羽枫进阶工作脚本][3.0]版，不要给我发4.0的地址，我用不了_百度知道
求 龙族 [羽枫进阶工作脚本][3.0]版，不要给我发4.0的地址，我用不了
麻烦发到信箱：
提问者采纳
　　太长了，
下吧。。。我上传了。。。免费的。。呵呵　　[General]　　Description=[羽枫进阶工作脚本][3.0]版　　BeginHotkey=111　　BeginHotkeyMod=14　　RunOnce=0　　Enable=1　　[Repeat]　　Type=0　　Number=1　　[CallBack]　　OnSetup=　　[Comment]　　Content=　　[Script]　　////////////////////////////////////////////////////////////////////　　////////////////////
数据初始化
//////////////////　　Dim BuyItem(5)　　Dim BuyItem_PosX(5)　　Dim BuyItem_PosY(5)　　Dim BuyItem_Page(5)　　Dim BuyItem_Amount(5)　　Dim StoreItem(15)　　Dim Store(15)　　BuyItemCount=0　　ScriptFolder =&[羽枫]\[进阶工作脚本]\&　　ItemFile =&Item.ini&　　StoreFile = &Store.ini&　　ScriptFile = &Script.ini&　　BuyStore=&&　　ScriptName = &&　　ScriptList = &&　　MakeItem_Row =1　　MakeItem_Col =1　　MakeItem_PosX =0　　MakeItem_PosY =0　　Mtype=1　　Ttype=1　　Ptype=1　　Stype=1　　DataSet = 0　　FileHaved=0　　////////////////////
////////////////////　　KeyPress 13 1　　Delay 50　　Mystring = &[羽枫进阶工作脚本][3.0]版...By CDK1 YS 飘飘的枫&　　Gosub 说话　　Gosub 选择菜单　　EndScript　　///////////　　////////////////////
////////////////////　　Rem 数据预处理　　Erase StoreItem　　Erase Store　　StoreCount=0　　StoreItemCount=0　　MakeItem_PosX = 320 + (MakeItem_Col-1)*38　　MakeItem_PosY = 145 + (MakeItem_Row-1)*30　　Boss = 0　　Make = 0　　Sale = 0　　Saled = 1　　Full =0　　Chgtime =0　　Rem 准备制作　　KeyPress 13 1　　Delay 50　　Mystring=&/trade off&　　Gosub 说话　　Mystring=&/effectoff&　　Gosub 说话　　Mystring=&/off&　　Gosub 说话　　KeyPress 27 3　　Delay 300　　KeyDown 160 1　　Delay 100　　SaveMousePos　　Rem 开始制作　　KeyPress 32 3　　Delay 300　　Gosub 补充体力　　RestoreMousePos　　Delay 100　　KeyPress 13 2　　Delay 100　　Boss=Boss +1　　Mystring= &BOSS[& & Boss & &]次｜&　　If Boss Mod 3 =1　　Mystring= Mystring & &进阶工作脚本[3.0]版&　　ElseIf Boss Mod 3 =2　　Mystring= Mystring & &By CDK1 YS:飘飘的枫&　　ElseIf Boss Mod 3 =0　　Mystring= Mystring & &使用[Shift]暂停脚本&　　EndIf　　Mystring= Mystring & &｜制作物品[& & Make & &]出售物品[& & Sale & &]次...&　　Gosub 说话　　stime=now()　　Rem 买卖界面　　IfColor 485 73 8c9aad 1　　If DateDiff(&s&,stime,now()) & 5　　Delay 100　　Gosub 暂停　　Goto 买卖界面　　Else　　Gosub 取消国战　　If Ptype = 2　　Gosub 购买取消　　EndIf　　KeyPress 27 3　　Delay 300　　Goto 开始制作　　EndIf　　EndIf　　If Saled =0 and (Mtype=3 and Boss&1 Or Full=1 and Stype =2)　　Gosub 出售物品　　EndIf　　MoveTo 524 162　　Delay 100　　LeftClick 1　　Delay 200　　stime=now()　　Rem 购买物品界面　　IfColor 495 30 6b8ead 1　　If DateDiff(&s&,stime,now()) & 5　　Delay 100　　Gosub 暂停　　Goto 购买物品界面　　Else　　Goto 买卖界面　　EndIf　　EndIf　　MoveTo 801 169　　Delay 400　　I=0　　NPage=1　　For BuyItemCount　　If Ptype = 2　　If BuyItem_Page(I)&&NPage　　If BuyItem_Page(I)&NPage　　MoveTo 637 144　　ElseIf BuyItem_Page(I)&NPage　　MoveTo 637 72　　EndIf　　Delay 200　　N=Abs(BuyItem_Page(I)-NPage)　　If N&&0　　For N　　LeftClick 1　　Delay 150　　NPage=NPage+1　　EndFor　　EndIf　　Delay 120　　EndIf　　EndIf　　stime=now()　　Rem 点击物品　　MoveTo BuyItem_PosX(I) BuyItem_PosY(I)　　Delay 100　　LeftClick 1　　Delay 200　　IfColor 569 253 cee3de 1　　IfColor 570 253 cee3de 1　　If DateDiff(&s&,stime,now()) & 2　　Goto 点击物品　　Else　　Goto 买卖界面　　EndIf　　EndIf　　EndIf　　Gosub 暂停　　MoveTo 469 289　　Delay 200　　For BuyItem_Amount(I)　　IfColor 277 79 6b869c 1　　LeftDown 1　　Delay 10　　LeftUp 1　　Delay 40　　Gosub 暂停　　Else　　Rem 买满　　MoveTo 500 110　　Delay 100　　LeftClick 1　　Delay 200　　IfColor 277 79 6b869c 1　　Full =1　　Saled = 0　　Goto 买够退出　　Else　　Goto 买满　　EndIf　　EndIf　　EndFor　　Delay 200　　I = I +1　　EndFor　　Delay 200　　Rem 买够退出　　If Ptype = 2　　Gosub 购买取消　　EndIf　　Delay 100　　KeyPress 27 3　　Delay 300　　Gosub 制作物品　　Gosub 暂停　　Delay 200　　If Mtype =3　　Gosub 拣物　　EndIf　　Goto 开始制作　　Rem 脚本终止　　/////////////////　　////////////////////////
////////////////////////　　///////////　　Sub 取消国战　　IfColor 758 430 0 0　　MoveTo 400 400　　Delay 200　　LeftClick 2　　Delay 300　　EndIf　　Return 取消国战　　Sub 等待按键　　WaitKey AnJian　　KeyPress 13 1　　Delay 50　　Return 等待按键　　Sub 说话　　SayExpression Mystring　　Delay 50　　KeyPress 13 1　　Delay 50　　Return 说话　　Sub 取得商店列表　　StoreCount = 0　　set fso=CreateObject(&Scripting.FileSystemObject&)　　set myfile=fso.opentextfile(ScriptFolder & StoreFile,1)　　While myfile.atendofstream &&True　　linestring=Trim(myfile.read(1))　　If linestring && &#& and linestring && && and linestring && vbCr　　Store(StoreCount) = linestring & Trim(myfile.readline)　　StoreCount = StoreCount +1　　Else　　myfile.SkipLine　　EndIf　　EndWhile　　myfile.close　　set fso=nothing　　Return 取得商店列表　　Sub 取得商店类型　　If Store(0) = &&　　Gosub 取得商店列表　　EndIf　　I=0　　Mystring= &│[商店类型]& & vblf　　Mystring= Mystring & &├& & String(7,&—&) & vblf　　For StoreCount　　Mystring= Mystring & &│&& & Hex(I+1) & &&& & Mid(Store(I),4) & vblf　　I=I+1　　EndFor　　Gosub 说话　　Gosub 等待按键　　If (AnJian&=49 and AnJian&=57) or (AnJian&=65 and AnJian &=70)　　If CInt(&&H&&Chr(AnJian))&=1 and CInt(&&H&&Chr(AnJian))&=StoreCount　　Mystring= &[商店类型]选择[& & Chr(AnJian) &&][& & Mid(Store((&&H&&Chr(AnJian))-1),4) & &]...&　　Gosub 说话　　If BuyStore && Store((&&H&&Chr(AnJian))-1)　　BuyStore = Store((&&H&&Chr(AnJian))-1)　　BuyItemCount=0　　Erase BuyItem　　Erase BuyItem_PosX　　Erase BuyItem_PosY　　Erase BuyItem_Page　　Erase BuyItem_Amount　　Gosub 取得材料列表　　EndIf　　Else　　Mystring=&只有[&& StoreCount &&]种商店,请重新输入...&　　Gosub 说话　　Gosub 取得商店类型　　EndIf　　Else　　Mystring=&只有[&& StoreCount &&]种商店,请重新输入...&　　Gosub 说话　　Gosub 取得商店类型　　EndIf　　Return 取得商店类型　　Sub 购买材料列表　　I=0　　Mystring= &│[材料列表] -&S&[& & Mid(BuyStore,4) & &]& & vblf　　Mystring= Mystring & &├& & String(11,&—&) & vblf　　If BuyItemCount &0　　For BuyItemCount　　Mystring= Mystring & &│&& & I+1 & &&& & Mid(BuyItem(I),7) & String(12-2*Len(Mid(BuyItem(I),7)),& &) &&..[& & BuyItem_Amount(I) & &]个& & vblf　　I=I+1　　EndFor　　Else　　Mystring= Mystring & &│&空&& & vblf　　EndIf　　Mystring= Mystring & &├& & String(11,&—&) & vblf　　Mystring= Mystring & &│&Y&确定&　　If BuyItemCount & 5　　Mystring= Mystring & & &T&添加&　　EndIf　　Mystring= Mystring & & &D&清空&　　Gosub 说话　　Gosub 等待按键　　If AnJian&=49 and AnJian&= Asc(BuyItemCount)　　I= Chr(AnJian)-1　　Mystring= &选择材料[& & I+1 & &]...&　　Gosub 说话　　Gosub 材料操作　　ElseIf AnJian = 68
提问者评价
感谢感谢。。。。。
其他类似问题
按默认排序
其他1条回答
签： 羽枫进阶工作脚本
龙族 羽枫脚本
羽枫脚本 如何
羽枫脚本 如何设置
龙族挂机脚本
梦幻龙族脚本
梦幻龙族零式脚本
龙族打铁脚本
龙族的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁