ldcf.net
当前位置:首页 >> VB编成题 求答案 急急急 >>

VB编成题 求答案 急急急

Private Sub Command1_Click() Dim t#, k# t = Val(Text1.Text) Select Case t Case Is < 1000: k = 1 Case Is < 2000: k = 0.9 Case Is < 3000: k = 0.85 Case Is < 4000: k = 0.8 Case Else: k = 0.7 End Select Label1.Caption = "用户购物花...

第一题选 B 第二题选 D 这些题目是哪里的,感觉写得不够严谨

x=inputbox("x=") if x=int(x) then print x;"是整数" else print x;"不是整数"

水手分椰子问题 5个水手在椰岛上发现拉一堆椰子:先由第一名水手把椰子分成等量的5堆,还剩下一个 给猴子,自己藏一堆,然后,第二个水手把剩下4堆混合后重新分成等量的5堆。还剩下一个 个猴子,自己藏起一堆,以后第3,4个水手依此办理,最后第...

1,放两个文本框 名字分别是text1 text2 放一个按钮,名字是command1 Private Sub Command1_Click() msgbox "两数整除结果为" & val(text1) \ val(text2) msgbox "两数取于的结果" & val(text1) mod val(text2) End Sub 2,放两个文本框 名字分别...

A C A B A] D B B C D] C B C C C] B C D C B 全对

Private Sub Command1_Click() List1.Clear Me.Caption = "在100以内的素数中找出间隔最大的一对相邻素数" Dim Flag As Boolean, MaximumInterval As Integer, Subscript As Integer For i = 2 To 100 Flag = True For j = 2 To Sqr(i) If i Mod...

Dim t1 As Integer, t2 As Integer, sf As Integer, da As IntegerSub chuti()Randomizet1 = Int(Rnd * 90) + 10t2 = Int(Rnd * (t1 - 9)) + 10sf = Int(Rnd * 4)Select Case sfCase 0 Label1.Caption = t1 & " + " & t2 & " = " da = t1 + t2Ca...

不太清楚~我也想知道

可以给多分吗?不然没动力写代码哦~~ 【提示】 解答七: 定义个子过程 f(x %) as 整形 子过程 用if……elseif……ELSe……的块方式 输入值a,b值后,调用 Print 公式 输入你的 照计算公式 输入即可出结果 解答八: 1..外循环 4,内循环5 2.Rnd*90+10...

网站首页 | 网站地图
All rights reserved Powered by www.ldcf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com