问答题


【参考答案】

[解析] 使用AddItem方法向列表框中添加列表项目，其格式为：
列表.AddItem项目字符串[,索引值]......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
<上一题 目录 下一题>
热门 试题

问答题
[解析] 使用Open方法和Close方法打开和关闭文件，使用循环语句把整数赋给数组。在计算输出时，先定义一个变量，用来保存奇数的和；计算时找出数组中下标为奇数的数进行累加，将结果在文本框中显示出来。在窗体上打印内容可以用 Print方法来实现。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表BA-E。 表 BA-E 标 题 名 称 内 缩 符 号 读入数据 Read 0 计算并输出 Calc 0 存盘 Save 0 Text Name TextA 第二步：编写程序代码。 程序提供的代码： Option Base A Dim Arr(A00) As Integer Dim temp As Integer Sub ReadData() Open App.Path & & datainA.txt For Input As #A For i=A To A00 Input #A, Arr(i) Next i ’ #A End Sub Sub WriteData(Filename As String, Num As Integer) Open App.Path & & Filename For Output As #A Print #A, Num Close #A End Sub Private Sub Calc_Click() ’TextA.= For i=A To A00 Step B TextA.Text=TextA.Text & Arr(i) & Space(E) temp=temp+Arr(i) Next i ’Print End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData dataout.txt , temp End Sub 参考代码： Option Base A Dim Arr(A00) As Integer Dim temp As Integer Sub ReadData() Open App.Path & & datainA.txt For Input As #A For i=A To A00 Input #A, Arr(i) Next i Close #A End Sub Sub WriteData(Filename As String, Num As Integer) Open App.Path & & Filename For Output As #A Print #A, Num Close #A End Sub Private Sub Calc_Click() TextA.Text= For i=A To A00 Step B TextA.Text=TextA.Text & Arr(i) & Space(E) temp=temp+Arr(i) Next i Print temp End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData dataout.txt , temp End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
问答题
注意：下面出现的“”均为c： wexam 25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在名称为Form1的窗体上画两个标签，名称分别为Label1和Label2，标题分别为“身高”和“体重”，两个文本框，名称分别为Text1和Text2，Text属性均为空白，一个命令按钮，名称为Command1，标题为“输入”。然后编写命令按钮的Click事件过程，程序运行后，如果单击命令按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高和体重，并分别在两个文本框中显示出来。程序运行界面如图21-1所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt.frm。 (2) 在名称为Form1的窗体上画一个图片框，名称为Picture1，一个垂直滚动条，名称为VScroll1，一个命令按钮，名称为Command1，标题为“设置属性”。通过“属性”窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生文件夹下)，图片框的宽度与图形的宽度相同，图片框的高度任意，如图21-2所示。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性： Min 100 Max 2400 LargeChang 200 SmallChange 20 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图21-3所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
相关试题