问题 多项选择题

在窗体上创建三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“导入数据”、 “字母转换”和“保存数据”,以及一个文本框,名称为Text1。编写事件过程,使得在运行时,单击“导入数据”按钮,从考生文件里读入data.txt文件(字母&空格),在Text1中显示。单击“字母转换”按钮,则把Text1中的所有大写字母转换成小写字母。单击“保存数据”按钮,存入out.txt文件中。程序运行后如图28所示。要求实现题目给出的功能,并将文件保存在考生文件夹下,工程文件名为ylc.vbp。

答案

参考答案:(A)Visual Basic集成环境中,执行“文件”→“新建工程”命令,选择“标准Exe”。创建窗体FormA。
(C)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮,名称分别为CommandA、 CommandB和CommandC,标题分别为“导入数据”、“字母转换”和“保存数据”。
(D)双击“导入数据”按钮,弹出代码窗口,在其中添加如下代码:
Private Sub CommandA_Click()
Dim a As String
Call FindData(a)
TextA.Text=a
End Sub
Sub FindData(a As String)
Open App. Path & "\" & "data.txt" For Input As #A
Do While Not EOF(A)
Input #A,a
Loop
Close #A
End Sub
(E)双击“字母转换”按钮弹出代码窗口,在其中添加如下代码:
Private Sub CommandB_Click()
TextA.Text=UCase(TextA.Text)
End Sub
(F)双击“保存数据”按钮弹出代码窗口,在其中添加如下代码:
Private Sub CommandC_Click()
Call SaveData(TextA.Text)
End Sub
Sub SaveData(a As String)
Open App.Path & "\" & "out. txt" For Output As #A
Print #A, a
Close #A
End Sub
(G)按FE键运行程序。如图BH所示。
(H)执行“文件”→“保存工程”命令,将工程文件命名为ylc.vbp,窗体文件命名为 ylc.frm。

解析: (1)该题综合考查了多个知识点,重点考查了文件的读入操作并在文本框中输出;字符串转换函数UCase(),转换字符串的大小写;对顺序文件的读入和输出的操作等。
(2)该题重点考查了命令按钮的单击事件与函数过程的调用,通过调用可以很方便地实现题中要求的各种功能。

论述题

(32分)阅读材料,回答问题。

材料一 2009年9月28日,国家发改委发出通知,公布了国家基本药物的零售指导价格,共涉及2349个具体剂型规格品。政府指导价是最高限价,各药品生产经营单位经营基本药物,可依据市场供求情况,在不超过零售指导价的前提下,自主确定价格。

材料二 国家发改委在通知中要求,各地价格主管部门要加强对国家基本药物市场购销价格的监测和分析,发现问题,及时报告;要加强对国家基本药物价格执行情况的监督检查,对药品生产经营单位违反本通知规定的价格行为,要依法严肃查处。

材料三 国家发改委有关负责人表示,制定基本药物零售指导价格主要遵循以下三条原则,一是确保企业能够正常生产和经营基本药物,保障市场供应,二是充分考虑当前我国基本医疗保障水平和群众承受能力,三是结合市场实际和供求状况,区别不同情况,采取“有降、有升、有维持”的方法调整价格。

(1)结合材料一、二,运用市场经济的有关知识,谈谈你对国家制定基本药物零售指导价格的认识。(11分)

(2)结合材料二,运用政治常识的有关知识回答,各地价格主管部门履行的是国家的哪种职能。怎样才能履行好这一职能?(10分)

(3)根据材料三,说明国家在制定基本药物零售指导价时坚持了唯物辩证法的哪些观点。(11分)

单项选择题