• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
单项选择题

以下程序的功能是随机产生10个两位的整数： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer，i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1：Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是

A．a(i)=Int(Rnd*100)
B．a(i)=Int(Rnd*90)+10
C．a(i)=Int(Rnd*100)+10
D．a(i)=Int(Rnd*101)
题目列表

你可能感兴趣的试题

单项选择题

执行以下程序段 aS=”Visual Basic Programming”：b$=”C++”c$：UCase(LeR$(a$，7))&b$&RightS(aS，12) 变量c$的值为

A．Visual BASIC Programming
B．VISUAL C++Programming
C．Visual C++Programming
D．VISUAL BASIC Programming
单项选择题

可以产生30~50(含30和50)之间的随机整数的表达式是

A．Int(Rnd*21+30)
B．Int(Rnd*20+30)
C．Int(Rnd*50．Rnd*30)
D．Int(Rnd*30+50)
单项选择题

能够产生1到50之间(含1和50)随机整数的表达式是

A．Int(Rnd*51)
B．Int(Rnd(50)+1)
C．Int(Rnd*50)
D．Int(Rnd*50+1)
单项选择题

表达式Sgn(0．25)的值是

A．1
B．0
C．1
D．0．5
单项选择题

要计算x的平方根并放入变量y，正确的语句是

A．y=Exp(x)
B．y=Sgn(x)
C．y=Int(x)
D．y=Sqr(x)
单项选择题

Print Right(”VB Programming”，2)语句的输出结果是

A．VB
B．Programming
C．ng
D．2
单项选择题

以下表达式与Int(3．5)的值相同的是

A．CInt(3．5)
B．Val(3．5)
C．Fix(3．5)
D．Abs(3．5)
单项选择题

以下能对正实数d的第3位小数四舍五入的表达式是

A．0．01*Int(d+0．005)
B．0．01*Int(100*(d+0．005))
C．0．01*Int(100*(d+0．05))
D．0．01*Int(d+0．05)
单项选择题

语句：Print Asc(Chr$(Mid$(”98765432”，4，2)))的输出是

A．65
B．A
C．8765
D．W
单项选择题

语句：Print Int(Rnd*5+20)的输出不可能是

A．20
B．22
C．24
D．25
单项选择题

产生100以内(不含100)2位随机整数的Visual Basic表达式是

A．Int(Rnd(1)*91)+10
B．Int(Rnd(1)*90)+10
C．Int(Rnd(1)*91)+11
D．Int(Rnd(1)*90)+11
单项选择题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Text1．Text=””：Text2．Text=""：Text1．SetFocus End Sub Private Sub Text1_Change() Text2．Text=Mid(Text1．Text，6) End Sub 程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是

A．ChinaBeijing
B．China
C．Beijing
D．ChinaB
单项选择题

