vfp實(shí)驗(yàn)題整理word版(編輯修改稿)
2025-02-05 17:40 本頁面
【文章內(nèi)容簡介】 (str(i,3)),i+1,1) For n =1 to i (alltrim(str(n,3)),i+1,n+1) Endfor Endfor 清空 click: 20222400 年間所有閏年。 顯示 click For n=2022 to 2400 If n%4=0 and n%1000 or n%400=0 PatienceCheng 11 / 23 11 (alltrim(str(n))) =1 amp。amp。使第一行總是顯示 Endif Endfor 關(guān)閉 click: ：素?cái)?shù)頁：在列表框中顯示 2到 1000 的所有素?cái)?shù)。含 7 頁：列表框中顯示 1200 之間所有含 7 的數(shù)據(jù)。 素?cái)?shù)頁 : 顯示 click: For n=2 to 1000 S=0 For i=2 to n1 amp。amp。除本身以外 if n%i=0 s=1 exit endif endfor if s=0 (alltrim(str(n))) endif endfor 含 7 頁 : 顯示 click: FOR n=1 to 200 If “7”$ str(n) PatienceCheng 12 / 23 12 (alltrim(str(n))) Endif Endfor 5★索引 ,表單中使用數(shù)據(jù)表 4. 設(shè)計(jì)一個(gè)操作數(shù)據(jù)表的表單，使之具有按記錄瀏覽數(shù)據(jù)表的功能（首記錄、上一個(gè)、下一個(gè)、尾記錄） 首記錄 click: Go top =.f. =.f. =.t. =.t. 上一個(gè) click: Skip 1 If reo=1 =.f. =.f. Endif =.t. =.t. 下一個(gè) click: Skip 1 If eof()=0 PatienceCheng 13 / 23 13 Go bottom =.f. =.f. Endif =.t. =.t. 尾記錄 click: Go bottom =.t. =.t. =.f. =.f. 關(guān)閉 click: 6★多表操作 7★數(shù)組 1. 有一個(gè) 86 的矩陣，各元素的值由由計(jì)算機(jī)隨機(jī)產(chǎn)生，求全部元素的平均值，幵輸出高于平均值的元素以及它們的行、列號。 list1屬性 :column count 6 Column widths:30,30,30,30,30,30 Row source: a Row source type: 5數(shù)組 form1activate: PatienceCheng 14 / 23 14 Public a(8,6) For i=1 to 48 a(i)=alltrim(str(rand()*100)) =48 ＆＆在 list 中設(shè)隨機(jī)數(shù)矩陣 Endfor mandgroup1click: P=”” K= Do case Case k=1 S=0 For i=1 to 48 S=s+val(a(i)) Endfor Av=s/48 =”平均值為 :”+alltrim(str(av)) For m=1 to 8 For n=1to 6 If a(i)av P=p+”a(“+str(a(m,1))+”,”+str(a(1,n))+”)=”+alltrim (a(m,n))+”,” amp。amp。 a(m,n)=x 中 m和 n 必須加上 str endif endfor endfor messagebox(p,0,”大于平均值的元素為 :”) Case k=2 =”平均值為 :” amp。amp。重 置 PatienceCheng 15 / 23 15 Endcase 2. 求方陣（ 66） 的兩個(gè)對角線元素和。 list1屬性 :column count :6 Column widths:30,30,30,30,30,30 Rowsource: a RowsourceType:5數(shù)組 Formactivate: Public a(6,6) For i=1 to 36 a(i)=alltrim(str(rand()*100)) =36 endfor 計(jì)算 click: S=0 Z=0 For i=1to 6 S=s+val(
試題試卷相關(guān)推薦
鄂ICP備17016276號-1