24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

jdz516652136

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 3
帖子: 4
在线: 58分钟
虫号: 1933319
注册: 2012-08-10
专业: 药物化学

[求助] vb求助，新人学vb

输入任意十个数中负数的个数，偶数的个数，奇数的和。就是这么简单的程序设计，小弟跪求啊

[ 发自手机版 http://muchong.com/3g ]

回复此楼

» 猜你喜欢

拟解决的关键科学问题还要不要写已经有11人回复
救命帖已经有5人回复
限项规定已经有5人回复
为什么nbs上溴没有产物点出现呢已经有9人回复
招博士已经有3人回复
存款400万可以在学校里躺平吗已经有35人回复
最失望的一年已经有18人回复
求推荐博导已经有4人回复
求推荐英文EI期刊已经有5人回复
疑惑？已经有5人回复

» 本主题相关价值贴推荐，对您同样有帮助:

求助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人回复

1楼 2012-10-11 09:07:41

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

rsb_long

至尊木虫 (著名写手)

应助: 15 (小学生)
金币: 19110.9
帖子: 1268
在线: 405.3小时
虫号: 80232
注册: 2005-07-14
专业: 计算机软件

【答案】应助回帖

如此简单的逻辑关系都需要求助,那你还如何学习程序设计
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