首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。 【应用说明5.1】 本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。运行时,用户从Combo1的列表中
阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。 【应用说明5.1】 本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。运行时,用户从Combo1的列表中
admin
2009-02-15
52
问题
阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。
【应用说明5.1】
本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。运行时,用户从Combo1的列表中进行选择,程序就会将选中条目的内容以及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。
【程序代码5.1】
Private Sub Combo1_Click()
Txt1.Text = Combo1. (1)
Txt2.Text = Combo1. (2)
End Sub
(注:可供(2)处选择的选项:List, Index, Listlndex, ListCount, Number)
【应用说明5.2】
本应用程序的运行窗口如图2所示。
开发该应用的部分程序代码如下:
【程序代码5.2】
Private Sub CmbOp_Click()
Dim Dataln As Double,DataOut as Double
Dataln=(3)
Select Case (4)
Case "取整数部分"
DataOut =Int(Dataln)
Case "求平方根"
If Dataln<0 Then
MagBox "负数不能开平方!"
Else
DataOut = Sqr(Dataln)
End If
Case "取绝对值"
DataOut = Abs(Dataln)
(5)
TxtOut. Text = str $ (DataOut)
End Sub
选项
答案
(1)Text (2)Listlndex (3)Val(Txtln.Text)或Txtln.Text (4)CmbOp.Text (5) End Select
解析
(1)组合框的Text属性用于取得文本。(2)组合框的Listlndex属性用于取得选中的项的编号。(3)此处的Val(Txtln.Text)或 Txtln.Text能够取得用户的输入。(4)此处以组合框的当前值做为分支依据。(5)此处是分支语句结束,应当填结束标志。
转载请注明原文地址:https://kaotiyun.com/show/YEjZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
信息系统中,防止非法使用者盗取、破坏信息的安全措施要求:进不来、拿不走、改不了、看不懂。以下(62)技术不属于安全措施。
在Excel中,若A1单元格中的函数为"=IF("教授">"助教",TRUE,FALSE)",按回车键后,A1单元格中的显示内容为______。
用Word2007编辑文件时,查找和替换中能使用的通配符是______。
在Word2007中,字符样式应用于__________。
________________不会是信息系统的功能。
某地区去年粮食产量资料如下表:根据该表可以推算出,该地区去年薯类的产量为()万吨。
将四个元素a,b,c,d分成非空的两组,不计组内顺序和组间顺序,共有()种分组方法。
下列关于Windows7屏幕保护程序的叙述中,不正确的是__________。
随机试题
国际化企业要确立经营国际化观念,必须做到()
在强直收缩中,肌肉的动作电位
急性胰腺炎时血清淀粉酶升高的规律为
在监理合同履行过程中,发生不可抗力导致施工被迫中断,不可抗力影响消失后恢复施工前必要的监理准备工作属于()工作。
下列有关出版物连锁经营的表述,正确的有()。
人格的核心是()。
一个班48个人参加考试,语文及格的有36人,数学及格的有38人,英语及格的有40人,只有4位同学三科都不及格,至多有多少人三门科目都及格?
白天只能看到太阳,晚上却能看到更多更远的星球。谈谈你对这句话的看法。(2011年7月8日下午湖南省公务员面试真题)
差异量数的指标包括()。
A、Therewassomethingwrongwithhercar.B、Shegotuptoolate.C、Therewasnoparkingplacenearby.D、Shegotlostonherway
最新回复
(
0
)