奥鹏易百

 找回密码
 立即注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

帮助中心知识拓展客服QQ 515224986
查看: 497|回复: 0

[东北大学] 《可视化程序设计Ⅰ》2.在窗体上画两个名称分别为Text1、T...

[复制链接]

2万

主题

27

回帖

6万

积分

管理员

积分
60146
发表于 2017-4-18 21:38:46 | 显示全部楼层 |阅读模式
扫码加微信
东大17春学期《可视化程序设计Ⅰ》在线作业2
一、单选题:
1.以下叙述中正确的是          (满分:5)
    A. 窗体的Name属性指定窗体的名称,用来标识一个窗体
    B. 窗体的Name属性的值是显示在窗体标题栏中的文本
    C. 可以在运行期间改变对象的Name属性的值
    D. 对象的Name属性值可以为空
2.在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1Click(    )Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是          (满分:5)
    A. 15和1
    B. 27和3
    C. 195和3
    D. 600和4
3.对窗体编写如下代码:Option Base 1Private Sub FormKeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)>ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行后,按回车键,输出结果为          (满分:5)
    A. 48 4
    B. 237 1
    C. 498 5
    D. 498 4
4.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1Click(    )Move 500,500End Sub          (满分:5)
    A. 命令按钮移动到距窗体左边界、上边界各500的位置
    B. 命令按钮移动到距窗体左边界、上边界各500的位置
    C. 命令按钮向左、上方向各移动500
    D. 窗体向左、上方向各移动500
5.(6)在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是          (满分:5)
    A. TabStop
    B. Enabled
    C. Visible
    D. TabIndex
6.在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1Click(    ) a = 12345Print Format$(a, &quot;000.00&quot;)End Sub程序运行后,单击命令按钮,窗体上显示的是          (满分:5)
    A. 123.45
    B. 12345.00
    C. 345.00
    D. 123.00
7.一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Pubilc X As Integer,在Model1中有语句Pubilc Y As Integer,则以下叙述中正确的是          (满分:5)
    A. 变量X、Y的作用域相同
    B. Y的作用域是Model1
    C. 在Form1中可以直接使用X
    D. 在Form2中可以直接使用X和Y
8.为了暂时关闭计时器,应把该计时器的某个属性设置为False ,这个属性是          (满分:5)
    A. Visible
    B. Timer
    C. Enabled
    D. Interval
9.实现子窗体frmNewDoc自动加载的方法是          (满分:5)
    A. frmNewDoc.show
    B. frmNewDoc.autoshowchildren=true
    C. frmNewDoc.visible=true
    D. frmNewDoc.Enable=true
10.在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程:Private Sub FormLoad(    )Ttext1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是          (满分:5)
    A. 在文本框Text1中输出55
    B. 在文本框Text1中输出0
    C. 出错
    D. 在文本框Text1中输出不定值
11.以下不能在“工程资源管理器”窗口中列出的文件类型是          (满分:5)
    A. .bas
    B. .res
    C. .frm
    D. .bmp
12.在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:Private Sub Command1Click(    )Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时,三次单击命令按钮Commandl后,窗体上显示的结果为          (满分:5)
    A. 15 16
    B. 15 6
    C. 15 15
    D. 5 6
13.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件,下面程序段正确的是(    )          (满分:5)
    A.
    B. "F=""c
14.以下能判断是否到达文件尾的函数是          (满分:5)
    \filel.txt""Open ""F"" For Input As # 2"
    C. "Open ""c
15.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1Click(    ) 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 iEnd Sub该事件过程的功能是          (满分:5)
    \filel.txt"" For Output As # 2"
    D. Open c
16.以下能够触发文本框Change事件的操作是          (满分:5)
    \filel.txt For Input As # 1
17.确定一个控件在窗体上的位置的属性是          (满分:5)
    A. BOF
    B. LOC
    C. LOF
    D. EOF
18.假定有如下的Sub过程:Sub S(x As Single,y As Single)t = xx =t/y y =t Mod yEnd Sub在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub CommandlClick(    )Dim a As SingleDim b As Singlea =5b =4S a,b Print a,bEnd Sub程序运行后,单击命令按钮,输出结果为          (满分:5)
    A. 输出n以内的奇数
    B. 输出n以内的偶数
    C. 输出n以内的素数
    D. 输出n以内能被j整除的数
19.为了使标签中的内容居中显示,应把Alignment属性设置为          (满分:5)
    A. 文本框失去焦点
    B. 文本框获得焦点
    C. 设置文本框的焦点
    D. 改变文本框的内容
20.(5)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1Click(    )  Move 500,500 End Sub 程序运行后,单击命令按钮,执行的操作为          (满分:5)
    A. Width和Height
    B. Width或Height
    C. Top和Left
    D. Top或Left

奥鹏易百网www.openhelp100.com专业提供网络教育各高校作业资源。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|www.openhelp100.com ( 冀ICP备19026749号-1 )

GMT+8, 2024-5-19 06:57

Powered by openhelp100 X3.5

Copyright © 2001-2024 5u.studio.

快速回复 返回顶部 返回列表