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

VB编成题 求答案 急急急

Private Sub Command1_Click()Dim A As Integer, B As Integer, C As Integer, P As Single, S As SingleA = Val(InputBox("请输入A边长。"))B = Val(InputBox("请输入B边长。"))C = Val(InputBox("请输入C边长。"))P = (A + B + C) / 2If P - A...

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

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

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

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...

tabindex 在窗体中,每个可获得焦点的控件都具有tabindex属性。窗体被加载后,焦点会自动定位在tabindex属性值为0的控件上,每按一下tab键,焦点就会移动到大于当前焦点控件的tabindex属性值的tabindex属性值最小的那个控件上。 举例: 一个窗体...

答案如下: C A D D A D CD CE AB

Private Sub MDIForm_Load() Form1.Show Form2.Show Form3.Show End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button Case Toolbar1.Buttons(1) '水平排列 Me.Arrange 1 Case Toolbar1.Buttons(2...

点击【开始】-【程序】-【Microsoft Visual Basic 6.0 中文版】-【Microsoft Visual Basic 6.0 中文版工具】-【Package & Deployment 向导】,在对话框点击【浏览】,选择工程文件,然后点击【打包】,接下来按要求一步一步设置即可。

可以给多分吗?不然没动力写代码哦~~ 【提示】 解答七: 定义个子过程 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