更多"有如下程序段： Dim I As Integer I=Int(-3"的相关试题:
[填空题]下面程序段运行后，变量X的值为【16】。
Dim x AS Integer
Dim I AS Integer
x＝0
for I＝0 to 50 step 10
X＝X＋I。
next I
Print X
[填空题]下面程序段运行后，变量X的值为 【16】 。
Dim x AS Integer
Dim I As Integer
x=0
for I=0 to 50 step 10
x=x+1
next I
Print x
[填空题]下面程序段运行后，变量x的值为上 【15】 。
Dim x As Integer
Dim i As Integer
x=O
for i=0 to 50 step 10
X=X+i
next i
[单项选择]下列程序段的执行结果为______。
Dim m(3,3)As Integer
Dim i As Integer
Dim j As Integer
Dim x As Integer
For i=1 To 3
m(i,i)=i
Next
For i=0 To 3
For j=0 To 3
x=x+m(i,j)
Next
Next
Print x
A. 3
B. 4
C. 5
D. 6
[填空题]下列程序段运行结果是______。
Dim c As Integer,num As Integer
Num=29483
Do
c=num Mod 10
Print c；
num=num/10
Loop While num＜＞0
[填空题]有如下程序段。
Public Sub xy (a As Integer，b As Integer)
Dim t As Integer
Do
t=a Mod b
a=b:b=t
Loop While t
MsgBox a
End Sub
用Call xy(96，40)调用该通用过程后，输出结果是______。
[填空题]执行以下程序段后，x的值为______。
Dim x As Integer,i As Integer
x＝0
For i＝20 To 1 Step -2
x＝x+i/5
Next i
[填空题]执行下列程序段后，x的值为______。
Dim x As Integer, i As Integer
x=0
For i=20 To 1 Step -2
x=x +i/5
Next i
[填空题]执行以下程序段后，x的值为______。
Dim x As Integer,i As Integer
x＝0
For i＝20 To 1 Step -2
x＝x+i/5
Next i
[单项选择]有下面的程序段，其功能是按下图左图所示的规律输出数据：
Dim a(3,5)As Integer
For j=1 To 3
For j=1 To 5
a(i,j)=i+j
Print a(i,j)；
Next
Print
Next
若要按下图右图所示的规律继续输出数据，则接在上述程序段后面的程序段应该是( )
A. For i=1 To 5 For j=1 To 3
B. B.For i=1 To 3
C. For j=1 To 5
D. For i=1 To 5
[填空题]设有如下程序
Private Sub Form Click（ ）
Dim a As Integer， b As Integer
a=20： b=50
p1 a， b
p2 a， b
p3 a， b
Print "a="； a， "b="； b
End Sub
Sub p1(x As Integer， ByVal y As Integer)
x = x+10
y = Y+20
End Sub
Sub p2(ByVal x As Integer， y As Integer)
x = x+10
y = y+20
End Sub
Sub p3(ByVal x As Integer， ByVal y As Integer)
x = x+10
y = y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。
[单项选择]有如下程序：
Private Sub Form_Click（ ）
Dim i As Integer, Sum As Integer
sum=0
For i=2 To 10
If i Mod 2＜＞0 And i Mod 3=0 Then
sum=sum+i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，输出结果为______。
A. 12
B. 30
C. 24
D. 18
[填空题]下列程序段的运行结果是______。
Dimnum As Integer，a As Integer,b As Integer
a=88：b=24
Do
While b＜＞0
num=a Modb
a=b
b=num
Wend
Printa
Loop
[单项选择]
设有如下程序：
Private Sub Commandl_click（ ）
Dim c As Integer,d As Integer
c=4
d=InputBox("请输入一个整数")
Do While d＞0
If d＞c Then
c=c+1
End If
d=InputBox("请输入一个整数")
Loop
Print c+d End Sub
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、 0，则输出结果是（）
A. 12
B. 11
C. 10
D. 9
[单项选择]有如下事件过程：
Private Sub Form_Click（ ）
Dim n As Integer
x=0
n=InputBox("请输入一个整数")
For i=1 To n
For j=1 To i
x=x+1
Next j
Next i
Print X
End Sub
程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是( )
A. 13
B. 14
C. 15
D. 16
[简答题]【函数2.1说明】
递归函数sum(int a[], int n)的返回值是数组a[]的前n个元素之和。
【函数2.1】
int sum (int a[],int n)
{
if(n＞0) return (1) ;
else (2) ;
}
【函数2.2说明】
有3个整数，设计函数compare(int a，int b，int c)求其中最大的数。
【函数2.2】
int compare (int a, int b, int c )
{ int temp, max;
(3) a:b;
(4) temp:c;
}
【函数2.3说明】
递归函数dec(int a[]，int n)判断数组a[]的前n个元素是否是不递增的。不递增返回 1，否则返回0。
【函数2.3】
int dec( int a[], int n )
{
if(n＜=1) return 1;
if(a[0]＜a[1]) return 0;
return (5) ;
}
[单项选择]有如下程序段：
Private Sub Form_Click（ ）
Dim m,n As Integer
m=InputBox("请输入M的值")
m=Val(m)
m1=m
n=InputBox("请输入N的值")
n=Val(n)
n1=n
Do While n＜＞0
remin=m Mod n
m=n
n=remin
Loop
Print m1, n1,m
End Sub
程序运行后，单击窗体，在输入对话框中分别输入16和24，则程序在窗体上的输出结果为______。
A. 16 24 4
B. 16 24 8
C. 24 16 6
D. 24 16 8
[单项选择]已定义以下函数：
int fun(int *p)
return *p;
fun函数返回值是（）。
A. 不确定的值
B. 一个整数
C. 形参p中存放的值
D. 形参p的地址值
