logo - 刷刷题
下载APP
【简答题】

请根据以下各小题的要求设计Visual Basic应刚程序(包括界面和代码)。 (1)在名称为Forml、标题为“图片”的窗体上画一个名称为Imagel的图像框,其高为2500、宽为2000。请通过属性窗口设置适当属性,装入考生只录下的图片文件picl.jpg,并使图片适应图像框的大小(如图2.135所示)。 注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
(2)在名称为Forml的窗体上画一个名称为Label1、标题为“口令”的标签;画一个名称为Te的文本框;再画三个命令按钮,名称分别为Commandl、Command2、Command3,标题分别为“显示口令”、“隐藏口令”、“重新输入”。 程序运行时,在‘Text1中输入若干字符,单击“隐藏口令”按钮,则只显示同样数量的“*”,如图2.136(b)所示;单击“显示口令”按钮,则显示输入的字符,如图2.136(a)所示,单出“重新输入”按钮,则清除Te中的内容,并把光标定位到Te中。
要求:请画出所有控件,编写命令按钮的Click事件过程,程序中不得使用变量,在“显示口令”按钮、“隐藏口令”按钮的事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sit2.vbp,窗体文件名为sit2.fhn。

题目标签:文件名事件属性
举报
参考答案:
参考解析:
.
刷刷题刷刷变学霸
举一反三

【单选题】计算机中不允许两个文件名重名主要指的是

A.
不同磁盘的不同目录下
B.
不同磁盘里的同名目录下
C.
同一个磁盘的不同目录下
D.
同一个磁盘的同一目录下

【单选题】有如下事件过程:Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是,通过调用Converse过程,将数组Arr中的元素逆序存放并输出...

A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub

【单选题】获取文件名语句是:

A.
os.mkdir(“test”)
B.
os.path.basename()
C.
os.makedirs(r“c:\python\test”)
D.
os.getenv() 与os.pute

【单选题】下列 windows 文件名的叙述错误的是: ( )

A.
文件名允许使用汉字
B.
文件名中允许使用多个圆点分隔符
C.
文件名中允许使用空格
D.
文件名中字符不受限制