网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下面程序的输出是______。Private Sub Command1_Click() Print 7\3End Sub
A．3.5
B．7
C．3
D．2
参考答案
更多 “ 下面程序的输出是______。Private Sub Command1_Click() Print 7\3End SubA．3.5B．7C．3D．2 ” 相关考题
考题
窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是（ ）。A．Private Sub Command1_Click（）Open “out.txt” For Inpit As#1Print#1,Text1.TextClose#1End SubB．Private Sub Command1_Click（）Open “out.txt” For Outpit As#1Print#1,Text1.TextClose#1End SubC．Private Sub Command1_Click（）Open “out.txt” For Append As#1Print#1,Text1.TextClose#1End SubD．Private Sub Command1_Click（）Open “out.txt” For Random As#1Print#1,Text1.TextClose#1End Sub
考题
下面程序运行后，窗体中显示【 】。Private Sub Command1_Click) ( )aS ="*" :b$ ="$"For k = 1 To 3x$ =Strings (Len(a$) +k,b$ )Print x $;NextPrintEnd Sub
考题
窗体上有两个按钮，则执行程序后按键盘Cance1键的输出结果是 【7】 。Private Sub Command1_Click（）Print "北京";End SubPrivate Sub Command2_Click（）Print "南京";End SubPrivate Sub Form_Load（）Command2.Cancel=TrueCommand1.Cancel=TrueEnd Sub
考题
执行下面的程序，输出的结果是 ______ 。 Private Sub Command1_Click() ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End SubA．1B．2C．8D．0
考题
（ 14 ）执行以下程序后输出的是Private Sub Command1_Click()Ch$= ” AABCDEFGH ”Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)End SubA)CDEFGHB)ABCDC)FGD)AB
考题
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
考题
下列程序输出的结果为【 】。Private Sub Commandl_Click( )Dim a As Booleana = TrueIf a Then GoTo 11 Else GoTo 2211:Print "VB";22:Print "VC"End Sub
考题
以下能够正确计算n!的程序是A．Private Sub Command1_Chck( ) n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜=n Print x End SubD．Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop While i＞n Print x End Sub
考题
下列程序的输出结果为( )。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End SubA．4B．5C．6D．7
考题
以下能够正确计算n!的程序是A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End SubB．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End SubC．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End SubD．Private Sub Command1_Click() n=5：X=1：I=1 Do x=x * I I=I + 1 Loop While I＞n Print X End Sub
考题
运行下列程序，最后在窗体中输出【 】。Private Sub command1_Click()a=65 : b = 17a = a Mod b ^ 2a = a \ 4Print aEnd Sub
考题
阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是A．3B．9C．14D．21
考题
以下能够正确计算n!的程序是A．Privas Sub Command1_Click() n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop while i＜=n Print x End SubD．Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop While i＞n Print x End Sub
考题
有如下程序：Private type stuX as stringY as integerEnd typePrivate Sub Command1_Click()Dim a as stua.x=”ABCD”a.Y=12345print aEnd Sub程序运行时出现错误，错误的原因是A)Type定义语句没有放在标准模块中B)变量声明语句有错C)赋值语句不对D)输出语句print不对
考题
以下能够正确计算1+2+3+…+10的程序是A．Private Sub Command1_Click() Sum=0 ForI=1 To 10 Sum=Sum+I Next I Print Sum End SubB．Private Sub Command1_Click() Sum=0，I=1 Do While I＜=10 Sum=Sum+I I=I+1 Print Sum End SubC．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop While I＜10 Print Sum End SubD．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop Until I＜10 Print Sum End Sub
考题
下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5 8 6 7；输人1000，则输出0 0 0 1。请填空。 Private Sub Command1_Click Dim x As Integer X=InputBox(“请输入一个正整数”) While x 【11】 Print x Mod 10； x=x＼10 Wend Print 【12】 End Sub
考题
以下能够正确计算n!的程序是A．Private Sub Command1_Click( ) n=5: x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click( ) n=5: x=1: i=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click( ) n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i＜= n Print x End SubD．Private Sub Command1_Click( ) n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i＞n Print x End Sub
考题
以下程序运行时，输入3和4后输出的结果是______。 Private Sub Command1_Click() a=InputBox(“请输入a的值”) b=InputBox(“请输入b的值”) Print a+b End SubA．3+4B．7C．34D．12
考题
下列程序： Private Sub Command1_Click() a=InputBox("请输入") b=InputBox("请输入") Print=a+b End Sub 运行时输入3和4，输出的结果是A．7B．34C．3+4D．出错
考题
下面的程序是找出50以内所有能构成直角三角形的整数组。阅读下面程序，并完成程序。Private Sub Command1_Click( )For a = 1 to 50For b = a to 50c = Sqr(a^ 2 + b^ 2)If【 】then print a; b; cnext bnext aend Sub
考题
下面程序段的作用：在窗体上一个命令按钮。单击命令按钮后，将程序中字符串 "Welcome Home"中的字符全部大写输出，其后字符"Wel Back"全部小写输出。请填空。Private Sub Command1_Click()a = "Welcome Home";b = "Wel Back"c = 【 】+ LCase(B) Print cEnd Sub
考题
在窗体上画了两个按钮控件Command1和Command2，有如下程序： Private Sub Command1_Click() Print "Visual"； End Sub Private Sub Command2_Click() Print "Basic"； End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出的结果是A．BasicB．VisualC．CancelD．True
考题
在窗体中添加一个命令按钮，并编写如下程序： Private Sub Command1_CliCk() X=1∶Y=2∶Z=3 X=Y∶Y=Z∶Z=X Print Z End Sub 程序执行后，输出的结果是______。A．3B．0C．2D．1
考题
阅读程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub运行以上程序，单击命令按钮，输出结果为______ 。A．2 4 6 8B．5 6 7 8C．10 12 14 16D．出错
考题
下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j\3 Next Print a End SubA．20B．10C．3D．9
考题
下面程序： Private Sub Command1_Click（） m$="ABC" n$="abc" k$=Lcase$（m$） j$=Ucase$（n$） Print Asc（k$） End Sub 运行后输出结果为（）A、96B、97C、65D、64
考题
单选题下面程序： Private Sub Command1_Click（） m$="ABC" n$="abc" k$=Lcase$（m$） j$=Ucase$（n$） Print Asc（k$） End Sub 运行后输出结果为（）A
96B
97C
65D
64
热门标签
最新试卷