更多"设有5个表：std1．dbf～std5.dbf，以下程序的功能是要删除"的相关试题:
[填空题]设有5个表：std1．dbf～std5.dbf，以下程序的功能是要删除每个表文件的末记录。
n=1
DO WHILE n＜=5
db= 【19】
USE &db
GOTO BOTTOM
DELETE
PACK
n=n+1
ENDDO
USE
[单项选择]有一个名称为Form1的窗体，上面没有控件，设有以下程序(其中方法Pset(X，Y)的功能是在坐标X、Y处画一个点)：
Dim cmdMave AS Boolean
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdmave=True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If cmdmave Then
Form1.Pset(X,Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdmave=False
End Sub
此程序的功能是
A. 每按下鼠标键一次，在鼠标所指位置画一个点
B. 按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失
C. 不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
D. 按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
[单项选择]有一个名称为Fom1的窗体，上面没有控件，设有以下程序(其中方法PSet(X，Y)的功能是在坐标X，Y处画一个点)。
Dim cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
cmdmave=True
End Sub
Private Sub Form MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
If cmdmave Then
Form1.PSet(X，Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
cmdmave=False
End Sub
此程序的功能是______。
A. 每按下鼠标键一次，在鼠标所指位置画一个点
B. 按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失
C. 不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
D. 按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
[填空题]设有以下程序：
Option Base 1
Private Sub Command1_Click( )
Dim arr1 ,Max as Integer
art1 = Array(12,435,76,24,78,54,866,43)
【14】 = arr1(1)
For i = 1 To 8
If arrl(i)＞Max Then 【15】
Next i
Print "最大值："； Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
[单项选择]以下程序的功能是：按顺序读入10名学生4门课程的成绩，计算出每个学生的平均分数并输出，程序如下：
#include＜iostream＞
using namespace std；
int main( )
int n，k；
float score，sum，ave；
sum = 0.0；
for(n = 1；n ＜=10； n++)
for(k =1；k＜=4；k++)
cin＞＞score；
sum += score；
ave=sum/4.0；
cout＜＜"NO．"＜＜n＜＜"ave："＜＜ave＜＜end1；
return 0；
上述程序运行后结果不正确，调式中发现有一条语句出现在程序中的位置不正确。
这条语句是非曲直( )。
A. sum=0.0;
B. sum+=score;
C. ave= sum/4.0
D. cout＜＜"NO."＜＜n＜＜"ave:"＜＜ave＜＜end1;
[填空题]设有以下程序：
#include＜iostream＞
using namespace std；
int main（ ）
int a，b，k：4，m=6，*p1=&k，*p2=&m；
a=p1==&m；
b=(*p1)／(*p2)+7；
cout＜＜a＜＜b＜＜end1；
return 0；
执行该程序后，a的值为 【7】 ，b的值为 【8】 。
[填空题]以下程序的功能是：从键盘输入一字符串，要求将每个单词中的第一个字母改成小写(如果原来已是小写字母，则不变)，然后输出转换结果，补足所缺语句。
main（ ）
char str[200]； int i=0；
while((______=getchar（ ）)!=’/n’)；
str[i-1)=’/0’；
for(i=0;str[i]!=’/0’;i++)
if((str[i-1]==’ ’‖i==0)&&str[i]＞＝’A’&&str[i]＜＝’Z’)
str[i]+=______；
printf("%s/n",str)；
[单项选择]设有以下程序：
Private Sub Form_Click（ ）
x =50
For i = 1 To 4
y = InputBox( "请输入一个整数" )
y = Val(y)
lf y Mod 5 = 0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为( )。
A. 100
B. 50
C. 120
D. 70
[单项选择]设有以下程序段：
struct MP3
char name[20];
char color;
float price;
std,*ptr;
ptr=&std;
若要引用结构体变量std中的color成员，写法错误的是( )。
A. std.color
B. ptr→color
C. std→color
D. (*ptr).color
[填空题]以下程序的功能是：将一维组A中的100个元素分别赋给二维数组B的每个元素并打印出来,要求把A(1)到A(10)依次赋给B(1,1)到B(1,10),把A(11)到A(20)依次赋给B(2,1)到B(2,10),……,把A(91)到A (100)依次赋给B(10,1)到B(10,10)。请填空。
Option Base 1
Private Sub Form_Click（ ）
Dim i As Integer,J As Integer
Dim A(1 To 100)As Integer Dim B(1 To 10,1 To 10)As Integer
For i=1 To 100
A(i)=Int(Rnd*100)
Next i
For i=1 To 【 】
For J=1 To【 】
B(i,j)= 【 】
Print B(i,j)；
Next j
Print
Next i
End Sub
[填空题]以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)到A(10)依次赋给B(1,1)到B(1,10)，把A(11)到A(20)依次赋给B(2,1)到B(2,10)，……，把A(91)到A(100)依次赋给B(10,1)到B(10,10)。请填空。
Option Base 1
Private Sub Form_Click（ ）
Dim i As Integer,j As Integer
Dim A(1 To 100)As Integer
Dim B(1 To 10,1 To 10)As Integer
For i=1 To 100
A(i)=Int(Rnd*100)
Next i
For i=1 To (9)
For j=1 To 10
B(i,j)= (10)
Print B(i,j)；
Next j
Print
Next i
End Sub
