2个 文本框 text1 输入 4则运算 方程式 text2 显示结果
部件里 添加一个 Microsoft Script Control 1.0 并画在 窗体上
代码如下
Dim x As Single, y As Single
Private Sub Command1_Click()
ScriptControl1.Language = "VBScript"
ScriptControl1.ExecuteStatement "x = " & x
y = ScriptControl1.Eval(Text1.Text)
ScriptControl1.Reset
Text2.Text = Trim(Str(y))
End Sub
假设你的答案在sheet1的a1:a20你可以把正确答案输入 sheet2的a1:a20在b1输入=SUMPRODUCT(($A$1:$A$20=Sheet2!$A$1:$A$20)*1)即可得到正确结果用一个容器装4个单选按钮,点击哪一行时,该容器移到哪一行,点击单选按钮时,按钮事件产生答案写入相应单无格 ,结束后判断按钮(command_bnt)是有各种事件的,包含了click事件“自选图形(比如自己画的矩形)”只能指定宏。建议你使用控件工具箱中的单选按钮,然后在按钮的click事件中加入判断的代码。例如:private sub optionbutton1_click()end sub
4,RESEARCHSURVEY的区别
research:强调科学考察,一般用scientific research,都有明确的考察题目,比方说,research on human being origin,人类起源的研究。做名词时重音在前,动词重音在后。survey:调查,一般伴随问卷,比方说a survey of household electric apparatus,家电方面的调查,这种调查最后一般的结果是用百分数来显示,比如,80%的中国人支持计划生育政策。名词、动词的发音规则同上。survey 更倾向于定量的调查,而research可能到最后也得不到满意的答案。另外,survey在工程英语中还有“测量”的意思,surveyor,测量员,测工;surveying engineer,测量工程师。楼上说得非常好,总结一下research 指科学方面的研究,旨在开发新的技术或方法survey 指对现存的状态进行勘测调查,社会调查,及测量等都是名词研究,调查的意思
5,VB解题编写一个程序找出所有满足条件的四位数这些数本身是素数
一楼写的很好,不过效率稍差,我改一下算法,效率要快的多。Private Sub command1_click()Dim i As Integer, j As Integer, k As Integer, L As Integer, A, N As IntegerA = Array(2, 3, 5, 7)For i = LBound(A) To UBound(A)For j = LBound(A) To UBound(A)For k = LBound(A) To UBound(A)For L = LBound(A) To UBound(A)N = A(i) * 1000 + A(j) * 100 + A(k) * 10 + A(L)If Su(N) Then List1.AddItem NNext L, k, j, iEnd SubPrivate Function Su(ByVal N As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(N)If N Mod i = 0 ThenSu = FalseExit FunctionEnd IfNext i Su = TrueEnd Function