设有如下通用过程： Public Function Fun(xStr As String)As String Dim tSt]r As String．strL As Integer tStr="" strL=Len(xStr)i=1 Do While i＜=strL／2 tStr=tStr&Mid(xStr,i，1)&Mid(xStr,strL-i+1，1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Commandl_Click() Dim S1 As String S1=”abcdef”：Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是

A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC
单项选择题

假定有以下函数过程： Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) sl=LCase(Mid(S，i，1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String．Str2 As String Str1=InputBox(”请输入一个字符串”)：Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为

A．ABCDEFG
B．abcdefg
C．GFEDCBA
D．gfedcba
单项选择题

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() c=1234 c1=Trim(Str(c)) For i=l To 4 Print_______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示内容：112 123 1234则在横线处应填入的内容为

A．Right(c1,i)
B．Left(c1，i)
C．Mid(c1，i，1)
D．Mid(c1，i，i)
单项选择题

设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String，strL As Integer tStr=””：strL=Len(xStr) i=strL／2 Do While i＜=strL tStr=tStr&Mid(xStr,i+1，1) i=i+1 Loop Fun=tStr&tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1=”ABCDEF”：Text1.Text=LCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是

A．ABCDEF
B．abcdef
C．defdef
D．defabc
单项选择题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x Private Sub Command l Click() a As Integer：b As Integer Dim Y As x End Type y．a=InputBox(””) If y．a＼2=y．a／2 Then y．b=y．a*y．a Else y．b=Fix(y．a／2) End If Text1．Text=y．b End Sub 对以上程序，下列叙述中错误的是

A．x是用户定义的类型
B．InputBox函数弹出的对话框中没有提示信息
C．若输入的是偶数，y．b的值为该偶数的平方
D．Fix(y．a／2)把y．a／2的小数部分四舍五入，转换为整数返回
单项选择题

窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Dim c As String c=UCase(Chr(KeyCode))：Text2．Text=Chr(Asc(c)+2) End Sub 当向文本框Text1中输入小写字母a时，文本框Text2中显示的是

A．A
B．a
C．C
D．c
单项选择题

窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2．Text=UCase(Mid(Text1．Text，5，4)) End Sub 在Text2中显示的是

A．form
B．list
C．FORM
D．LIST
单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Commandl_Click()m=一3 6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print nEnd Sub 运行程序，并单击命令按钮，窗体上显示的内容为

A．-4
B．-3
C．3
D．3.6
单项选择题

设有如下程序： Private Sub Form_Click() aRm=InputBox(”请输入一个实数”)：P=InStr(num，“.”) Ifp>0 Then Print Mid(num，P+1) Else Prim”END” End If End Sub 运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则

A．用字符方式输出该实数
B．输出该实数的整数部分
C．输出该实数的小数部分
D．去掉实数中小数点，保留所有数码输出
单项选择题

在窗体上画一个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load() Text1．Text=””：Text1．SetFocusEnd SubPrivate Sub Form_Click() Dim a As String，S As String a=Text1．Text：S="" For k=1 To Len(a) S=UCase(Mid(a，k，1))+S Next k Text1．Text=SEnd Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容

A．与原字符串相同
B．与原字符串中字符顺序相同，但所有字母均转换为大写
C．为原字符串的逆序字符串，且所有字母转换为大写
D．为原字符串的逆序字符串
单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() aS=InputBox(”请输入一个二进制数”)：n=Len(a$) For i=1 To n Dec=Dec*2+______(a$，i，1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是

A．Left
B．Right
C．Val
D．Mid
单项选择题

以下程序的功能是随机产生10个两位的整数： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer，i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1：Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是

A．a(i)=Int(Rnd*100)
B．a(i)=Int(Rnd*90)+10
C．a(i)=Int(Rnd*100)+10
D．a(i)=Int(Rnd*101)
单项选择题

窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a(10)As integer，X As Integer For i=1 To 10 a(i)=Int(Rnd*100) Next X=InputBox(”输入100以内的整数：”)：P=0 For i=1 To 10 Ifa(i)=X Then P=i：Exit For End If Next Ifp=0 Then Print”没有找到与输入数据相同的数!” Else Print Str(x)+”在数组中的位置是”+Str(p) End If End Sub 对于上述事件过程，以下叙述中正确的是

A．本程序实际产生的随机数是0．99
B．若产生的随机数中有相同数，则P是其中最后一个数的位置
C．程序有错，P的初值设置不对
D．程序有错，InputBox函数产生的数据与x的类型不匹配
单项选择题

表达式5 Mod 3+3＼5*2的值是

A．0
B．2
C．6
单项选择题

设有如下程序段： x=2 For i=1 T0 Step 2 x=x+i Next i 运行以上程序后，x的值是

A．26
B．27
C．38
D．57
单项选择题

设a=“MicrosoflVisualbasic”，则以下使变量b的值为“Visualbasic”的语句是

A．b=Left(a，10)
B．b=Mid(a，10)
C．b=Right(a，10)
D．b=Mid(a，11，10)
单项选择题

设a=”a”，b=”b”，c=”c”，d=”d”，执行语句 x=IIf((ad)，”A”，“B”) 后，X的值为

A．”a”
B．”b”
C．”A”
D．”B”
单项选择题

设有如下语句： Dim a,b As Integer c=“VisualBasic” d=#7／20／2005# 以下关于这段代码的叙述中，错误的是

A．a被定义为Integer类型变量
B．b被定义为Integer类型变量
C．C中的数据是字符串
D．d中的数据是日期类型
单项选择题

设：a=2，b=8，c=6，d=3，表达式a>b And Not(c>d)Or d>c的值是

A．1
B．0
C．True
D．FALSE
单项选择题

数学式y 2 ＞x＞=10在VB中应表示为

A．y*y＞x And 10＜=x
B．Sqr(y)＞x And x＞=10
C．Sqr(y)＞x Or x＜=10
D．y＞y>x Or x＞=10
单项选择题

设a=10，b=4，c=5，d=7，表达式a>b And Not c

A．True
B．False
C．1
D．0
单项选择题

以下叙述中错误的是

A．续行符与它前面的字符之间至少要有一个空格
B．Visual Basic中使用的续行符为下划线()
C．以撇号(’)开头的注释语句可以放在续行符的后面
D．Visual Basic可以自动对输入的内容进行语法检查
微信扫码免费搜题