福建高中信息技术会考上机示范 ppt课件
- 格式:ppt
- 大小:1.86 MB
- 文档页数:11
第12题:打开“Z:\VB\85”文件夹中的文件:“d4.vbp”,进行以下操作后并保存!在VB代码窗口指定位置修改完善程序代码,实现求1*2*3*4*5*……*9*10的积。
值是3628800Private Sub Command1_Click()'注释:以下为求1*2*3*4*5*……*9*10的积的代码,请不要删除(1)和(2)以外的任何代码Dim s As LongDim n As IntegerDim i As Integern = 10'注释:删除(1),在(1)处写上正确的代码s = 1For i = 1 To n'注释:删除(2),在(2)处写上正确的代码s = s * iNext iPrint "S="; sEnd Sub第11题:打开“Z:\VB\90”文件夹中的文件:“k4.vbp”,进行以下操作后并保存!在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码),使之能够实现如下功能:在text1文本框中输入一个整数a(不为零),判断其是否为正数,如果该数大于零,则在text3文本框中输出“正数”,如果小于零,则输出“负数”。
测试数据在text1文本框中输入9,在text3文本框中输出:正数。
在text1文本框中输入-6,在text3文本框中输出:负数。
Private Sub Command1_Click()Dim a As longa = Val(Text1.Text)If a <> 0 ThenIf a > 0 ThenText3.Text = "正数"ElseText3.Text = "负数"End IfEnd IfEnd Sub第12题:打开“Z:\VB\82”文件夹中的文件:“d1.vbp”,进行以下操作后并保存!在VB代码窗口指定位置修改完善程序代码,实现求1到50之间的奇数和。