福建省计算机二级Access编程题2013.doc

莆田学院许振和整理 仅供学生学习编程题第二题 编程第二题，一般考核if（条件）语句和for（循环）语句的应用，题型有改错和完整编程两种。Private Sub Command0_Click() ?源文件里面代码为空 不得删除本行注释End SubPrivate Sub Command0_Click()Dim a,b as single 定义为数字型，否则将按字符比较a=Text1.valueb=text2.valueIf ab Then Label1.Caption = abElseIf a=b Then Label1.Caption = a=bElse Label1.Caption = a 10 Then 本行代码有错，需要修改 改为= y = x * 2 + 1 本行代码有错，需要修改x * 2改为x 2或者x*x Else y = x + 1 End If Label1.Caption = yEnd SubPrivate Sub Command1_Click() 不得删除本行注释Dim x As Single x = Text1.ValueIf x = 0 And Int(x) = x Then If x Mod 2 = 1 Then Label1.Caption = 奇数 Else Label1.Caption = 偶数Else Label1.Caption = 请输入一个自然数End IfEnd SubPrivate Sub Command1_Click() 不得删除本行注释Dim sum As Integersum = 0For i = 1 To 100 Step 2sum = sum + iNextText1.Value = sumEnd SubPrivate Sub Command1_Click() 不得删除本行注释If Text1.Value = abcd Then Label2.Caption = 欢迎使用本系统！Else Label2.Caption = 口令错，请重新输入！End IfEnd SubPrivate Sub Command1_Click() 不得删除本行注释Dim m, n, sum As Integerm = Text1.Valuen = Text2.Valuesum = 0For i = m To n sum = sum + iNextLabel1.Caption = sumEnd SubPrivate Sub Command1_Click() 不得删除本行注释Dim x, y As Singlex = Text1.ValueIf x = 10 Theny = 2 * xElsey = 10 * 2 + (x - 10) * 1End IfText2.Value = yEnd SubPrivate Sub Command1_Click() 不得删除本行注释Dim x As Integerx = Text1.ValueIf x Mod 3 = 0 And x Mod 7 = 0 ThenLabel2.Caption = 可以整除ElseLabel2.Caption = 不能整除End IfEnd SubPrivate Sub Command1_Click() 不得删除本行注释Dim n As IntegerDim sum As Singlen = Text1.Valuesu