网友您好, 请在下方输入框内输入要搜索的题目:
题目内容
(请给出正确答案)
设a$=""VisualBasic"",则Print String(3,a$)是()。
- A、VVV
- B、Vis
- C、sic
- D、ll
参考答案
更多 “设a$=""VisualBasic"",则Print String(3,a$)是()。A、VVVB、VisC、sicD、ll” 相关考题
考题
设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是( )。A.Print A=x+yB.Print"A=";x+yC.Print "A="+Str(x+y)D.Print"A="x+y
考题
( 18 )设 x=4 , y=6 ,则下列不能在窗体上显示出 “ A=10 ” 的语句是( )。A ) Print A=x+yB ) Print"A=";x+yC ) Print"A="+Str(x+y)D ) Print"A="x+y
考题
在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt,文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体,打开Alph.txt文件,读取字符串并显示在文本框Text1中,然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2中,最后将重新排列的字符串存入AlpO.txt文件中(无双引号界定符)。请选择横线处合适的语句( )。Private Sub Form_Load()Dim StrIn As String,StrOut As StringsOpen"C:\Alph.txt"For Input As #1______CloseText1.Text=StrIn______Text2.Text=StrOutOpen"C:\AlpO.txt"For Output As#2______CloseEnd SubPrivate Function StrSort(s As String)As StringDim s Arr() As String *1,i As Integer,j As Integer,n As IntegerDim t As String *1n=Len(s)ReDim sArr(n)For i=1 To ns Arr(i)=Mid(s,i,1)Next iFor i=1 To n-1For j=i+1 To nIf sArr(i)>sArr(j) Thent=sArr(i):sArr(j):sArr(j):sArr(j)=tEnd IfNext j,iFor i=1 To nStrSort=StrSort s Arr(i)Next iEnd FunctionA.Input#1,StrIn StrIn Print#2,StrOutB.Input#1,StrIn StrSort(StrIn) Input#2,StrOutC.Input#2,StrIn StrSort(StrIn) Input#1,StrOutD.Print#1,StrIn StrSort(StrIn) Input#2,StrOut
考题
设x=4,y=6,则以下不能在窗体上显示出“a=10”的语句是______。A.Prim A=x+yB.Print "A=";x+yC.Print "A=" +str(x+y)D.Print "A="X+y
考题
(35)在C盘当前文件夹下有一个已经建立好的顺序文件Alph.txt,文件内容为只含有字母的一个字符去、串(有双引号界定符)。单击窗体,打开Alph.txt文件,读取字符串显示在文本框Text1中,最后将重新排列的字符串存入AipO.txt文件中(无双引号界定符)。请选择横线处合适的语句 Private Sub Fom_Load() Dim StrIn As String,StrOut As String Open"C/:Alph.txt"For Input As#1 ______ Close Text1.Text=StrIn ______ Text2.Text=StrOut Open"C/:AlpO.txt"For Output As#2 ______ Close End Sub Private Function StrSort(s As String)As String Dim sArr()As String*1,i As Integer,j As Integer,n As Integer Dim t As String*1 n=Lem(s) Redim sArr(n) For i=1 To n sArr(i)=Mid(s,i,1) Next i For i=1 To n-1 For j=i+1 To n If sArr(i)sArr(j)Then t=sArr(i):sArr(i)=sArr(j):sArr(j)=t End If Next j,i For i=1 To n StrSort=StrSortsArr(i) Next i End FunctionA.Input#1,StrIn StrIn Print#2,StrOut B.Input#1,StrIn StrOut(StrIn) Print#2,StrOutC.Input#2,StrIn StrOut(StrIn) Print#1,StrOutD.Input#1,StrIn StrOut(StrIn) Input#2,StrOut
考题
(19)如果A为整数且|A|=10,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是 A.If Int(A)=A And Sqr(A)=10 Then Print“OK”Else Print “Error” B.If Fix(a)=A And Abs(a)=10 Then Print“OK”Else Print “Error” C.If Int(A)=A And (A=10 ,A=-10) Then Print“OK”Else Print “Error” D.If Fix(A)=A And A=10, Abs A=-10 Then Print“OK”Else Print “Error
考题
(8)设当前日期为2007年12月27日,星期四,则执行下列语句后的输出结果是。 Print Day(Now) Print Month(Now) Print Year(Now) Print Weekday(Now)
考题
设当前日期为2008年4月28日,星期一,则执行下面语句后的输出结果为______。Print Day(Now)Print Month(Now)Print Year(Now)Print Weekday(Now)
考题
Str1=“VisualBasic“:StrResult=Ucase(Strl)则StrResult的值是()。
A、VisualBasicB、“visualbasic“C、“VISUALASIC“D、VISUALBASIC
考题
如果A为整数且,|A|>=10,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是( )。A.If Int(A)=A And Sqr(A)>=10 Then Print"OK"Else Print "Error"B.If Fix(A)=a And Abs(A)>=-10 Then Print"OK"Else Print "Error"C.If Int(A)=A And(A>=10,A<-10) Then Print"OK"Else Print "Error"D.If Fix(A)=A And A>=10,And A<=-10 Then Print"OK" Else Print "Error"
考题
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: PrivateSubCommandl_CnCk() aS="VisualBasic", Print String(3,a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是( )。A.VVVB.VisC.sicD.11
考题
下面哪个程序段能够正确裙带如果A<B,则A=1,否则A=-1?A.If A<B Then A=1 A=-1 Print AB.If A<B Then A=l:Print A A=-1:PrintAC.If A<B Then A=1:Print A Else A=-1: End IfD.If A<B Then A=1 A=-1 Print A Print A
考题
设str=’python’,想把字符串的第一个字母大写,其他字母还是小写,正确的选项是()。A、print(str[0].upper()+str[1:])B、print(str[1].upper()+str[-1:1])C、print(str[0].upper()+str[1:-1])D、print(str[1].upper()+str[2:])
考题
在窗体Form1的Click事件过程中有以下语句:Label1.Caption=”VisualBASIC”设标签的原Caption属性值为默认值,则该语句执行之后该标签控件Name属性和Caption属性的值分别为()A、“Label1”、“VisualBASIC”B、“Label1”、“Caption”C、“Label”、“VisualBASIC”D、“Label”、“Label1”
考题
在InstAllShielD-〉Express中,有专门针对VB开发的()。A、VisuAlBAsiC6.0HelpB、VisuAlBAsiC6.0BuilDerC、VisuAlBAsiC6.0WizArDD、VisuAlBAsiC6.0Express
考题
设a$=""Microsoft VisualBasic"" b$=Right(a$,5) c$=Mid(a$,1,9) MsgBox a$,34,b$,c$,5 则在弹出的信息框的标题栏中显示的信息是()。A、MicrosoftB、VisualC、MicrosoftBasicD、5
考题
单选题设a$=""Microsoft VisualBasic"" b$=Right(a$,5) c$=Mid(a$,1,9) MsgBox a$,34,b$,c$,5 则在弹出的信息框的标题栏中显示的信息是()。A
MicrosoftB
VisualC
MicrosoftBasicD
5
考题
单选题在窗体Form1的Click事件过程中有以下语句:Label1.Caption=”VisualBASIC”设标签的原Caption属性值为默认值,则该语句执行之后该标签控件Name属性和Caption属性的值分别为()A
“Label1”、“VisualBASIC”B
“Label1”、“Caption”C
“Label”、“VisualBASIC”D
“Label”、“Label1”
热门标签
最新试卷