| 查看: 871 | 回复: 4 | ||
[求助]
vb求助，新人学vb
|
|
输入任意十个数中负数的个数，偶数的个数，奇数的和。就是这么简单的程序设计，小弟跪求啊 [ 发自手机版 http://muchong.com/3g ] |
回复此楼» 猜你喜欢
一志愿太原理工安全工程300分，求调剂
已经有5人回复
-
调剂求院校招收
已经有4人回复
-
求化学调剂
已经有4人回复
-
085600，材料与化工321分求调剂
已经有7人回复
-
一志愿武汉理工，总分321，英一数二，求老师收留。
已经有6人回复
-
考研调剂
已经有6人回复
-
0856求调剂
已经有12人回复
-
0703化学
已经有9人回复
-
0703化学求调剂
已经有10人回复
-
317求调剂
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助Levenberg-Marquardt的VB程序
已经有6人回复
- 一个从来没有编程经验的人，你们觉得VB作为入门语言怎么样？
已经有23人回复
- 【求助】vb.net中调用外部程序的问题
已经有3人回复
- vb求助
已经有4人回复
- 【求助】VB经典教程征集！
已经有20人回复
- 【求助】VB问题
已经有5人回复
- 【求助】怎么让vb程序运行结束后自动退出啊
已经有5人回复
- 【求助】求推荐一本可一从VB基础到熟悉VB的书
已经有5人回复
- 【求助】VB如何读取txt文件~~
已经有12人回复
- 【求助】求美国药典，VB12与VB2的含量测定方法
已经有4人回复
- 【求助】如何用vb循环搜索txt文本内的数据
已经有4人回复
- 【求助】此VB程序怎么运行不起来？
已经有8人回复
- 【求助】帮我编个程啊~C语言，C++，Matlab，VB...都行~
已经有14人回复
- 【求助】求助：vb编程中用牛顿迭代解三次方程为什么只得到一个根？【已完成】
已经有15人回复
- 【交流】VC++, C#, VB答疑专贴
已经有145人回复
2楼2012-10-11 12:22:53
libralibra
至尊木虫 (著名写手)
骠骑将军
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件
3楼2012-10-11 15:45:49
 |
4楼2012-12-05 23:48:06
【答案】应助回帖
|
如此简单的逻辑关系都需要求助,那你还如何学习程序设计 Private Sub Command1_Click() For i = 1 To 10 aa = Val(InputBox("请输入一个数", "系统提示", 0)) If aa < 0 Then jsjs1 = js1 + 1 End If If aa / 2 = Int(aa / 2) Then jsq2 = jsq2 + 1 End If If aa / 2 <> Int(aa / 2) Then jsq3 = jsq3 + 1 End If Next i Print jsq1, jsq2, jsq3 End Sub |
5楼2012-12-06 23:46:00
