网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
若有如下程序，在文本框中输入“VisualBasic”，程序运行后Label1显示的是__________。 Dim s$,ch$,k% s="" For k=1 TO Len（Text1.Text) ch = Mid（Text1.Text,k,1) s = ch+s Next k Label1.Caption = s
A．BasicVisual
B．VISUALBASIC
C．cisaBlausiV
D．visualbasic
参考答案和解析
cisaBlausiV
更多 “若有如下程序，在文本框中输入“VisualBasic”，程序运行后Label1显示的是__________。 Dim s$,ch$,k% s="" For k=1 TO Len（Text1.Text) ch = Mid（Text1.Text,k,1) s = ch+s Next k Label1.Caption = sA．BasicVisualB．VISUALBASICC．cisaBlausiVD．visualbasic” 相关考题
考题
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是。Private Sub Command1_Click()Dim aa = Array(1,2,3,4,5)For K = 1 To 4 S = S + a(K)Next K Print SEnd SubA. 10 B. 14 C. 15 D. 120
考题
（ 30 ）下面程序的输出结果是Private Sub Command1_Click()ch$= ” ABCDEF ”proc chPrint chEnd SubPrivate Sub proc(ch As String)S= ””For k=Len(ch) To 1 Step-1s=sMid(ch,k,1)Next kch=sEnd SubA ） ABCDEFB ） FEDCBAC ） AD ） F
考题
（6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程：Private Sub Command1_Click( )S$=InputBox("请输入一个字符串")Text1.Text=S$End SubPrivate Sub Text1_Change( )Label1.Caption=UCase(Mid(Text1.Text, 7))End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是 【6】 。
考题
（ 35 ）下面程序运行时，若输入 “ Visual Basic Programming ” ，则在窗体上输出的是Private Sub Comand1_Click （）Dim count （ 25 ） As Integer, ch As Stringch=U c ase （ InputBox （ " 请输入字母字符串 " ） ）For k=1 To Len （ ch ）n=Asc （ Mid （ ch,k,1 ） ） -Asc （ " A " ）If n=0 ThenCount （ n ） =Count （ n ） + 1End IfNext km=count （ 0 ）For k=1 To 25If mcount （ k ） Thenm=count （ k ）End IfNext kPrint mEnd SubA ） 0B ） 1C ） 2D ） 3
考题
（19）窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 。 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End SubA.10 B.14 C.15 D.120
考题
下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。Private Sub Form_Click()Dim n as integer,s as integer,I as integer,k as integers=0k=0n=inputbox(″请输入n的值)For i=1 to 100k=k+1s=s+I【 】Next iPrint sEnd Sub
考题
下面程序运行时，若输入“Visual Basic Programming”。则在窗体上输出的是Prirate Sub Command1_Click()Dim count(25)As Integer，ch As Stringch=UCase(InputBox(”请输入字母字符串”))For k=1 To Len(ch)n=Asc(Mid(ch，k，1))-Asc(”A”)If n=0 Thencount(n)=count(n)+1End IfNext km=count(0)For k=1 T0 25IfIncount(k)ThenIll=count(k)End IfNext kPrint mEnd subA．0B．1C．2D．3
考题
以下程序运行后的输出结果是【】。includemain(){int k=1,s=0; do{ if((k%2)!=0)continue;
以下程序运行后的输出结果是【 】。include＜stdio.h＞main(){ int k=1,s=0;do{if((k%2)!=0) continue;s+=k; k++;}while(k＞10);printf("s+%d\n",s);}
考题
在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： Private Sub Command1_Click() k=0 Do While k ＜ 70 k=k+2 k=k*k+k a=a+k Loop Text1．Text=a End Sub 程序运行后，文本框中显示的是A．20B．32C．44D．78
考题
下列程序是将两个文本框(text1和text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。 Private Sub Command1_Click() Dim sl As String，s2 As String S1=Text1.Text S2=TextText For i=Len(s1)To 1 Step-1 s3=s3+Mid(s1，i，1)+Mid(s2，i，1) Next i Pic1.Print s3 End Sub 程序运行后，在Text1文本框中输入“ABCDE”，在Text2文本框中输入“12345”，单击命令按钮，则在Pic1图片框中显示的内容是A．E5D4C3B2A1B．ABCDE12345C．12345ABCDED．A1B2C3D4E5
考题
窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后，单击命令按钮，输出结果是A．10B．14C．15D．120
考题
设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。A．BasicB．cisaBC．BASICD．CISAB
考题
在窗体上添加—个文本框，名为Text1，然后编写如下的Load事件过程，则程序的运行结果是 Private Sub Form_Load( ) Text1.Text=”” Text1.Setfocus t=1 For k=10 To 6 Step-2 t=t*k Next k Text1.Text=t End SubA．在文本框中显示120B．文本框仍为空C．在文本框中显示480D．出错
考题
下列程序是用来计算1+2+3……+10的程序段，请补充该程序。Dim i, s, k As Integers =0: k = 0For【 】To 1k=k+1s=s+ kNext iPrint s
考题
为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程： Private Sub Command1 Click（ ） Dim a％，s％，k％ s=1 a=2 For k=2 To 10 a=a*2 s2 s+a Next k Text1．Text=s End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是（ ）。A.把s=1改为s=0B.把For k=2 T0 10改为For k=1 T0 10C.交换语句s=s+a和a=a*2的顺序D.同时进行B、C两种修改
考题
执行下面的程序，消息框里显示的结果是 【 】 。Private Sub Form_Click()Dim Str As String， K As IntegerStr="ab"For k=Len(Str) TO 1 Step-1Str=Str Chr(Asc(Mid(Str，k，1))+k)Next kMsgBox StrEnd Sub
考题
有以下程序段s=1.0;for(k =1;k=n；k++) s=s+1.0／(k*(k=1))；printf("%f\n",s);请填空，使以下程序段的功能与上面的程序段完全相同。s=1.0; k=1；while( 【 9 】)．{ s=s+1.0/(k*(k+1))； k=k+1;}printf( "%f\n",s)；
考题
设窗体上有text1文本框和Command1命令按钮，并有以下程序：Private Sub Command1_Click()Temp$=””For k=1 to len(text1)Ch$=mid(text1,k,1)If not found(temp,ch)thenTemp=temp【13】End IfNext kText1=【14】End SubPrivate function found(str as string,ch as string)as BooleanFor k=1 to len(str)If ch=mid(str,k,1)thenFound=【15】Exit functionNext kFound=falseEnd function运行时，在文本框中输入 若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母，例如，若文本框中原有字符串为“abcddbbc”则单击命令按钮后文本框中字符串为“abcd”,其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回true，否则返回false。请填空
考题
下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=sMid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F
考题
在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Textl的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是? A． Private Sub Check1_click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text Check1(k).Caption " "?'双引号中是空格 End If Next k End Sub B． Private Sub Check1_Click(Index As Integer) For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text Check1(k).Caption " " '双引号中是空格 End If Next k End Sub C． Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(Index).Value = 1 Then Text1.Text = Text1.Text Check1(Index).Caption " " '双引号中是空格 End If Next k End Sub D． Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text Check1(k).Caption " " '双引号中是空格 Exit For End If Next k End Sub?
考题
在窗体上添加一个文本框，名为Textl，然后编写如下的Load事件过程，则程序的运行结果是 Private Sub Form_Load() Text1.Text=" " Text1.Setfocus t=1 For k=10 To 6 Step -2 t=t(k Next k Text1.Text =t End SubA．在文本框中显示120B．文本框仍为空C．在文本框中显示480D．出错
考题
执行下面的程序，消息框里显示的结果是( )。Private Sub Form_Click()Dim Str As String,S As String,k As IntegerS=StrFor k=Len(Str) To 1 Step -1S=S (Mid(Str,k,1)Next kEnd Sub
考题
在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是______ 。 private sub form_ load text1.text=“” text1.setfocus for k=1 to 5 t=t*k next k text1.text=t end subA． 在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错
考题
在窗体上添加一个命令按纽，名为command1，其事件过程如下，程序运行后，其输出的结果为______ 。 Private sub_command1_ click () Dim a a=array(1，2，3，4，5) For k=1 to 4 S=s+ a(k) Next k Print s End subA．10B．14C．15D．120
考题
下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是（ ）。Private Sub Command1Click（ ） Dim cout(25)As Integer，ch As String ch=Ucase(Int,utBox("请输入字母字符串")) For k=1 To i en(ch)． n=ASC(Mid(ch，k，1))-Asc("A") If n=0 Then count(n)=count(n)+1 End If Next k m=count(0) For k=1 To 25 If mcount(k)Then m=count(k) End If Next k Print m End SubA.0B.1C.2D.3
考题
下面程序运行后的结果是( )。 Private Sub Form_Click() Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End SubA．6B．72C．144D．432
考题
在窗体上添加一个文本框Text1，然后编写如下的Load事件过程，则程序运行结果为( )。 Private sub Form_Load() Text1.Text="" Text1.SetFocus For k=1 To 5 t=t*k Next k Text1.Text=t End SubA．在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错
考题
有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Click() Dim x x=Array(23，-5，17，38，-31，46，11，8，5，-4) s1=0 s2=0 For k=1 To 10 If(x(k)＞0)Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA．148B．40C．-40D．3.7
热门标签
最新试卷
