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

下列程序的输出图形是 。 For k=0 To 360 cr=Int(160*Rnd) ang=-3.1415926/180*k Circle(2000, 2000), 500, cr, 0, ang Next

A.一段彩色圆弧
B.一个彩色扇形
C.一个彩色空心圆
D.一个辐射状彩色圆形
题目列表

你可能感兴趣的试题

单项选择题

以下能正确定义数据类型TelBook的代码是 ______。

A. Type TelBook Name As String*10 TelNum As Integer End Type
B. Type TelBook Name As String*10 TelNun As Integer End TelBook
C. Type TelBook Name String*10 TelNum Integer End Type TelBook
D. TypedefTelBook Name String*10 TelNum Integer End Type
单项选择题

以下对文件分类的划分不正确的是 。

A. 文件分为程序文件和数据文件
B. 文件分为有结构文件和无结构文件
C. 文件分为ASCII文件和二进制文件
D. 文件分为顺序文件和随机文件
单项选择题

设在窗体上有一个文本框，然后编写如下的事件过程： PriVate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Const Alt=4 Const Key_F2=＆H71 altdown%=(Shift And Alt)＞0 f2down%=(KevCode=Kev_F2) If altdown% And f2down% Then Text1.Text="abl" End If End Sub 程序运行后，清除文本框中原有内容，如果按＜Shift+F2＞组合键，则在文本框中显示的是 。

A.Alt+F2
B.abl
C.随机出几个数
D.不发生变化
单项选择题

在Visual Basic中，下拉式组合框和下拉式列表框的区别是：______允许在编辑区输入文本；______只能从下拉列表框中选择项目，不允许输人文本。

A. 下拉式组合框，下拉式列表框
B. 下拉式列表框；下拉式组合框
C. 下拉式组合框、下拉式列表框；下拉式列表框
D. 下拉式组合框、下拉式列表框；下拉式组合框
单项选择题

下面程序的输出结果是 Private Sub Command1_Click() ch$="ABCDEF" proc ch Print ch End Sub Private Sub proc(ch As String) S=" " For k=Len(ch) To 1 Step-1 s=s＆Mid(ch,k,1) Next k ch=s End Sub

A.ABCDEF
B.FEDCBA
C.A
D.F
单项选择题

要建立一个随机文件记录学生的信息，如下定义了学生的记录类型，由学号、姓名、5门课程成绩(百分制)组成，下列的定义正确的是 。

A. Type stu no As Integer name As String score(1 To 5)AS Single End Type
B. Type stu no As Integer name As String*10 score()As Single End Type
C. Type stu no As Integer name As String*10 score(1 To 5)As single End Type
D. Type stu no As Integer name As String score()As Single End Type
单项选择题

通常情况下，垂直滚动条的值是

A. 由下往上递增
B. 由上往下递增
C. 由左到右递增
D. 由右到左递增
单项选择题

下列程序段的执行结果为 a=6 For k=1 To 0 a=a+k Next Print k;a

A. -1 6
B. -1 16
C. 1 6
D. 11 21
单项选择题

在窗体上画一个文本框，然后编写如下代码： Option Base 1 Private Sub Form_Click 　　Dim arr　　Dim Start As Integer， Finish As Integer　　Dim Sum As Integer　　arr = Array(12， 4， 8， 16)　　Start = LBound(arr)　　Finish = UBound(arr)　　Sum = 0　　For i = Start To Finish　　　　Sum = Sum + arr(i)　　Next i　　c = Sum / Finish　　Text1.Text = c End Sub 程序运行后，单击窗体，则在文本框中显示的内容是________。

A. 40
B. 10
C. 12
D. 16
单项选择题

以下有关数组定义的语句序列中，错误的是

