如果要在窗体上使用2组单选按钮,每组都可以有一个被选中,则应该做的是______。
A. 把1组单选按钮面在窗体的左边,另1组画在右边
B. 先画2组单选按钮,再画2个框架控件把2组单选按钮分别框起来
C. 先画2个框架控件,再把2组单选按钮分别画在不同的框架中
D. 因为1个窗体中只有1个单选按钮可以被选中,所以需要使用2个窗体
查看答案
设工程中有2个窗体:Form1和Form2,Form1为启动窗体。Form2中有菜单,其结构如下表所示。要求在程序运行时,在Form1的文本框Text1中输入口令并按Enter键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher”,所有菜单都可见;否则看不到“成绩录入”菜单项。为此,某人在Form1窗体文件中编写如下程序: 菜单结构 标题 名称 级别 成绩管理 mark 1 成绩查询 query 2 成绩录入 input 2 Private Sub Text1 1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If Text1.Text="Teaeher" 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="Teacher" Then
D. 把2个Form2.input.Visible中的“Form2.”删去
关于水平滚动条,如下叙述中错误的是______。
A. 当滚动框的位置改变时,触发Change事件
B. 当拖动滚动条中的滚动框时,触发ScroH事件
C. LargeChange属性是滚动条的最大值
D. Value是滚动条中滚动框的当前值
设有以下程序: Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(y) If y Mod 5=O Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为______。
A. 100
B. 50
C. 120
D. 70
窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是______。
A. LargeChange
B. SmallChange
C. Max
D. Min