三道关于编程的问题,尽快解答

王朝知道·作者佚名  2010-09-23
窄屏简体版  字體: |||超大  
 
分類: 電腦/網絡 >> 程序設計 >> 其他編程語言
 
問題描述:

按要求编写下列程序

1、在名称为form1的窗体上画两个标签(名称为label1和lebel2,标题分别为“姓名”和“性别”)、两个文本框(名称分别为text1、text2,text属性均为空白)和一个命令按钮(名称为command1,标题为输入).然后编写命令按钮的click事件过程,程序运行后,如果单击命令按钮,则先后显示两个输入对话框,在两个输入对话框中分别输入姓名和性别,并分别在两个文本框内显示出来。要求:程序中不得使用任何变量。文本框内容不能被修改。

2,名称为form1的窗体上画一个图片框,编写适当的事件过程,在运行时,每单击图片框一次,就在图片框中输出:“A+B=C”一次,每单击图片框的窗体一次,就在窗体中输出:“A+B=C”一次。要求程序中不得使用变量,每个事件过程只能写一条语句

3、分别用函数和字过程实现:求一维数组A中的最大值,主程序随即产生10个100-200之间的疏,调用函数和字过程,分别显示最大值。

參考答案:

1.

Private Sub Command1_Click()

Text1.Text = InputBox(Text1.Text, "xingming")

Text2.Text = InputBox(Text2.Text, "xingbie")

End Sub

Private Sub Form_Load()

Text1.Locked = True

Text2.Locked = True

End Sub

2.

Private Sub Label1_Click()

Label1.Caption = Label1.Caption & "A+B=C" & vbCrLf

End Sub

3.

Dim a(9) As Integer

Dim mb As Integer

Private Sub Form_Load()

Dim i As Integer

For i = 0 To 9

a(i) = Int(Rnd * (200 - 100 + 1)) + 100

Next

S_GetMax

MsgBox mb

MsgBox F_GetMax

End Sub

Private Sub S_GetMax()

Dim i As Integer

Dim j As Integer

For i = 0 To 9

If j < a(i) Then

j = a(i)

End If

Next

mb = j

End Sub

Private Function F_GetMax() As Integer

Dim i As Integer

For i = 0 To 9

If F_GetMax < a(i) Then

F_GetMax = a(i)

End If

Next

End Function

小贴士:① 若网友所发内容与教科书相悖,请以教科书为准;② 若网友所发内容与科学常识、官方权威机构相悖,请以后者为准;③ 若网友所发内容不正确或者违背公序良俗,右下举报/纠错。
 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航