问答题

试题七
阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入___（n）___处的语句写在答题纸的对应栏内。
[应用说明7]
本应用程序的运行窗口如图2-5所示。

只要用户单击“闪烁”按钮，文字“欢迎光临”就会以0.3s消失、0.3s显示反复进行闪烁；单击“停止”按钮，闪烁停止，恢复图示的初态。
[属性设置7]

[程序代码7]
Private Sub CmdF C1ick()
Timerl. (3) =True
Label.Visible=False
End Sub
Private Sub Timerl_Timer()
(4) =not Label.Visible
End Sub
Private Sub CmdT_Click()
Timerl.Enabled= (5)
Label.Vlsible=true
End Sub

【参考答案】

(1)False
(2)300
(3)Enabled
(4)Label.Visible
(5)False

<上一题 目录 下一题>
热门 试题

问答题
试题九 阅读以下应用说明及Visual Basic程序代码，将应填入___（n）___处的语句写在答题纸的对应栏内。 [应用说明9] 本应用程序的运行窗口如图2-6所示。 窗口中的3个文本框和2个按钮，名称分别为Txt_salary，Txt_base，Txt_tax，Cmd compute和Cmd_quit。运行时，文本框Txt_base中存放的是免税金额基数(应扣除的基本费用)。当用户在文本框Txt_salary中输入月收入(工资或薪金)并单击“计算”按钮 Cmd_compute后，Txt_tax框中就显示计算所得的应纳税额。文本框Txt_base和Txt_ tax在运行时不接受用户输入，Txt_base的内容以灰色显示。 个人工资(或薪金)所得税是按照超额累进的税率来征收的，其计算方法参考试题8。 [程序代码9] Option Base 0 Private Sub Cmd_compute_Click() Dim paylevel，taxPrate paylevel=Array(0，500，2000，5000，20000，40000，60000，80000，100000，1000001) taxPrate=Array(5，10，15，20，25，30，35，40，45) K= (1) S=0 if(K＞0) Then For j=1 TO 9 If (2) Then S=S+(paylevel(j)-paylevel(j-1)) * taxPrate(j-1) 100 Else S=S+( (3) ) * taxPrate(j-1) 100 Exit For End If Next j End If (4) =Str$(S) End Sub Private Sub Cmd_quit_Click() End End Sub Private Sub Form_Load() Txt_tax.Text=“” Txt_salary.Text=“” Txt_base.Text=800 Txt_tax.Locked=True Txt_base.Enabled= (5) End Sub
问答题
试题六 阅读下列函数说明和C函数，将应填入___（n）___处的语句写在答题纸的对应栏内。 [函数6说明] 函数DelA_InsB(LinkedList La，LinkedList Lb，int key1，int key2，int len)的功能是：将线性表A中关键码为key1的结点开始的len个结点，按原顺序移至线性表B中关键码为key2的结点之前，若移动成功，则返回0；否则返回-1。线性表的存储结构为带头结点的单链表，La为表A的头指针，Lb为表B的头指针。单链表结点的类型定义为： typedef struct node int key； struct node * next； * LinkedList； [函数6] int DelA InsB(LinkedList La，LinkedList Lb，int key1，int key2，int len) LinkedListp，q，s，prep，pres； int k； if(! La-＞next‖! Lb-＞next‖-＞next‖len＜＝0)return－1； p=La-＞next；prep=La； while(p&&p-＞key!=key1) * 查找表A中键值为key1的结点 * prep=p；p=p-＞next； if(! p)return -1； * 表A中不存在键值为key1的结点 * q＝p；k=1； while(q&& (1) ) * 在表A中找出待删除的len个结点 * (2) ；k++； if(! q)return-1： * 表A中不存在要被删除的len个结点 * s=Lb-＞next； (3) ； while(s s && s-＞key!=key2) * 查找表B中键值为key2的结点 * pres=s；s=s-＞next； if(! s)return-1； * 表B中不存在键值为key2的结点 * (4) =q-＞next； * 将表A中的len个结点删除 * q-＞next= (5) ； pres-＞next=p； * 将len个结点移至表B * return 0；
相关试题