问题 问答题

阅读《垓下之围》中的一段文字,回答问题:   项王军壁垓下,兵少食尽,汉军及诸侯兵围之数重。夜闻汉军四面皆楚歌,项王乃大惊曰:“汉皆已得楚乎是何楚人之多也!’’项王则夜起,饮帐中。有美人名虞,常幸从;骏马名骓,常骑之。于是项王乃悲歌慷慨,自为诗曰:“力拔山兮气盖世,时不利兮骓不逝;骓不逝兮可奈何,虞兮虞兮奈若何!”歌数阕,美人和之。项王泣数行下。左右皆泣,莫能仰视。   A.写出这段文字中引出的两个成语。   B.项羽的诗表现了他怎样的性格特点   C.文中运用了哪些人物描写方法

答案

参考答案:A四面楚歌、霸王别姬。B英雄多情,无可奈何。C语言描写、行为描写。

计算题
问答题

试题七(15 分,每空3 分)阅读以下说明及Visual Basic 程序代码,将应填入(n)处的字句写在答题纸的对应栏内。[说明]某个文本文件中存放了若干个非零数值有效数据,每个数据占一行,最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这些数据之和,其运行窗口如下:

用户只要通过驱动器列表框、目录列表框和文件列表框,选择文本文件所在的驱动器、文件夹及相应的文件名,再单击“累计”按钮,就能在“总计”文本框中看到该文本文件中的数据之和。在开发过程中,设驱动器列表框名为Drive1,目录列表框名为Dir1,文件列表框名为File1,存放数据的文本文件名为D:\test\vb7\data.txt,“累计”按钮名为sum,“总计”文本框(TextBox)名为text1。[Visual Basic 代码]Private Sub Drive1_Change()Dir1.Path = (1) ’ 用户选择的驱动器反映到目录列表框中End SubPrivate Sub Dir1_Change()File1.Path = (2) ’ 用户选择的文件夹改变文件列表框内容End SubPrivate Sub sum_Click()Dim (3) As New FileSystemObject, (4) As TextStream’ 创建自己的文件系统对象,说明自己的文本流对象If Right(Dir1.Path, 1) = "\" ThenSet myTextFile = fso.OpenTextFile(Dir1.Path + File1.FileName)ElseSet myTextFile = fso.OpenTextFile(Dir1.Path + "\" + File1.FileName)End IfS = 0Dod = Val(myTextFile.ReadRow)S = S + dLoop While (5)Text1.Text = Str$(S)End Sub