请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
运行下列程序： Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox("输入一个整数5")) Print funl(x); t End Sub Private Function fun1(y) If y＞0 Then fun1 = 1： t=10 Else If y=0 Then fun1 = 0： t=20 Else fun1 = -1： t=30 End If End Function 从键盘为变量x输入数据5，输出的结果是【 】。
答案
更多“运行下列程序： Dim t As Integer Private Sub Form_Click（) t = 2 x=Val（”相关的问题
第1题
阅读下列程序并写出程序运行结果。
Public Sub change1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub change2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 22: b = 33
change1 a, b
Form1.Print "A1="; a, "B1="; b
a = 22: b = 33
change2 a, b
Form1.Print "A2="; a, "B2="; b
End Sub
写出程序运行时，单击窗体Form1上的输出结果。
第2题
第3题
第4题
以下程序执行后将输出100到200之间所有的素数，并统计素数的个数
Private Sub Form_Click()
Dim i%, j%, k%, t% 't为统计素数的个数
Dim b As Boolean
For i = 100 To 200
b = True
k= ------ 1 -----
j = Int(Sqr(i))
Do While k ＜= j And b
If i Mod k = 0 Then
------ 2 ------
End If
------ 3 ------
Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub
第5题
下列程序的运行结果是______。 define POW(r)(r)*(r) main() { int x=3,y=2,t; t=POW(x+y); printf("%d\n",t); }
第6题
Private Sub Commandl Click（）
Dim i As Integer, j As Integer
Dim a （10,10）As Integer
For i=1 To 3
For j= i To 3
a（i,j）=（i-1）*3+j
Print a （i,j）;
Next j
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是（）。
第7题
下列程序的运行结果为【 】。 include＜math．h＞ include＜stdio．h＞ main() { int s=1； float n=1，pi=0； double t=1； while(fabs(t)＞=2e-6) { pi+=t； n+=2； s=-s； t=s/n； } pi*=4； printf("pi=%．6f\n"，pi)； }
第8题
下面程序运行后，单击命令按钮，输出的结果是【 】 Private Sub Commandl_Click() Dim a％(1 To 4) ，b％(2 To 6) ，i％，strl，str2 For i=1 To 4 a(i) =i Next i For i=2 To 6 b(i) =i Next i str1 =YAG(A) str2 =YAG(B) Print"strl"；str1;"str2="；str2 End Sub Function YAG (a()As Integer) Dim T，i％ t=1 For i=LBound(A)To UBound(A) t=t * a(i) Next i YAG =t End Function
第9题
设有下列程序： include＜stdio.h＞ include＜string.h＞ main() { int i; char s[10],t[10]; gets(t); for(i=0;i＜2;i++) {gets(s); if(strcmp(t,s)＜0) strcpy(t,s); } printf("%s\n",t); } 程序运行后，从键盘上输入(＜CR＞代表回车符)：CDEF＜CR＞BADEF＜CR＞QTHRG＜CR＞，则程序的输出结果是______。
第10题
当输入19、2时，下列程序的运行结果为【 】；输入254、16时，则程序的运行结果是【 】。 main() { char data_symbols[17]="0123456789abcdefghijklmnopqrstuvwxyz"； int i=0，t，subscript，data_converted[32]； long number； while (1) { scanf("%ld，%d"，&number，&t)； if (number＞=O && t＞=2&&t＜=16) break； } do { data converted[i++]=number%t； number=number/t； } while(number!=0)； for(--i；i＞=0；--i) { subscript=data_converted[i]； printf("%c"，data_symbols[subscript])； } printf("\n")； }
