在名称为Form1的窗体上添加一个标题为“滚动条控件”的标签

《在名称为Form1的窗体上添加一个标题为“滚动条控件”的标签》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、基础题（1）基础题（2）参考答案PrivateSubForm_Load()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()Shape1.Top=Shape1.Top+100EndSub简单题（1）程序提供代码PrivateSubText2_Change()'If?=1Then'　Text3.PasswordChar=?Else'　Text3.PasswordChar=?EndIf'Text3.Text=?EndSub程序结束参考答案第1个？处填入：Check1.Value第2个？处填入：""第3个

2、？处填入："#"第4个？处填入：Text2简单题（2）程序提供代码PrivateSubCommand1_Click()DimxAsInteger,kAsIntegerx=Val(Text1(1)．Text)'Fork=2To?　　　　'x=FindMin(Val(Text1(k)．Text),？)Next'lblResult.Caption=？EndSubPublicFunctionFindMin(xAsInteger,yAsInteger)'Ifx?yThen　　　　FindMin=yElse　　　　FindMin=xEndIfEndFunct

3、ion程序结束参考答案第1个？处填入：5第2个？处填入：x第3个？处填入：x第4个？处填入：>综合题程序提供代码Dima(7,7)AsIntegerPrivateSubForm_Load()readEndSubPublicSubread()OpenApp.Path&"Data5.txt"ForInputAs#1DoWhileNotEOF(1)　　　　Fori=1To7　　　　　　Forj=1To7　　　　　　　　Input#1,a(i,j)　　　　　　Nextj　　　　NextiLoopClose#1EndSubPrivateSubComman

4、d1_Click()DimSumAsLong'＝＝＝＝考生编写程序开始＝＝＝＝＝＝＝＝＝＝'＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝＝SaveEndSubPublicSubSave()OpenApp.Path&"out5.txt"ForOutputAs#1Print#1,lblFirst.Caption,lblSecond.CaptionClose#1EndSub程序结束参考答案DimiAsInteger,nAsIntegerFori=1To7Ifa(i,1)Mod7=0Thenn=n+1ElseIfa(1,i)Mod7=0Thenn=n+

5、1ElseIfa(7,i)Mod7=0Thenn=n+1ElseIfa(i,7)Mod7=0Thenn=n+1EndIfNextilblFirst=nFori=1To7sum=sum+a(1,i)+a(i,1)+a(7,i)+a(i,7)Nextsum=sum-a(1,7)-a(1,7)-a(7,1)-a(7,7)lblSecond=sum