更多"设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1"的相关试题:
[单项选择]设工程文件包含两个窗体文件Form1. frm、Form2. frm及一个标准模块文件Module1. bas。两个窗体上分别只有一个名称为Command1的命令按钮。
Form1的代码如下:
Public x As Integer
Private Sub Form_Load( )
x=1
y=5
End Sub
Private Sub Command1_Click( )
Form2. Show
End Sub
Private Sub Command1_Cliek( )
Print Form1. x, y
End Sub
Module1的代码如下:
Public y As Integer
运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是( )。
A. 1 5
B. 0 5
C. 0 0 D) 程序有错
[单项选择]
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。
Form1的代码如下:
Public x As Integer
Private Sub Form_Load( )
x=1
y=5
End Sub
Private Sub Command1_Chck( )
Form2.Show
End Sub
Form2的代码如下:
Private Sub Command1_Click( )
Print Form1.x,y
End Sub
Module1的代码如下:
Public y As Integer
运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是()。
A. 1 5
B. 0 5
C. 0 0
D. 程序有错
[填空题]新建一个工程,内有两个窗体,名称分别为Form1、Form2,窗体Form1上有一个命令按钮Command1,单击该按钮,Form1窗体消失,显示Form2窗体,程序如下,请填空。
Private Sub Command1_Click( )
Form1.Hide
Form2.______
End Sub
[填空题]假定建立了一个工程,该工程包括两个窗体,其名称分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示Form2,请在空白处将程序补充完整。
Private Sub Command1_Click( )
______
form2.______
End Sub
[单项选择]设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为 Command1的命令按钮。窗体Form1的程序代码如下:
Private Sub Command1_Click( )
Dim a As Integer
a=10
Call g(Form2,a)
End Sub
Private Sub g(f As Form,x As Integer)
y=IIf(x>10,000,-100)
f.Show
f.Caption=y
End Sub
运行以上程序,正确的结果是( )。
A. Form1的Capdon属性值为100
B. Form2的Caption属性值为-100
C. Form1的Caption属性值为-100
D. Form2的Capdon属性值为100
[单项选择]设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下: Private Sub Command1_Click( ) Dim a As Integer a=10 Call g(Form2,a) End Sub Private Sub g(f As Form,x As Integer) y=IIf(x>10,000,-100) f.Show f.Caption=y End Sub运行以上程序,正确的结果是
A. Form1的Capdon属性值为100
B. Form2的Caption属性值为-100
C. Form1的Caption属性值为-100
D. Form2的Capdon属性值为100
[单项选择]
设工程中有2个窗体: Form1、Form2,Form1为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher”,所有菜单项都可见;否则看不到“成绩录入”菜单项。为此,某人在Form1窗体文件中编写如下程序:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1.Text="Teacher" Then
Form2.input.visible=True
Else
Form2.input.visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub
程序运行时发现刚输入口令时就隐藏了Form1,显示了Form2,程序需要修改。下面修改方案中正确的是()
A. 把Form1中Text1文本框及相关程序放到Form2窗体中
B. 把Form1.Hide、Form2.Show两行移到2个End If之间
C. 把If KeyAscii=13 Then改为 If KeyAscii="Teaeher" Then
D. 把2个Form2.input.Visible中的“Form2”删去
[单项选择]设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“XSLNCER”,所有菜单项都可见:否则看不到“成绩录入”菜单项。为此,某人在Form1窗体文件中编写如下程序:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Tex 1.Text="XSLNCER"Then
Form2.input.Visible=True
Else
Form2.input.Visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub
菜单结构 标题 | 名称1 | 级别 | 成绩管理 | mark | A. 把2个Form2.input.Visible中的“Form2”删去 B. 把Form1中Text1文本框及相关程序放到Form2窗体中 C. 把If KeyAsii=13 Then改为If KeyAscii="XSLNCER"Then D. 把Form1.Hide、Form2.Show两行移动到2个End If之间
购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
请选择支付方式
-
微信支付
-
支付宝支付
立即支付
系统将自动为您注册账号
请使用微信扫码支付
截图扫码使用小程序[完全免费查看答案]
请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码
|