请教大神这是什么歌 VB程序题

来源：蜘蛛抓取(WebSpider) 时间：2016-06-02 12:34 标签： 程序员大神
求大神修改一个VB的题目答案, 求大神修改一个VB的题目答案 Pr
求大神修改一个VB的题目答案 Private Sub Command1_Click()Dim x As Integer, y As Single肌偿冠锻攉蹬圭拳氦哗x= val (Text1.Text)If x&150y=xElseIf
x&150y=xElseIf x &300theny=0.95*xElseIf x & 500 theny=0.8*xEnd If 此题可有错误，有错望大神修改
匿名 求大神修改一个VB的题目答案
Private Sub Command1_Click()Dim x As Integer, y As Singlex = Val(Text1.Text)If x & 150 Then
If x & 300 Then
肌偿冠锻攉蹬圭拳氦哗 y = 0.95 * x
If x & 500 Then
y = 0.9 * x
y = 0.8 * x
End IfEnd IfText2.Text = Format(y)End Sub
If x & 150 Then y = xElseIf x & 300 Theny =150+ 0.95 * (x-150)ElseIf x & 500 Theny =150+(300-150)*0.95+ 0.9 *( x-300)Elsey = 150+(300-150)*0.95+0.9 * (500-300)+0.8*(x-500)End If按照题意应该是多余的部分打折请教大神一个vb编程问题_百度知道
请教大神一个vb编程问题
E, min%max = -1min = 1000For i = 1 To 100If h(a(i)) ThenIf max &lt, k(i)k(i) = (Int(k(i) &#47.txt&quot.txt&= a(i) Then max = a(i)If min & 10) - a * 10) ^ 3 + (k(i) Mod 10) ^ 3Nexth =End FunctionPrivate Sub Command1_Click()Dim max%; 100)) ^ 3 + (Int(k(i) &#47:\ For Input As #1For i = 1 To 100Input #1; For Output As #1For i = 1 To 100a(i) = Int(Rnd * 999)Print #1:&#92！Private Function h(k() As Integer)Open &= a(i) Then min = a(i)End IfNextText1 = maxText2 = minEnd SubPrivate Sub Command2_Click()Open &E;abc窗体有2个text
2个command
单击command1
一个txt文件中100个0~999数字读取到a数组中
单击command2
找出这100数字中的水仙花数
并且判断这些水仙花数中的最值分别显示在2个text中
求代码谢谢
或者帮我改下我写的代码
注意大神们
我要function过程·
提问者采纳
不过原题是有问题的;E，水仙花数一般指的是三位数; 10)) Mod 10
a3 = j Mod 10
If a1 * a1 * a1 + a2 * a2 * a2 + a3 * a3 * a3 = j Then
If max &lt.txt&= j Then min = j
End IfNext iText1 = maxText2 = minEnd SubPrivate Sub Form_Load()Randomize TimerOpen & 100)
a2 = (Int(j / For Input As #1For i = 1 To 100
Input #1, k(i)Next iClose #1End SubPrivate Sub Command2_Click()max = -1min = 1000For i = 1 To 100
a1 = Int(j /= j Then max = j
If min &E帮你写了个程序:&#92, aNext iClose #1End Sub 若满意请及时采纳，而题中给出0到999范围不合适:&#92.txt& For Output As #1For i = 1 To 100
a = Int(Rnd * 1000)
Print #1，应该改为100到999Dim k(100) As IntegerPrivate Sub Command1_Click()Open &quot
这样写我也会
function过程！！
你想把哪个部分做成函数呢？
提问者评价
太给力了，你的回答完美地解决了我的问题，非常感谢！
其他类似问题
为您推荐：
vb编程的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 程序员大神 的文章

 

随机推荐