创建自己的小题库
搜索
【简答题】
请根据以下各小题的要求设计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。
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈
收藏
举报参考答案：
举一反三
【单选题】有如下事件过程：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
【单选题】标志着清政府被迫放弃闭关政策，开始面向世界，基本上完成了从传统的理藩向近代外交转化的事件是1861年( )。
A.
辛酉政变
B.
总理各国事务衙门的设立
C.
洋务运动的兴起
D.
外务部的成立
【单选题】下列 windows 文件名的叙述错误的是: ( )
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
【单选题】标志着清政府被迫放弃闭关政策，开始面向世界，基本上完成了从传统的理藩向近代外交转化的事件是1861年( )。
A.
辛酉政变
B.
总理各国事务衙门的设立
C.
洋务运动的兴起
D.
外务部的成立
【单选题】下列 windows 文件名的叙述错误的是: ( )
A.
文件名允许使用汉字
B.
文件名中允许使用多个圆点分隔符
C.
文件名中允许使用空格
D.
文件名中字符不受限制
参考解析：
AI解析
重新生成
题目纠错 0
发布
