题目内容

Questions 11 to 18 are based on the conversation you have just heard.

A. Catch a bus.
B. Demand a telephone number.
Cash a check.
D. Make a phone call.

查看答案

搜索结果不匹配？点我反馈

更多问题

设窗体上有一个名称为Combo1的组合框，并有以下程序： Private Sub Combo1_KeyPress(KeyAscii As Integer) If (9) =13 Then ’回车符的ASCII码是13 For k=0 To Combo1.ListCount-1 If Combo1.Text=Combo1.List(k) Then combo1.Text="" Exit For End If Next k If Combo1.Text＜＞ "" Then Combo1.AddItem (10) End If End If End Sub 程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部，请填空。

根据以下数据资料，分析相关问题： (单位：万元) 资金运用项目上日末余额资金来源项目上日末余额一、各项贷款二、在中央银行准备金存款其中：法定准备金存款三、业务库存现金四、同业往来其中：到期应收 6700750470100480150 一、各项存款二、同业往来其中：到期应付 45001500300 假设该行超额准备金留存限额为100万元；业务库存现金限额40万元；可调入资金300万元；现金收入超过现金支出的差额25万元；联行应付大于应收的汇差为50万元；同城票据清算应收资金15万元；到期的其他金融机构拆入差额38万元；发放贷款100万元；收回贷款60万元(其中本行客户30万元)。接上题，该商业银行当日头寸为( )万元。

A. 270
B. 272
C. 274
D. 276

在当前目录下有一个名为myfile.txt的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。 Private Sub Command1_Click() Dim ch$, ascii As Integer Open "myfile.txt" For (11) As #1 While Not EOF(1) Line Input #1, ch ascii=toascii( (12) ) Print ascii Wend Close #1 End Sub Private Function toascii(myStr$) As Integer n=0 For k=1 To (13) n=n+Asc(Mid(myStr,k,1)) Next k toascii=n End Function

在窗体上画一个命令按钮(名称为Command1)，并编写如下代码： Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t=a-b:b=t+a:Fun1=t+b End Function Private Sub Command1_Click() Dim x As Integer x=10 Print Fun1(Fun1(x, (Funl(x,x-1))),x-1) End Sub 程序运行后，单击命令按钮，输出结果是

A. 10
B. 0
C. 11
D. 21