首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下应用说明以及用Visual Basic语言编写的程序代码,将应填入(n)处的字句写在答题纸的对应栏内。 【应用4.1】 设应用程序的运行窗口内有一个文字标签(Label)以及一个框架,其中有三个复选框(chk1,chk2,chk3),各个复选
阅读以下应用说明以及用Visual Basic语言编写的程序代码,将应填入(n)处的字句写在答题纸的对应栏内。 【应用4.1】 设应用程序的运行窗口内有一个文字标签(Label)以及一个框架,其中有三个复选框(chk1,chk2,chk3),各个复选
admin
2012-12-10
50
问题
阅读以下应用说明以及用Visual Basic语言编写的程序代码,将应填入(n)处的字句写在答题纸的对应栏内。
【应用4.1】
设应用程序的运行窗口内有一个文字标签(Label)以及一个框架,其中有三个复选框(chk1,chk2,chk3),各个复选框单击事件过程的程序代码如下:
Private Sub chkl_Click()
Label.fontBold=chkl.Value
End Sub
Private Sub chk2_Click()
Label.fontltalic=chk2.Value
End Sub
Private Sub chk3_Click()
Label.fontUnderLine=chk3.Value
End Sub
三个复选框chkl、chk2、chk3的功能分别是:(1)。
【应用4.2】
设应用程序的运行窗口内有两个文本框Txt1和Txt2,其初始内容为空。在Txt1文本框中输入一个数值,当光标离开此文本框(例如进入文本框Txt2)时,执行的程序代码如下:
Private Sub Txt1_LostFocus()
dim x aS double
x=Val(Txtl.Text)
工f x<0 Or x>100 Then
Txtl.Text =""
MsgBox$("请重新输入!")
Txtl.SetFocus
Else
Txt2.Text=Txt1.Text
End If
End Sub
该程序代码的功能是:若在文本框Txtl中输入的数值小于0或大于100,当光标离开此文本框时,(2);否则,将其值复制到文本框Txt2中。
【应用4.3】
在下面的应用中,当窗口内发生C1ick事件时,窗口内将显示如图2-4所示的杨辉三角(每一行都是二项式展开的系数)。请完善程序代码。
Private Sub Form Click()
Dim i,j,c As Integer,StrTemp AS String
Dim a(9)As Integer
a(0)=0=a(1)=l:StrTemp=Str(a(1))+Space(3)
CurrentX=(ScaleWidth-TextWidth(StrTemp))/2
Print StrTemp
For j=2 TO 9
a(j)=1
For C=j-1 TO 2 Step-1
a(c) =(3)
Next
(4)=""
For c = 1 To j
StrTemp = StrTemp & Str((5)) & Space(5 - Len(Str(a(c))))
Next
CurrentX = (ScaleWidth - TextWidth(StrTemp)) / 2
Print StrTemp
Next End Sub
选项
答案
(1)对文字标签中的文字,分别控制其粗体、斜体和下划线设置;或含义相同的文字描述 (2)将该文本框清空:弹出对话框,提示重新输入:光标定位于该文本框中;或含义相同的文字描述 (3)a(c)+a(c-1) (4)StrTemp (5) a?
解析
本题考查Visual Basic中常用控件的属性设置及事件处理。
对于同一框架中的一组单选按钮,只能有一个被选中,用户选中一个时,另一个就自动呈现取消选中状态。这种效果是系统自动赋予的,无须编程。对于复选框,则可以同时选中多个,每个复选框是独立选择的,单击复选框就是改变该复选框的选中状态。因此,复选框的Click事件的程序代码中,还需要判断是选中还是取消选中。
单选钮的属性为Value,其值为True表示选中,为False表示未选中(默认)。
复选框的属性为Value,其值为0表示未选中(默认),1表示选中,2表示禁用。
fontBold、fontltalic和fontUnderLine分别表示文字的粗体属性、斜体属性和下划线属性,因此应用4.1中,复选框chk1、chk2、chk3分别控制文字标签中文字的粗体、斜体和下划线设置。
应用4.2程序代码的功能是:若在文本框Txt1中输入的数值小于0或大于100,当光标离开此文本框时,将该文本框清空,弹出对话框并提示重新输入,光标定位于该文本框中;否则,将其值复制到文本框Txt2中。
应用4.3在窗体中显示杨辉三角(每一行都是二项式展开的系数),观察元素的值可知,值不等于1的元素由其左上角和右上角的元素相加得到。例如,若已经计算出第四行的所有元素,如下所示,然后需求出第五行的所有元素,每行的元素存储在一维数组a中。
a(1) a(2) a(3) a(4)
第四行:1 3 3 1
第五行上的元素自左至右表示为a(1)、a(2)、a(3)、a(4)、a(5),如下所示。
a(1) a(2) a(3) a(4)
第四行: 1 3 3 1
第五行:1 4 6 4 1
a(1) a(2) a(3) a(4) a(5)
先设置最后一个元素a(5)等于1,再根据第四行上的a(4)和a(3)求出第五行上的a(4),
根据第四行的a(3)和a(2)求出第五行上的a(3),依此类推,可求出第五行的每个元素(每行的第一个元素等于1,无需另外计算)。
推广至其他行,可计算出杨辉三角中的每个数并以串的方式输出,对应的程序代码如下:
For j=2 To 9 ’计算出第2行到第9行的每个数并输出
a(j)=1 ’每行的最后一个数为1
For c=j-1 To 2 Step-1
a(c)=a(c)+a(c-1) ’计算出值不等于1的元素
Next
StrTemp="" ’字符串初始化,每行所有数串接成一个字符串输出
For C=1 To j
StrTemp=StrTemp & Str(a(c)) & Space(5-Len(Str(a(C))))
Next
CurrentX=(ScaleWidth-TextWidth(StrTemp))/2
Print StrTemp
Next
转载请注明原文地址:https://kaotiyun.com/show/FnjZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
()不属于ABC技术(人工智能-大数据-云计算)的典型应用。
以下关于操作系统中回收站的叙述中,不正确的是(25)。
在Outlook中可以借助(6)的方式传送一个文件。
在Windows7中,若删除桌面上某个应用程序的快捷方式图标,则(31)。
四位二进制数(从0000到1111)中,不含连续三位相同数字的数共有(4)个。
在Excel2010的A1单元格中输入函数“=IF(1<>2,1,2)”,按回车键后,A1单元格中的值为________________。
计算机使用了一段时间后,系统磁盘空间不足,系统启动时间变长,系统响应延迟,应用程序运行缓慢,此时,需要对系统进行优化。(28)________________不属于系统优化工作。
某大型企业下属每个事业部都自行建立了信息系统,各自存储数据,各自配备了技术人员维护系统。由于数据格式不同,难以交流,各系统难以连接,形成了一个个信息孤岛,业务难以协同。为此,公司采取了以下一些整合措施,其中(70)并不恰当。
计算机在接通电源后,系统首先由(41)程序对内部每个设备进行测试。
随机试题
根据计划内容的明确性标准,可以将计划分类为()
慢性肺源性心脏病可由下列哪些疾病演变而来()
青霉素V钾片的含量,《中国药典》采用
一郊区诊所接生的32周孕龄男婴,出生时轻度窒息,生后第二天不吃不动,呼吸不规则,面色发绀,前囟紧张,四肢肌张力差,拥抱反射消失,以颅内出血收住院治疗。其颅内出血部位最可能为
文化名人的隐退,有两种境界,一是被迫隐退,二是自觉隐退。自觉隐退的人,要么有审时度势、急流勇退的__________,要么有超身世外、看轻名利的__________,不论是哪一种情况,都是值得敬佩的。填入画横线部分最恰当的一项是()。
制定电信资费的()时,应建立听证会制度。
关于爱岗敬业,理解正确的是()。
班级目标是指在一定时期内班级所期望达到的境界。班级目标的设计,主要依据两方面因素:一是国家的教育方针政策、学校的培养目标;二是()。
某公司拟采购一批零件,价值5400元,供应商规定的付款条件如下:立即付款,付5238元;第20天付款,付5292元;第40天付款,付53416元;第60天付款,付全额。要求回答以下互不相关的问题(每年按360天计算):假设目前有一短期投资报酬率
Whereistheman?
最新回复
(
0
)