A. Static arrl(3) arr1(1)=100 arrl(2)="Hello" arrl(3)=123.45
B. Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入：”) ReDim arr2(size) ┄ End Sub
C. Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ┄ End Sub
D. Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ┄ End Sub
单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dimarrayl(10，10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i，j)=i+j Nextj Nexti Text1.Text=axvayl(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 。

A.15
B.14
C.13
D.12
单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写 如下事件过程： Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j＞Sqr(i) Then Print i Next i End Sub 该事件过程的功能是 ______。

A. 输出n以内的奇数
B. 输出n以内的偶数
C. 输出n以内的素数
D. 输出n以内能被j整除的数
单项选择题

For-Next循环的初值、终值与步长 。

A.只能是具体的数值
B.只能是表达式
C.可以是数值表达式
D.可以是任何类型的表达式
单项选择题

已知一棵二叉树前序遍历和中序遍历分别为ABDEGCFH和DBGEACHF，则该二叉树的后序遍历为

A. GEDHFBCA
B. DGEBHFCA
C. ABCDEFGH
D. ACBFEDHG
单项选择题

若在Shape控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的区域由BackStyle属性填充，则应 ______。

A. 将Shape控件的FillStyle属性设置为2-7间的某个值，Backstyle属性设置为1
B. 将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为1
C. 将Shape控件的FillStyle属性设置为2-7间的某个值，BackStyle属性设置为0
D. 将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为0
单项选择题

标签控件能够显示文本信息，文本内容只能用 属性来设置。

A.Alignment
B.Caption
C.Visible
D.Borderstyle
单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click () Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 3 Print fun2 (c, b, A) End Sub Private Function funl (x As Integer, y As Integer, z As Integer) fun1 = 2 * x + y + 3 * z End Function Private Function fun2(x As Integer, y As Integer, z As Integer) fun2 = fun1(z, x, y)+ x End Function程序运行后，单击命令按钮，则窗体上显示的内容是

A. 7
B. 14
C. 17
D. 30
单项选择题

一个工程中含有窗体Form1、Form2和标准模块Modell，如果在Form1中有语句Public X As Integer，在Modell中有语句Public Y As Integer。则以下叙述中正确的是 ______。

A. 变量X、Y的作用域相同
B. Y的作用域是Modell
C. 在Form1中可以直接使用X
D. 在Form2中可以直接使用X和Y
单项选择题

图像框和图片框在使用时的不同之处是 。

A.图片框比图像框占内存少
B.图像框内还可包括其他控件
C.图片框有Stretch属性而图像框没有
D.图像框有Stretch属性而图片框没有
单项选择题

以下语句的输出结果是______。 Print Format$("123.58","#,###.00")

A. 123.58
B. 123.00
C. ,123.58
D. 0,123.58
单项选择题

线性表若采用链式存储结构时，要求内存中可用存储单元的地址

A. 必须是连续的
B. 部分地址必须是连续的
C. 一定是不连续的
D. 连续不连续都可以
单项选择题

在结构化方法中，用数据流程图(DFD) 作为描述工具的软件开发阶段是 。

A. 逻辑设计
B. 需求分析
C. 详细设计
D. 物理设计
单项选择题

在窗体上画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() For i=3 To 1 Step-0.4 Ptint Int(i)； Next i End Sub 运行程序，单击命令按钮，窗体上显示的内容为______。

A. 3 2 2 2 1 1
B. 3 2 2 1 1 1
C. 3 2 2 1 1
D. 3 2 1 1 1
单项选择题

表达式Abs(-5)+Len("ABCDE")的值是______。

A. 5ABCDE
B. -5ABCDE
C. 10
D. 0
单项选择题

设有如下变量声明： Dim TestDate As Date 为变量TestDate正确赋值的表达方式是

A. TestDate=#1/1/2002#
B. TestDate=#"1/1/2002"#
C. TestDate=date("1/1/2002")
D. TestDate=Format("m/d/yy","1/1/2002")
单项选择题

下列程序的输出图形是 。 For k=0 To 360 cr=Int(160*Rnd) ang=-3.1415926/180*k Circle(2000, 2000), 500, cr, 0, ang Next

A.一段彩色圆弧
B.一个彩色扇形
C.一个彩色空心圆
D.一个辐射状彩色圆形
单项选择题

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer 　　x=2 　　Text1.Text=Fun2(Funl(x),y) 　　Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)As Integer 　　x=x+y y=x+y 　　Fun1=x+y End Function Private Function Fun2(x As Integer,y As Integer)As Integer 　　Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是

A. 2 4 2 4
B. 2 4 4 8
C. 10 10 58 58
D. 4 4 8 8
单项选择题

要使文本框Text1不可用且文字居中，可以用以下语句 ______。

A. Text1. Enabled = False Text1.Alignmem = 2
B. Text1. Enabled = False Text1. Alignment = 0
C. Text1. Enabled = True Text1. Alignment = 0
D. Text1. Enabled = True Text1. Alignment = 1
单项选择题

在窗体上面一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii as Integer) … End Sub 若焦点位于文本框中，则能够触发KeyPress事件的操作是______。

A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文本框
D. 按下键盘上的某个键
单项选择题

在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_C1ick() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Textl. Text=Str(n) End sub 程序运行后，单击命令按钮，在文本框中显示的值是

A. 2
B. 3
C. 4
D. 5
单项选择题

在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为 。 Option Base 1 Private Sub fun(a()As Integer,n As Integer) ReDim Preserve a(6) a(6)=a(1)*a(3)*a(5) n=UBound(a) End Sub Private Sub Command1_Click() Dim arr1()As Integer,k As Integer ReDimarrl(5) For i=1 To 5 arrl(i)=i Next i k=6 Call fun(arrl，k) Print arrl(1)；arrl(k) End Sub

A. 1 3
B. 0 0
C. 1 15
D. 0 15
单项选择题

当用鼠标左键单击窗体(Form1)时所发生的事件是

A. Load1_Click
B. Load_Click
C. Form1_Click
D. Form_Click
单项选择题

要使文本框获得输入焦点，则应采用文本框控件的 方法。

A.GotFocus
B.Lost．Focus
C.KeyPress
D.SetFocus
单项选择题

执行如下两条语句后，窗体上显示的是______。 a=9.8596 Print Format(a. "$ 00, 00, 00")

A. 0,009.86
B. $9.86
C. 9.86
D. $0,009.86
微信扫码免费搜题