网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
执行以下程序段，在窗体上显示的结果是___A__。PrivateSubForm_Click（）DimSAsString，iAsIntegerS="ab"Fori=Len（S）To1Step-1PrintChr（Asc（Mid（S，i，1））+i）NextIEndSub
- A、db
- B、cb
- C、cc
- D、fd
参考答案
更多 “执行以下程序段，在窗体上显示的结果是___A__。PrivateSubForm_Click（）DimSAsString，iAsIntegerS="ab"Fori=Len（S）To1Step-1PrintChr（Asc（Mid（S，i，1））+i）NextIEndSubA、dbB、cbC、ccD、fd” 相关考题
考题
下列程序段，运行后窗体上输出结果是 Private Sub Commnad1_Click() a=5∶b=4∶c=3∶d=2 x=3＞2*b Or a=c And b＜＞c Or c＞d Print X End SubA. 1 B. True C. False D. 2
考题
有以下程序：Private Sub Form_Activate()For j=1 to 3x=3For i=l to 2x=x+6NextNextPrint xEnd Sub程序运行后，窗体上显示的结果为______。
考题
（ 27 ）下面程序执行时，在窗体上显示的是Private Sub Command1_Click()Dim a(10)For k = 1 To 10a(k) = 11 – kNext kPrint a(a(3)\a(7) Mod a(5))End SubA ） 3B ） 5C ） 7D ）9
考题
（18）窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是。 Privte Sub Command1_Click() Picture1.Picture=LoadPicture("c:\picture.jpg") Picture1.Cls Picture1.Print"Picture" End SubA.窗体无显示，图片框显示图片和文字Picture B.窗体上出现Picture文本，图片框无显示C.窗体上出现Picture文本，图片框显示图片picture.jpg D.窗体无显示，图片框只显示Picture文字
考题
阅读以下程序：Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k ＜= nm=m+2k = k + 1LoopPrint mEnd Sub单击窗体程序的执行结果是【 】。
考题
在窗体上画一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As integer b = 1 For a = 1 To 100 If b ＞＝ 10 Then Exit For If b Mod 3 = 1 Then b = b + 3 End If Next a Print a End Sub 在命令按钮上单击后，窗体上显示的结果是 ______。A．101B．6C．5D．4
考题
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b＞= 10 then exit for if b Mod 3 = 1 then b=b+3 End ifNext aPrint aEnd Sub在命令按钮上单击后，窗体上显示的结果是______。A．101B．6C．5D．4
考题
下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I＞n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。A．3B．5C．6D．8
考题
窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是( )。 Private Sub Command1_Click() Picture1.Picture=LoadPicture("C:\picture.jpg") Picture1.Cls Picture1.Print"picture" End SubA．窗体无显示，图片框显示图片和文字pictureB．窗体上出现picture文本，图片框无显示C．窗体上出现picture文本，图片框显示图片picture.jpgD．窗体无显示，图片框只显示picture文字
考题
以下程序的执行结果是 ( )。include using namespace std;class sample{private: int
以下程序的执行结果是 ( )。 #include ＜iostream＞ using namespace std; class sample { private: int x; public: sample (int A) { x=a; } friend double square(sample s); }; double square(sample s) {A．20B．30C．900D．400
考题
窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是( )。 Private Sub Commandl_Click() Picturel.Picture=LoadPicture("c：\picture.jpg") Picmrel.Cls Picturel.Print "picture" End SubA．窗体无显示，图片框显示图片和文字pictureB．窗体上出现picture文本，图片框无显示C．窗体上出现picture文本，图片框显示图片picture.jpgD．窗体无显示，图片框只显示picture文字
考题
下列程序段，运行后窗体上输出结果是( )。Private Sub Command1_Click()a=5:b=4:c=3:d=2x=3＞2*b Or a=c And b＜＞c Or c＞dPrintxEnd SubA．1B．TrueC．FalseD．2
考题
运行下列程序： Private Sub Form. Click() Sum=0 For i=1 To 100 If Mid(CStr(i)，1， 1)="1" Then Sum=Sum+1 End If Next i Print Sum End Sub 单击窗体后，在窗体上显示的结果是A．12B．13C．14D．15
考题
以下程序的执行结果是______。 include class CSample{ private: int n; static int
以下程序的执行结果是______。include＜iostream.h＞class CSample{private：int n；static int k：public：CSample (int i) {n=i；k++；}；voiddisp()；} ；void CSample：：disp(){cout ＜＜"n="＜＜n＜＜"，k="＜＜k＜＜endl}int CSample:
考题
下面程序执行时，在窗体上显示的是。Private Sub Commandl_ClickDim a(10)For k=1 TO 10a(k)=11-kNext kPrinta(a(3)＼a(7)Mod a(5))End SubA．3B．5C．7D．9
考题
以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。 Private SubForm_Click() Dim a As Integer，b As Integer a=10 ：b=20 Call ff(a，B)Print a，b End Sub Private Sub ff(x As Integer，y As Integer) x=x+y y=x+y End SubA．30 50B．30 30C．20 20D．10 20
考题
执行以下Commandl的Click事件过程，在窗体上显示( )。 Option Base 0 Private Sub Commandl_Click() Dima a=Array("a"，"b"，"c"，"d"，"e"，"f"，"g") Printa(1);a(3);a(5) End SubA．abcB．bdfC．aceD．出错
考题
在窗体上画了两个按钮控件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 Form_Click( )Dim x As Integer, y As String, z As Stringy = 12345For x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.1B.11111C.55555D.12345
考题
运行下列程序：Private Sub Form_Click( )a$ = 2b$ = 1Call abcd(a, b, c$, d$)Print c; dEnd SubPrivate Sub abcd(x$, y$, z$, s$)z = x + ys = x - yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.3 1B.1 3C.211D.显示出错信息
考题
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x
运行下列程序：Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + xIf x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.10 20B.30 60C.10 30D.20 60
考题
执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STRCHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUBA．ABCEB．ABCDC．ABDBD．ABFB
考题
单选题执行以下程序段，在窗体上显示的结果是___A__。PrivateSubForm_Click（）DimSAsString，iAsIntegerS="ab"Fori=Len（S）To1Step-1PrintChr（Asc（Mid（S，i，1））+i）NextIEndSubA
dbB
cbC
ccD
fd
热门标签
最新试卷