ldcf.net
当前位置:首页 >> 急求VB题目答案!!急急急!!!能否毕业就看这个... >>

急求VB题目答案!!急急急!!!能否毕业就看这个...

附件上的exe文件就是用vb编程之后生成的,里面还包括程序代码什么的 望采纳

1:A 2:C 3:C 4:C 5:C 6:D 7:D 8:C 9:B 10:c

Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, M As Integer, N As Integer Dim A() As Double, B() As Double, C() As Double M = Val(Text1.Text) '>0 N = Val(Text2.Text) '>0。错误检验代码自己写 ReDim A(M...

Private Sub Form_Click()Label1.Visible = TrueEnd SubPrivate Sub Form_Load()Me.Caption = "标签"End Sub

#include"stdio.h" #include"string.h" #define N 1000 void menu(); int password(); int dedao(); int uninque(struct STUDENT shu[],int len,int xuehao); void shuchu(struct STUDENT shu[],int len); void send(struct STUDENT shu[],int l...

Dim 高度 As Double = 100, 总量 As Double = 0 For 序 As Integer = 1 To 10 Step 1 总量总量 += 高度 高度 /= 2 If (序

dim a as double,b as double,c as double,s as doublea=1:b=1do while a

把Picture1的AutoSize设置为True控件就会自动调整大小显示所有内容 如果你是想让图像缩放的话 建议用GDI+ 或者比较简单的办法就是在Picture1里面放置一个一样大的Image 然后Image的Stretch设置为True 加载的时候把图片加载在Image就会自动调整图...

就是自己编写一个子过程(sub等)来实现功能 例 s=1!+2!+3!+4!+...+10! 编程如下: Dim s As Long Private Sub Command1_Click() For i = 1 To 10 Call jc(i) '调用子过程 Sum = Sum + s Next i Print s End Sub Private Sub jc(ByVal n As Inte...

Private Sub Command1_Click() Dim a(1 To 26) stri = Text1.Text For i = 1 To Len(stri) s = Mid(stri, i, 1) If s >= "a" And s

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