Exit Do
Else
m = m + 1
End If
Loop
End Sub
运行程序，输入“12”，单击按钮，程序的输出结果是______。
A．13 B．12 C．11 D．其他整数
38、下列过程的功能是：将输入的整数分解为质数的乘积。例如，输入50，则输出2，5，5，；输
入100，则输出2，2，5，5。
Private Sub Command1_Click()
x = Val(InputBox("请输入一个整数"))
out $ = " "
y = 2
Do While y ＜ = x
If x Mod y = 0 Then
out $ = out $ & y & ","
x=【 】
Else
y = y + 1
End If
Loop
MsgBox out $
End Sub
为实现指定功能，程序【 】处应填写的语句是______。
A．x/y B．x mod y C．x+1 D．x*y
39、窗体中有一个命令按钮“Command1”和一个文本框“Text1”，编写如下程序：
Function result(x As Integer) As Boolean
If 【 】Then
result = True
Else
result = False
End If
End Function
Private Sub Commandl_Click()
x = Val(InputBox("请输入一个整数"))
If Not result(x) Then
Text1 = Str(x) & "是奇数."
Else
Text1 = Str(x) & "是偶数."
End If
End Sub
程序运行后单击命令按钮，在输入对话框中输入“121”，则“Text1”中显示“121是奇数”。那
么程序的【 】处应填写______。
A．x Mod 2=1 B．x Mod 2==1 C．x Mod 2==0 D．x Mod 2=0
40、在“管理系统.accdb”文件中有“职工表”，采用ADO，将表中所有女职工的退休年龄加5，程序
如下：
Sub SetAgePlus()
Dim cn As New ADODB.Connection '连接对象
Dim rs As New ADODB.Recordset '记录集对象
剩余27页未读，继续阅读
我慢慢地也过来了
- 粉丝: 9403
- 资源: 4066
我的内容管理
展开
最新资源
- 前端面试必问：真实项目经验大揭秘
- 永磁同步电机二阶自抗扰神经网络控制技术与实践
- 基于HAL库的LoRa通讯与SHT30温湿度测量项目
- avaWeb-mast推荐系统开发实战指南
- 慧鱼SolidWorks零件模型库：设计与创新的强大工具
- MATLAB实现稀疏傅里叶变换(SFFT)代码及测试
- ChatGPT联网模式亮相，体验智能压缩技术.zip
- 掌握进程保护的HOOK API技术
- 基于.Net的日用品网站开发：设计、实现与分析
- MyBatis-Spring 1.3.2版本下载指南
- 开源全能媒体播放器：小戴媒体播放器2 5.1-3
- 华为eNSP参考文档：DHCP与VRP操作指南
- SpringMyBatis实现疫苗接种预约系统
- VHDL实现倒车雷达系统源码免费提供
- 掌握软件测评师考试要点：历年真题解析
- 轻松下载微信视频号内容的新工具介绍
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
